TdvARStatement
object TppReport
  AutoStop = False
  DataPipeline = Main
  NoDataBehaviors = [ndBlankReport]
  PassSetting = psTwoPass
  PrinterSetup.BinName = 'Default'
  PrinterSetup.DocumentName = 'SQL Financial Accounting: Cust Stat 140206-Loo'
  PrinterSetup.Duplex = dpNone
  PrinterSetup.PaperName = 'Letter'
  PrinterSetup.PrinterName = 'Default'
  PrinterSetup.SaveDeviceSettings = False
  PrinterSetup.mmMarginBottom = 6350
  PrinterSetup.mmMarginLeft = 12700
  PrinterSetup.mmMarginRight = 6350
  PrinterSetup.mmMarginTop = 6350
  PrinterSetup.mmPaperHeight = 279401
  PrinterSetup.mmPaperWidth = 215900
  PrinterSetup.PaperSize = 1
  SaveAsTemplate = True
  Template.DatabaseSettings.Name = '01-Customer-Statement-Monthly-Basis'
  Template.DatabaseSettings.NameField = 'Name'
  Template.DatabaseSettings.TemplateField = 'Template'
  Template.SaveTo = stDatabase
  Template.Format = ftASCII
  ArchiveFileName = '($MyDocuments)\ReportArchive.raf'
  DeviceType = 'Screen'
  DefaultFileDeviceType = 'PDF'
  EmailSettings.ReportFormat = 'PDF'
  LanguageID = 'Default'
  OpenFile = False
  OutlineSettings.CreateNode = True
  OutlineSettings.CreatePageNodes = True
  OutlineSettings.Enabled = False
  OutlineSettings.Visible = False
  ThumbnailSettings.Enabled = True
  ThumbnailSettings.Visible = True
  ThumbnailSettings.DeadSpace = 30
  ThumbnailSettings.PageHighlight.Width = 3
  PDFSettings.EmbedFontOptions = [efUseSubset]
  PDFSettings.EncryptSettings.AllowCopy = True
  PDFSettings.EncryptSettings.AllowInteract = True
  PDFSettings.EncryptSettings.AllowModify = True
  PDFSettings.EncryptSettings.AllowPrint = True
  PDFSettings.EncryptSettings.AllowExtract = True
  PDFSettings.EncryptSettings.AllowAssemble = True
  PDFSettings.EncryptSettings.AllowQualityPrint = True
  PDFSettings.EncryptSettings.Enabled = False
  PDFSettings.EncryptSettings.KeyLength = kl40Bit
  PDFSettings.EncryptSettings.EncryptionType = etRC4
  PDFSettings.FontEncoding = feUnicode
  PDFSettings.ImageCompressionLevel = 25
  PDFSettings.PDFAFormat = pafNone
  PreviewFormSettings.PageBorder.mmPadding = 0
  PreviewFormSettings.WindowState = wsMaximized
  PreviewFormSettings.ZoomSetting = zsPageWidth
  RTFSettings.DefaultFont.Charset = DEFAULT_CHARSET
  RTFSettings.DefaultFont.Color = clWindowText
  RTFSettings.DefaultFont.Height = -13
  RTFSettings.DefaultFont.Name = 'Arial'
  RTFSettings.DefaultFont.Style = []
  TextFileName = '($MyDocuments)\Report.pdf'
  TextSearchSettings.DefaultString = '<FindText>'
  TextSearchSettings.Enabled = True
  XLSSettings.AppName = 'ReportBuilder'
  XLSSettings.Author = 'ReportBuilder'
  XLSSettings.ExportComponents = [ecText, ecLine, ecImage, ecRichText, ecBarCode, ecOther]
  XLSSettings.Subject = 'Report'
  XLSSettings.Title = 'Report'
  XLSSettings.WorksheetName = 'Report'
  Version = '19.02'
  mmColumnWidth = 0
  DataPipelineName = 'Main'
  object ppHeaderBand2: TppHeaderBand
    Background.Brush.Style = bsClear
    Border.mmPadding = 0
    PrintHeight = phDynamic
    mmBottomOffset = 0
    mmHeight = 85461
    mmPrintPosition = 0
    object DBText6: TppDBText
      DesignLayer = ppDesignLayer4
      UserName = 'DBText2'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      DataField = 'CompanyName'
      DataPipeline = Main
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      Transparent = True
      DataPipelineName = 'Main'
      mmHeight = 4498
      mmLeft = 4503
      mmTop = 42041
      mmWidth = 102129
      BandType = 0
      LayerName = Foreground3
    end
    object DBText11: TppDBText
      DesignLayer = ppDesignLayer4
      UserName = 'DBText11'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      DataField = 'Address1'
      DataPipeline = Company
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      Transparent = True
      DataPipelineName = 'Company'
      mmHeight = 4233
      mmLeft = 5032
      mmTop = 46804
      mmWidth = 101600
      BandType = 0
      LayerName = Foreground3
    end
    object DBText12: TppDBText
      DesignLayer = ppDesignLayer4
      UserName = 'DBText12'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      DataField = 'Address2'
      DataPipeline = Company
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      Transparent = True
      DataPipelineName = 'Company'
      mmHeight = 4233
      mmLeft = 5032
      mmTop = 51037
      mmWidth = 101600
      BandType = 0
      LayerName = Foreground3
    end
    object DBText17: TppDBText
      DesignLayer = ppDesignLayer4
      UserName = 'DBText17'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      DataField = 'Address4'
      DataPipeline = Company
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      Transparent = True
      DataPipelineName = 'Company'
      mmHeight = 4233
      mmLeft = 5297
      mmTop = 59239
      mmWidth = 101600
      BandType = 0
      LayerName = Foreground3
    end
    object DBText18: TppDBText
      DesignLayer = ppDesignLayer4
      UserName = 'DBText3'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      DataField = 'Address3'
      DataPipeline = Company
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      Transparent = True
      DataPipelineName = 'Company'
      mmHeight = 4233
      mmLeft = 5032
      mmTop = 55006
      mmWidth = 101600
      BandType = 0
      LayerName = Foreground3
    end
    object ppLabel2: TppLabel
      DesignLayer = ppDesignLayer4
      UserName = 'lbTel'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      Caption = 'Tel : '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      Transparent = True
      mmHeight = 4233
      mmLeft = 5297
      mmTop = 63737
      mmWidth = 8202
      BandType = 0
      LayerName = Foreground3
    end
    object ppLabel3: TppLabel
      DesignLayer = ppDesignLayer4
      UserName = 'lbFax'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      Caption = 'Fax : '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      Transparent = True
      mmHeight = 4233
      mmLeft = 5297
      mmTop = 67706
      mmWidth = 8731
      BandType = 0
      LayerName = Foreground3
    end
    object ppVariable2: TppVariable
      DesignLayer = ppDesignLayer4
      UserName = 'VarTel'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      BlankWhenZero = False
      CalcOrder = 0
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 4233
      mmLeft = 17203
      mmTop = 63737
      mmWidth = 10054
      BandType = 0
      LayerName = Foreground3
    end
    object ppVariable3: TppVariable
      DesignLayer = ppDesignLayer4
      UserName = 'VarFax'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      BlankWhenZero = False
      CalcOrder = 1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 4233
      mmLeft = 17203
      mmTop = 67971
      mmWidth = 10583
      BandType = 0
      LayerName = Foreground3
    end
    object Label29: TppLabel
      DesignLayer = ppDesignLayer4
      UserName = 'Label29'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      Caption = 'Date'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      Transparent = True
      mmHeight = 4233
      mmLeft = 2117
      mmTop = 78846
      mmWidth = 6879
      BandType = 0
      LayerName = Foreground3
    end
    object Label31: TppLabel
      DesignLayer = ppDesignLayer4
      UserName = 'Label31'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      Caption = 'Transaction Description'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      Transparent = True
      mmHeight = 4233
      mmLeft = 48154
      mmTop = 78846
      mmWidth = 35454
      BandType = 0
      LayerName = Foreground3
    end
    object Label33: TppLabel
      DesignLayer = ppDesignLayer4
      UserName = 'Label33'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      Caption = 'Debit'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      TextAlignment = taRightJustified
      Transparent = True
      mmHeight = 4233
      mmLeft = 125677
      mmTop = 78846
      mmWidth = 7673
      BandType = 0
      LayerName = Foreground3
    end
    object Label35: TppLabel
      DesignLayer = ppDesignLayer4
      UserName = 'Label35'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      Caption = 'Reference'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      mmHeight = 4233
      mmLeft = 20902
      mmTop = 78846
      mmWidth = 15346
      BandType = 0
      LayerName = Foreground3
    end
    object Label39: TppLabel
      DesignLayer = ppDesignLayer4
      UserName = 'Label39'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      Caption = 'Credit'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      TextAlignment = taRightJustified
      Transparent = True
      mmHeight = 4233
      mmLeft = 152665
      mmTop = 78846
      mmWidth = 8996
      BandType = 0
      LayerName = Foreground3
    end
    object Label41: TppLabel
      DesignLayer = ppDesignLayer4
      UserName = 'Label41'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      Caption = 'Balance'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      TextAlignment = taRightJustified
      Transparent = True
      mmHeight = 4233
      mmLeft = 179917
      mmTop = 78846
      mmWidth = 11642
      BandType = 0
      LayerName = Foreground3
    end
    object ppDBText9: TppDBText
      DesignLayer = ppDesignLayer4
      UserName = 'DBText15'
      HyperlinkEnabled = False
      AutoSize = True
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      DataField = 'Code'
      DataPipeline = Main
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      Transparent = True
      DataPipelineName = 'Main'
      mmHeight = 4233
      mmLeft = 155574
      mmTop = 48392
      mmWidth = 7673
      BandType = 0
      LayerName = Foreground3
    end
    object ppDBText11: TppDBText
      DesignLayer = ppDesignLayer4
      UserName = 'DBText16'
      HyperlinkEnabled = False
      AutoSize = True
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      DataField = 'CreditTerm'
      DataPipeline = Company
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      Transparent = True
      DataPipelineName = 'Company'
      mmHeight = 4233
      mmLeft = 155574
      mmTop = 58184
      mmWidth = 17198
      BandType = 0
      LayerName = Foreground3
    end
    object ppDBText18: TppDBText
      DesignLayer = ppDesignLayer4
      UserName = 'DBText40'
      HyperlinkEnabled = False
      AutoSize = True
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      DataField = 'StatementDate'
      DataPipeline = Parameter
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      Transparent = True
      DataPipelineName = 'Parameter'
      mmHeight = 4233
      mmLeft = 155574
      mmTop = 43629
      mmWidth = 22490
      BandType = 0
      LayerName = Foreground3
    end
    object ppDBText20: TppDBText
      DesignLayer = ppDesignLayer4
      UserName = 'DBText42'
      HyperlinkEnabled = False
      AutoSize = True
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      DataField = 'Agent'
      DataPipeline = Company
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      Transparent = True
      DataPipelineName = 'Company'
      mmHeight = 4233
      mmLeft = 155574
      mmTop = 53155
      mmWidth = 8732
      BandType = 0
      LayerName = Foreground3
    end
    object ppSystemVariable2: TppSystemVariable
      DesignLayer = ppDesignLayer4
      UserName = 'SystemVariable2'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      VarType = vtPageNo
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 4233
      mmLeft = 155574
      mmTop = 63213
      mmWidth = 1852
      BandType = 0
      LayerName = Foreground3
    end
    object ppVariable46: TppVariable
      DesignLayer = ppDesignLayer4
      UserName = 'Variable1'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      BlankWhenZero = False
      CalcOrder = 2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      Visible = False
      mmHeight = 4022
      mmLeft = 26988
      mmTop = 26974
      mmWidth = 14774
      BandType = 0
      LayerName = Foreground3
    end
    object ppVariable47: TppVariable
      DesignLayer = ppDesignLayer4
      UserName = 'Variable2'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      BlankWhenZero = False
      CalcOrder = 4
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      Visible = False
      mmHeight = 3969
      mmLeft = 94986
      mmTop = 27503
      mmWidth = 14817
      BandType = 0
      LayerName = Foreground3
    end
    object ppDBText2: TppDBText
      DesignLayer = ppDesignLayer4
      UserName = 'DBText1'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      DataField = 'DateTo'
      DataPipeline = Parameter
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 9
      Font.Style = []
      ParentDataPipeline = False
      Transparent = True
      Visible = False
      DataPipelineName = 'Parameter'
      mmHeight = 3810
      mmLeft = 27252
      mmTop = 15081
      mmWidth = 17198
      BandType = 0
      LayerName = Foreground3
    end
    object ppVariable48: TppVariable
      DesignLayer = ppDesignLayer4
      UserName = 'Variable3'
      HyperlinkEnabled = False
      Border.Weight = 1.000000000000000000
      Border.mmPadding = 0
      BlankWhenZero = False
      CalcOrder = 3
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      Visible = False
      mmHeight = 3969
      mmLeft = 120121
      mmTop = 27503
      mmWidth = 14817
      BandType = 0
      LayerName = Foreground3
    end
    object ppLabel25: TppLabel
      DesignLayer = ppDesignLayer4
      UserName = 'Label25'
      Border.mmPadding = 0
      Caption = 'Customer Address: '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 7
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      Transparent = True
      mmHeight = 2910
      mmLeft = 1060
      mmTop = 38337
      mmWidth = 21696
      BandType = 0
      LayerName = Foreground3
    end
    object ppLabel26: TppLabel
      DesignLayer = ppDesignLayer4
      UserName = 'Label26'
      Border.mmPadding = 0
      Caption = 'Date : '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      TextAlignment = taRightJustified
      Transparent = True
      mmHeight = 4233
      mmLeft = 143669
      mmTop = 43629
      mmWidth = 10319
      BandType = 0
      LayerName = Foreground3
    end
    object ppLabel27: TppLabel
      DesignLayer = ppDesignLayer4
      UserName = 'Label27'
      Border.mmPadding = 0
      Caption = 'Account Code : '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      TextAlignment = taRightJustified
      Transparent = True
      mmHeight = 4234
      mmLeft = 129911
      mmTop = 48391
      mmWidth = 24077
      BandType = 0
      LayerName = Foreground3
    end
    object ppLabel28: TppLabel
      DesignLayer = ppDesignLayer4
      UserName = 'Label28'
      Border.mmPadding = 0
      Caption = 'Agent : '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      TextAlignment = taRightJustified
      Transparent = True
      mmHeight = 4233
      mmLeft = 141817
      mmTop = 53154
      mmWidth = 12171
      BandType = 0
      LayerName = Foreground3
    end
    object ppLabel29: TppLabel
      DesignLayer = ppDesignLayer4
      UserName = 'Label2'
      Border.mmPadding = 0
      Caption = 'Credit Terms : '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      TextAlignment = taRightJustified
      Transparent = True
      mmHeight = 4233
      mmLeft = 130704
      mmTop = 58181
      mmWidth = 23284
      BandType = 0
      LayerName = Foreground3
    end
    object ppLabel30: TppLabel
      DesignLayer = ppDesignLayer4
      UserName = 'Label30'
      Border.mmPadding = 0
      Caption = 'Page : '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      TextAlignment = taRightJustified
      Transparent = True
      mmHeight = 4233
      mmLeft = 143140
      mmTop = 63208
      mmWidth = 10848
      BandType = 0
      LayerName = Foreground3
    end
    object ppLine1: TppLine
      DesignLayer = ppDesignLayer4
      UserName = 'Line1'
      Border.mmPadding = 0
      Weight = 0.750000000000000000
      mmHeight = 1323
      mmLeft = 0
      mmTop = 34898
      mmWidth = 194734
      BandType = 0
      LayerName = Foreground3
    end
    object ppLabel31: TppLabel
      DesignLayer = ppDesignLayer4
      UserName = 'Label8'
      Border.mmPadding = 0
      Caption = 'STATEMENT OF ACCOUNT'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 14
      Font.Style = [fsBold]
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      TextAlignment = taRightJustified
      Transparent = True
      mmHeight = 6085
      mmLeft = 121709
      mmTop = 36749
      mmWidth = 66146
      BandType = 0
      LayerName = Foreground3
    end
    object ppDBRichText1: TppDBRichText
      DesignLayer = ppDesignLayer4
      UserName = 'DBRichText1'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      Border.mmPadding = 0
      ExportRTFAsBitmap = False
      DataField = 'Note'
      DataPipeline = Profile
      ParentDataPipeline = False
      RemoveEmptyLines = False
      Stretch = True
      Transparent = True
      DataPipelineName = 'Profile'
      mmHeight = 33338
      mmLeft = 37835
      mmTop = 529
      mmWidth = 156898
      BandType = 0
      LayerName = Foreground3
      mmBottomOffset = 0
      mmOverFlowOffset = 0
      mmStopPosition = 0
      mmMinHeight = 0
    end
    object ppLine2: TppLine
      DesignLayer = ppDesignLayer4
      UserName = 'Line2'
      Border.mmPadding = 0
      Weight = 0.750000000000000000
      mmHeight = 1323
      mmLeft = 0
      mmTop = 77045
      mmWidth = 194734
      BandType = 0
      LayerName = Foreground3
    end
    object ppLine3: TppLine
      DesignLayer = ppDesignLayer4
      UserName = 'Line3'
      Border.mmPadding = 0
      Weight = 0.750000000000000000
      mmHeight = 1323
      mmLeft = 0
      mmTop = 84126
      mmWidth = 194734
      BandType = 0
      LayerName = Foreground3
    end
    object ppDBImage1: TppDBImage
      DesignLayer = ppDesignLayer4
      UserName = 'DBImage1'
      AlignHorizontal = ahCenter
      AlignVertical = avCenter
      MaintainAspectRatio = False
      Stretch = True
      Border.mmPadding = 0
      DataField = 'Logo'
      DataPipeline = Profile
      GraphicType = 'AutoDetect'
      ParentDataPipeline = False
      DataPipelineName = 'Profile'
      mmHeight = 33338
      mmLeft = 1588
      mmTop = 529
      mmWidth = 34660
      BandType = 0
      LayerName = Foreground3
    end
  end
  object ppDetailBand3: TppDetailBand
    Background1.Brush.Style = bsClear
    Background2.Brush.Style = bsClear
    Border.mmPadding = 0
    PrintHeight = phDynamic
    mmBottomOffset = 0
    mmHeight = 5291
    mmPrintPosition = 0
    object ppSubReport1: TppSubReport
      DesignLayer = ppDesignLayer4
      UserName = 'SubReport1'
      ExpandAll = False
      NewPrintJob = False
      OutlineSettings.CreateNode = True
      TraverseAllData = False
      DataPipelineName = 'Document'
      mmHeight = 5027
      mmLeft = 0
      mmTop = 264
      mmWidth = 196850
      BandType = 4
      LayerName = Foreground3
      mmBottomOffset = 0
      mmOverFlowOffset = 0
      mmStopPosition = 213360
      mmMinHeight = 0
      object ppChildReport1: TppChildReport
        AutoStop = False
        DataPipeline = Document
        PrinterSetup.BinName = 'Default'
        PrinterSetup.DocumentName = 'SQL Financial Accounting: Cust Stat 140206-Loo'
        PrinterSetup.Duplex = dpNone
        PrinterSetup.PaperName = 'Letter'
        PrinterSetup.PrinterName = 'Default'
        PrinterSetup.SaveDeviceSettings = False
        PrinterSetup.mmMarginBottom = 6350
        PrinterSetup.mmMarginLeft = 12700
        PrinterSetup.mmMarginRight = 6350
        PrinterSetup.mmMarginTop = 6350
        PrinterSetup.mmPaperHeight = 279401
        PrinterSetup.mmPaperWidth = 215900
        PrinterSetup.PaperSize = 1
        Template.DatabaseSettings.NameField = 'Name'
        Template.DatabaseSettings.TemplateField = 'Template'
        Template.SaveTo = stDatabase
        Template.Format = ftASCII
        Version = '19.02'
        mmColumnWidth = 0
        DataPipelineName = 'Document'
        object ppDetailBand4: TppDetailBand
          Background1.Brush.Style = bsClear
          Background2.Brush.Style = bsClear
          Border.mmPadding = 0
          PrintHeight = phDynamic
          mmBottomOffset = 0
          mmHeight = 11906
          mmPrintPosition = 0
          object ppShape3: TppShape
            DesignLayer = ppDesignLayer2
            UserName = 'Shape3'
            Brush.Style = bsClear
            ParentWidth = True
            Pen.Style = psClear
            mmHeight = 3440
            mmLeft = 0
            mmTop = 0
            mmWidth = 196850
            BandType = 4
            LayerName = Foreground1
          end
          object ppDBText22: TppDBText
            DesignLayer = ppDesignLayer2
            UserName = 'DBTxtplSQL_ST'
            HyperlinkEnabled = False
            Border.Weight = 1.000000000000000000
            Border.mmPadding = 0
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Tahoma'
            Font.Size = 8
            Font.Style = []
            ParentDataPipeline = False
            TextAlignment = taRightJustified
            Transparent = True
            mmHeight = 3429
            mmLeft = 174890
            mmTop = 0
            mmWidth = 17198
            BandType = 4
            LayerName = Foreground1
          end
          object ppDBText1: TppDBText
            DesignLayer = ppDesignLayer2
            UserName = 'DBText1'
            HyperlinkEnabled = False
            Border.Weight = 1.000000000000000000
            Border.mmPadding = 0
            DataField = 'TransDate'
            DataPipeline = Document
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Tahoma'
            Font.Size = 9
            Font.Style = []
            Transparent = True
            DataPipelineName = 'Document'
            mmHeight = 3810
            mmLeft = 1058
            mmTop = 0
            mmWidth = 19050
            BandType = 4
            LayerName = Foreground1
          end
          object ppDBText3: TppDBText
            DesignLayer = ppDesignLayer2
            UserName = 'DBText3'
            HyperlinkEnabled = False
            Border.Weight = 1.000000000000000000
            Border.mmPadding = 0
            DataField = 'Description'
            DataPipeline = Document
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Tahoma'
            Font.Size = 9
            Font.Style = []
            Transparent = True
            DataPipelineName = 'Document'
            mmHeight = 3704
            mmLeft = 48419
            mmTop = 0
            mmWidth = 57415
            BandType = 4
            LayerName = Foreground1
          end
          object ppDBText4: TppDBText
            DesignLayer = ppDesignLayer2
            UserName = 'DBText4'
            HyperlinkEnabled = False
            BlankWhenZero = True
            Border.Weight = 1.000000000000000000
            Border.mmPadding = 0
            DataField = 'DR'
            DataPipeline = Document
            DisplayFormat = '#,0.00;-#,0.00;-'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Tahoma'
            Font.Size = 9
            Font.Style = []
            TextAlignment = taRightJustified
            Transparent = True
            DataPipelineName = 'Document'
            mmHeight = 3704
            mmLeft = 106363
            mmTop = 0
            mmWidth = 28046
            BandType = 4
            LayerName = Foreground1
          end
          object ppDBText5: TppDBText
            DesignLayer = ppDesignLayer2
            UserName = 'DBText5'
            HyperlinkEnabled = False
            BlankWhenZero = True
            Border.Weight = 1.000000000000000000
            Border.mmPadding = 0
            DataField = 'CR'
            DataPipeline = Document
            DisplayFormat = '#,0.00;-#,0.00;-'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Tahoma'
            Font.Size = 9
            Font.Style = []
            TextAlignment = taRightJustified
            Transparent = True
            DataPipelineName = 'Document'
            mmHeight = 3704
            mmLeft = 135202
            mmTop = 0
            mmWidth = 28046
            BandType = 4
            LayerName = Foreground1
          end
          object ppDBText6: TppDBText
            DesignLayer = ppDesignLayer2
            UserName = 'DBText6'
            HyperlinkEnabled = False
            Border.Weight = 1.000000000000000000
            Border.mmPadding = 0
            DataField = 'Balance'
            DataPipeline = Document
            DisplayFormat = '#,0.00;-#,0.00;-'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Tahoma'
            Font.Size = 9
            Font.Style = []
            TextAlignment = taRightJustified
            Transparent = True
            DataPipelineName = 'Document'
            mmHeight = 3704
            mmLeft = 164307
            mmTop = 0
            mmWidth = 28046
            BandType = 4
            LayerName = Foreground1
          end
          object ppLabel6: TppLabel
            DesignLayer = ppDesignLayer2
            UserName = 'lbStatus'
            HyperlinkEnabled = False
            Border.Weight = 1.000000000000000000
            Border.mmPadding = 0
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Tahoma'
            Font.Size = 8
            Font.Style = []
            FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
            FormFieldSettings.FormFieldType = fftNone
            TextAlignment = taCentered
            Transparent = True
            mmHeight = 3429
            mmLeft = 193289
            mmTop = 0
            mmWidth = 1566
            BandType = 4
            LayerName = Foreground1
          end
          object ppSubReport2: TppSubReport
            DesignLayer = ppDesignLayer2
            UserName = 'SubReport2'
            DrillDownComponent = ppShape3
            ExpandAll = False
            NewPrintJob = False
            OutlineSettings.CreateNode = True
            ShiftRelativeTo = ppDBMemo2
            TraverseAllData = False
            DataPipelineName = 'DocumentKnockOff'
            mmHeight = 5027
            mmLeft = 0
            mmTop = 6879
            mmWidth = 196850
            BandType = 4
            LayerName = Foreground1
            mmBottomOffset = 0
            mmOverFlowOffset = 0
            mmStopPosition = 0
            mmMinHeight = 0
            object ppChildReport2: TppChildReport
              AutoStop = False
              DataPipeline = DocumentKnockOff
              PrinterSetup.BinName = 'Default'
              PrinterSetup.DocumentName = 'SQL Financial Accounting: Cust Stat 140206-Loo'
              PrinterSetup.Duplex = dpNone
              PrinterSetup.PaperName = 'Letter'
              PrinterSetup.PrinterName = 'Default'
              PrinterSetup.SaveDeviceSettings = False
              PrinterSetup.mmMarginBottom = 6350
              PrinterSetup.mmMarginLeft = 12700
              PrinterSetup.mmMarginRight = 6350
              PrinterSetup.mmMarginTop = 6350
              PrinterSetup.mmPaperHeight = 279401
              PrinterSetup.mmPaperWidth = 215900
              PrinterSetup.PaperSize = 1
              Template.DatabaseSettings.NameField = 'ReportName'
              Template.DatabaseSettings.TemplateField = 'Template'
              Template.Offset = 12
              Template.SaveTo = stDatabase
              Template.Format = ftASCII
              Version = '19.02'
              mmColumnWidth = 0
              DataPipelineName = 'DocumentKnockOff'
              object ppDetailBand5: TppDetailBand
                Background1.Brush.Style = bsClear
                Background2.Brush.Style = bsClear
                Border.mmPadding = 0
                mmBottomOffset = 0
                mmHeight = 4498
                mmPrintPosition = 0
                object ppDBText13: TppDBText
                  DesignLayer = ppDesignLayer1
                  UserName = 'DBText13'
                  HyperlinkEnabled = False
                  Border.Weight = 1.000000000000000000
                  Border.mmPadding = 0
                  DataField = 'DocNo'
                  DataPipeline = DocumentKnockOff
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = 16896
                  Font.Name = 'Arial'
                  Font.Size = 8
                  Font.Style = []
                  Transparent = True
                  DataPipelineName = 'DocumentKnockOff'
                  mmHeight = 3440
                  mmLeft = 24871
                  mmTop = 529
                  mmWidth = 18521
                  BandType = 4
                  LayerName = Foreground
                end
                object ppDBText14: TppDBText
                  DesignLayer = ppDesignLayer1
                  UserName = 'DBText14'
                  HyperlinkEnabled = False
                  Border.Weight = 1.000000000000000000
                  Border.mmPadding = 0
                  DataField = 'KOAmt'
                  DataPipeline = DocumentKnockOff
                  DisplayFormat = '#,0.00;-#,0.00;-'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = 16896
                  Font.Name = 'Arial'
                  Font.Size = 8
                  Font.Style = []
                  TextAlignment = taRightJustified
                  Transparent = True
                  DataPipelineName = 'DocumentKnockOff'
                  mmHeight = 3387
                  mmLeft = 62971
                  mmTop = 529
                  mmWidth = 17198
                  BandType = 4
                  LayerName = Foreground
                end
                object ppDBText16: TppDBText
                  DesignLayer = ppDesignLayer1
                  UserName = 'DBText16'
                  HyperlinkEnabled = False
                  Border.Weight = 1.000000000000000000
                  Border.mmPadding = 0
                  DataField = 'TransDate'
                  DataPipeline = DocumentKnockOff
                  DisplayFormat = 'dd/mm/yy'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clWindowText
                  Font.Name = 'Arial'
                  Font.Size = 8
                  Font.Style = []
                  DataPipelineName = 'DocumentKnockOff'
                  mmHeight = 3429
                  mmLeft = 46831
                  mmTop = 528
                  mmWidth = 14552
                  BandType = 4
                  LayerName = Foreground
                end
                object ppLabel5: TppLabel
                  DesignLayer = ppDesignLayer1
                  UserName = 'Label5'
                  HyperlinkEnabled = False
                  AutoSize = False
                  Border.Weight = 1.000000000000000000
                  Border.mmPadding = 0
                  Caption = '*'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = 16896
                  Font.Name = 'Arial'
                  Font.Size = 7
                  Font.Style = []
                  FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
                  FormFieldSettings.FormFieldType = fftNone
                  Transparent = True
                  mmHeight = 2911
                  mmLeft = 21167
                  mmTop = 528
                  mmWidth = 2910
                  BandType = 4
                  LayerName = Foreground
                end
              end
              object raCodeModule4: TraCodeModule
              end
              object ppDesignLayers1: TppDesignLayers
                object ppDesignLayer1: TppDesignLayer
                  UserName = 'Foreground'
                  LayerType = ltBanded
                  Index = 0
                end
              end
            end
          end
          object ppDBMemo1: TppDBMemo
            DesignLayer = ppDesignLayer2
            UserName = 'DBMemo1'
            Border.Weight = 1.000000000000000000
            Border.mmPadding = 0
            CharWrap = False
            DataField = 'DocNo'
            DataPipeline = Document
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Tahoma'
            Font.Size = 9
            Font.Style = []
            RemoveEmptyLines = False
            Stretch = True
            Transparent = True
            DataPipelineName = 'Document'
            mmHeight = 3704
            mmLeft = 21167
            mmTop = 0
            mmWidth = 26988
            BandType = 4
            LayerName = Foreground1
            mmBottomOffset = 0
            mmOverFlowOffset = 0
            mmStopPosition = 0
            mmMinHeight = 0
            mmLeading = 0
          end
          object ppDBMemo2: TppDBMemo
            DesignLayer = ppDesignLayer2
            UserName = 'DBMmRefNo'
            Border.Weight = 1.000000000000000000
            Border.mmPadding = 0
            CharWrap = False
            DataField = 'RefNo'
            DataPipeline = Document
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Tahoma'
            Font.Size = 9
            Font.Style = []
            RemoveEmptyLines = False
            ShiftRelativeTo = ppDBMemo1
            Stretch = True
            Transparent = True
            DataPipelineName = 'Document'
            mmHeight = 3704
            mmLeft = 21167
            mmTop = 3440
            mmWidth = 32808
            BandType = 4
            LayerName = Foreground1
            mmBottomOffset = 0
            mmOverFlowOffset = 0
            mmStopPosition = 0
            mmMinHeight = 0
            mmLeading = 0
          end
          object ppDBText8: TppDBText
            DesignLayer = ppDesignLayer2
            UserName = 'DBText8'
            Border.mmPadding = 0
            DataPipeline = Document
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Arial'
            Font.Size = 12
            Font.Style = []
            Transparent = True
            DataPipelineName = 'Document'
            mmHeight = 4498
            mmLeft = -47361
            mmTop = -6085
            mmWidth = 17198
            BandType = 4
            LayerName = Foreground1
          end
          object ppDBText7: TppDBText
            DesignLayer = ppDesignLayer2
            UserName = 'DBText7'
            Border.mmPadding = 0
            DataField = 'KOAMT'
            DataPipeline = plSQL_ST
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clRed
            Font.Name = 'Arial'
            Font.Size = 12
            Font.Style = []
            ParentDataPipeline = False
            Transparent = True
            Visible = False
            DataPipelineName = 'plSQL_ST'
            mmHeight = 4498
            mmLeft = 117211
            mmTop = 3704
            mmWidth = 17198
            BandType = 4
            LayerName = Foreground1
          end
        end
        object raCodeModule1: TraCodeModule
          object raProgramInfo2: TraProgramInfo
            raClassName = 'TraEventHandler'
            raProgram.ProgramName = 'lbStatusOnGetText'
            raProgram.ProgramType = ttProcedure
            raProgram.Source = 
              'procedure lbStatusOnGetText(var Text: String);'#13#10'Var v : double;'#13 +
              #10#13#10'begin'#13#10'if (Document.GetFieldValue('#39'DocType'#39') = '#39'IV'#39') or (Docu' +
              'ment.GetFieldValue('#39'DocType'#39') = '#39'DN'#39') then begin'#13#10'  s := '#39'SELECT' +
              ' DocAmt FROM AR_'#39' + Document.GetFieldValue('#39'DocType'#39') +'#13#10'       ' +
              #39' WHERE DocNo = '#39' + QuotedStr(Document.GetFieldValue('#39'DocNo'#39'));'#13 +
              #10'  V := DBSQL_GetFieldValue(S);'#13#10'  '#13#10'  if plSQL_ST.GetFieldValue' +
              '('#39'KOAmt'#39') = V then'#13#10'    Text := '#39'*'#39';'#13#10'  if ((plSQL_ST.GetFieldVa' +
              'lue('#39'KOAmt'#39') < V) and'#13#10#9'(plSQL_ST.GetFieldValue('#39'KOAmt'#39') <> null' +
              ')) then'#13#10'    Text := '#39'P'#39';'#13#10'  end else'#13#10'    Text := '#39#39';'#13#10#13#10'end;'#13#10
            raProgram.ComponentName = 'lbStatus'
            raProgram.EventName = 'OnGetText'
            raProgram.EventID = 53
            raProgram.CaretPos = (
              3
              9)
          end
          object raProgramInfo5: TraProgramInfo
            raClassName = 'TraEventHandler'
            raProgram.ProgramName = 'lbStatusOnPrint'
            raProgram.ProgramType = ttProcedure
            raProgram.Source = 
              'procedure lbStatusOnPrint;'#13#10'begin'#13#10'     lbStatus.Visible := (Doc' +
              'ument.GetFieldValue('#39'DocType'#39') = '#39'IV'#39') or (Document.GetFieldValu' +
              'e('#39'DocType'#39') = '#39'DN'#39');'#13#10'end;'#13#10
            raProgram.ComponentName = 'lbStatus'
            raProgram.EventName = 'OnPrint'
            raProgram.EventID = 32
            raProgram.CaretPos = (
              63
              4)
          end
        end
        object ppDesignLayers2: TppDesignLayers
          object ppDesignLayer2: TppDesignLayer
            UserName = 'Foreground1'
            LayerType = ltBanded
            Index = 0
          end
        end
      end
    end
  end
  object ppFooterBand2: TppFooterBand
    Background.Brush.Style = bsClear
    Border.mmPadding = 0
    mmBottomOffset = 0
    mmHeight = 6350
    mmPrintPosition = 0
  end
  object ppGroup2: TppGroup
    BreakName = 'Code'
    DataPipeline = Main
    GroupFileSettings.NewFile = False
    GroupFileSettings.EmailFile = False
    OutlineSettings.CreateNode = True
    NewPage = True
    ResetPageNo = True
    ReprintOnSubsequentPage = False
    StartOnOddPage = False
    UserName = 'Group2'
    mmNewColumnThreshold = 0
    mmNewPageThreshold = 0
    DataPipelineName = 'Main'
    NewFile = False
    object ppGroupHeaderBand2: TppGroupHeaderBand
      Background.Brush.Style = bsClear
      Border.mmPadding = 0
      mmBottomOffset = 0
      mmHeight = 0
      mmPrintPosition = 0
    end
    object ppGroupFooterBand2: TppGroupFooterBand
      Background.Brush.Style = bsClear
      Border.mmPadding = 0
      PrintHeight = phDynamic
      HideWhenOneDetail = False
      mmBottomOffset = 0
      mmHeight = 52917
      mmPrintPosition = 215900
      object Region1: TppRegion
        DesignLayer = ppDesignLayer4
        UserName = 'Region1'
        KeepTogether = True
        Caption = 'Region1'
        ParentWidth = True
        Pen.Style = psClear
        Stretch = True
        mmHeight = 39688
        mmLeft = 0
        mmTop = 0
        mmWidth = 196850
        BandType = 5
        GroupNo = 0
        LayerName = Foreground3
        mmBottomOffset = 0
        mmOverFlowOffset = 0
        mmStopPosition = 0
        mmMinHeight = 0
        object DBText7: TppDBText
          DesignLayer = ppDesignLayer4
          UserName = 'DBText7'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          DataField = 'Balance'
          DataPipeline = Main
          DisplayFormat = '#,0.00;-#,0.00;-'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          ParentDataPipeline = False
          TextAlignment = taRightJustified
          Transparent = True
          DataPipelineName = 'Main'
          mmHeight = 3704
          mmLeft = 164042
          mmTop = 2375
          mmWidth = 28046
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object DBText28: TppDBText
          DesignLayer = ppDesignLayer4
          UserName = 'DBText28'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          DataField = 'Symbol'
          DataPipeline = Currency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          ParentDataPipeline = False
          TextAlignment = taRightJustified
          Transparent = True
          DataPipelineName = 'Currency'
          mmHeight = 3704
          mmLeft = 150284
          mmTop = 2375
          mmWidth = 17463
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable1: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarIV06'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 0
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 170127
          mmTop = 39158
          mmWidth = 10054
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable5: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarDN06'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 1
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 154517
          mmTop = 39158
          mmWidth = 11113
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable6: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarIV05'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 3
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 138642
          mmTop = 39423
          mmWidth = 10054
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable7: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarIV04'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 4
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 108744
          mmTop = 39423
          mmWidth = 10054
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable8: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarIV03'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 5
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 78317
          mmTop = 39158
          mmWidth = 10054
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable9: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarIV02'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 6
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 41010
          mmTop = 38894
          mmWidth = 10054
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable11: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarIV12'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 8
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 171450
          mmTop = 38894
          mmWidth = 10054
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable12: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarIV11'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 9
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 139436
          mmTop = 39688
          mmWidth = 10054
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable13: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarIV10'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 10
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 110067
          mmTop = 39423
          mmWidth = 10054
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable14: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarIV09'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 11
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 78052
          mmTop = 39423
          mmWidth = 10054
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable15: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarIV08'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 12
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 27781
          mmTop = 39688
          mmWidth = 10054
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable16: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarIV07'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 13
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 1058
          mmTop = 38629
          mmWidth = 10054
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable17: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarDN05'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 14
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 124090
          mmTop = 39423
          mmWidth = 11113
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable18: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarDN04'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 15
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 94721
          mmTop = 39158
          mmWidth = 11113
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable20: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarDN02'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 17
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 26988
          mmTop = 38894
          mmWidth = 11113
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable22: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarDN12'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 19
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 155311
          mmTop = 39423
          mmWidth = 11113
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable23: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarDN11'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 20
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 124619
          mmTop = 39158
          mmWidth = 11113
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable24: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarDN10'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 21
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 94456
          mmTop = 39158
          mmWidth = 11113
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable25: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'varDN09'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 22
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 64294
          mmTop = 39423
          mmWidth = 10848
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable26: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarDN08'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 23
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 42333
          mmTop = 38365
          mmWidth = 11113
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable27: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarDN07'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 24
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 13494
          mmTop = 39158
          mmWidth = 11113
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppLabel18: TppLabel
          DesignLayer = ppDesignLayer4
          UserName = 'Label6'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          Caption = 'MORE THAN 1 YEAR '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
          FormFieldSettings.FormFieldType = fftNone
          Transparent = True
          mmHeight = 3704
          mmLeft = 1852
          mmTop = 2381
          mmWidth = 30956
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable40: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarDN1YR'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 36
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          Transparent = True
          Visible = False
          mmHeight = 3704
          mmLeft = 180711
          mmTop = 39158
          mmWidth = 14552
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable10: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarIV01'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 7
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 1852
          mmTop = 38894
          mmWidth = 10054
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable21: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarDN01'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 18
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 12700
          mmTop = 38894
          mmWidth = 11113
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable41: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarIV1YR'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 37
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          Transparent = True
          Visible = False
          mmHeight = 3704
          mmLeft = 182298
          mmTop = 39158
          mmWidth = 13229
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable39: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarM1YR'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 38
          CalcComponent = ppGroup1
          CalcType = veGroupStart
          DataType = dtDouble
          DisplayFormat = '#,0.00;(#,0.00)'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          Transparent = True
          mmHeight = 3704
          mmLeft = 38369
          mmTop = 2383
          mmWidth = 26458
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppLabel19: TppLabel
          DesignLayer = ppDesignLayer4
          UserName = 'Label7'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          Caption = 'OPEN CREDIT '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
          FormFieldSettings.FormFieldType = fftNone
          Transparent = True
          mmHeight = 3704
          mmLeft = 1852
          mmTop = 6350
          mmWidth = 21167
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable42: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarOCR'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 39
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3704
          mmLeft = 184150
          mmTop = 38629
          mmWidth = 10848
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable43: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarOPM'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 40
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          Transparent = True
          Visible = False
          mmHeight = 3704
          mmLeft = 183621
          mmTop = 38894
          mmWidth = 11113
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable44: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarTotOCR'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 41
          CalcComponent = ppGroup1
          CalcType = veGroupStart
          DataType = dtDouble
          DisplayFormat = '#,0.00;(#,0.00)'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          Transparent = True
          mmHeight = 3810
          mmLeft = 38369
          mmTop = 6351
          mmWidth = 15494
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable19: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarDN03'
          HyperlinkEnabled = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 16
          DataType = dtCurrency
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 8
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          Visible = False
          mmHeight = 3440
          mmLeft = 63236
          mmTop = 40216
          mmWidth = 11113
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppLine4: TppLine
          DesignLayer = ppDesignLayer4
          UserName = 'Line4'
          Border.mmPadding = 0
          Weight = 0.750000000000000000
          mmHeight = 2381
          mmLeft = 0
          mmTop = 1058
          mmWidth = 194734
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppLabel32: TppLabel
          DesignLayer = ppDesignLayer4
          UserName = 'Label11'
          Border.mmPadding = 0
          Caption = ' : '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
          FormFieldSettings.FormFieldType = fftNone
          Transparent = True
          mmHeight = 3704
          mmLeft = 33867
          mmTop = 2381
          mmWidth = 3175
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppLabel33: TppLabel
          DesignLayer = ppDesignLayer4
          UserName = 'Label13'
          Border.mmPadding = 0
          Caption = ' : '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
          FormFieldSettings.FormFieldType = fftNone
          Transparent = True
          mmHeight = 3704
          mmLeft = 33867
          mmTop = 6350
          mmWidth = 3175
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
      end
      object ppRegion2: TppRegion
        DesignLayer = ppDesignLayer4
        UserName = 'Region2'
        Caption = 'Region2'
        mmHeight = 13758
        mmLeft = 1058
        mmTop = 11377
        mmWidth = 186796
        BandType = 5
        GroupNo = 0
        LayerName = Foreground3
        mmBottomOffset = 0
        mmOverFlowOffset = 0
        mmStopPosition = 0
        mmMinHeight = 0
        object Line8: TppLine
          DesignLayer = ppDesignLayer4
          UserName = 'Line8'
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          ParentHeight = True
          Position = lpLeft
          Weight = 0.750000000000000000
          mmHeight = 13758
          mmLeft = 31749
          mmTop = 11377
          mmWidth = 4498
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object Line9: TppLine
          DesignLayer = ppDesignLayer4
          UserName = 'Line9'
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          ParentHeight = True
          Position = lpLeft
          Weight = 0.750000000000000000
          mmHeight = 13758
          mmLeft = 61912
          mmTop = 11377
          mmWidth = 2381
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object Line10: TppLine
          DesignLayer = ppDesignLayer4
          UserName = 'Line10'
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          ParentHeight = True
          Position = lpLeft
          Weight = 0.750000000000000000
          mmHeight = 13758
          mmLeft = 92869
          mmTop = 11377
          mmWidth = 1852
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object Line11: TppLine
          DesignLayer = ppDesignLayer4
          UserName = 'Line11'
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          ParentHeight = True
          Position = lpLeft
          Weight = 0.750000000000000000
          mmHeight = 13758
          mmLeft = 123031
          mmTop = 11377
          mmWidth = 1588
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object Line12: TppLine
          DesignLayer = ppDesignLayer4
          UserName = 'Line12'
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          ParentHeight = True
          Position = lpLeft
          Weight = 0.750000000000000000
          mmHeight = 13758
          mmLeft = 153194
          mmTop = 11377
          mmWidth = 3175
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object Line5: TppLine
          DesignLayer = ppDesignLayer4
          UserName = 'Line5'
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          ParentWidth = True
          Weight = 0.750000000000000000
          mmHeight = 1852
          mmLeft = 1058
          mmTop = 17727
          mmWidth = 186796
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppLabel1: TppLabel
          DesignLayer = ppDesignLayer4
          UserName = 'Label1'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          Caption = 'JAN'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
          FormFieldSettings.FormFieldType = fftNone
          TextAlignment = taCentered
          Transparent = True
          mmHeight = 3810
          mmLeft = 2910
          mmTop = 13229
          mmWidth = 27781
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppLabel7: TppLabel
          DesignLayer = ppDesignLayer4
          UserName = 'Label3'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          Caption = 'FEB'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
          FormFieldSettings.FormFieldType = fftNone
          TextAlignment = taCentered
          Transparent = True
          mmHeight = 3810
          mmLeft = 33602
          mmTop = 13229
          mmWidth = 26723
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppLabel8: TppLabel
          DesignLayer = ppDesignLayer4
          UserName = 'Label4'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          Caption = 'MAR'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
          FormFieldSettings.FormFieldType = fftNone
          TextAlignment = taCentered
          Transparent = True
          mmHeight = 3810
          mmLeft = 63500
          mmTop = 13229
          mmWidth = 27517
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppLabel9: TppLabel
          DesignLayer = ppDesignLayer4
          UserName = 'Label9'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          Caption = 'APR'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
          FormFieldSettings.FormFieldType = fftNone
          TextAlignment = taCentered
          Transparent = True
          mmHeight = 3810
          mmLeft = 94191
          mmTop = 13229
          mmWidth = 27517
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppLabel10: TppLabel
          DesignLayer = ppDesignLayer4
          UserName = 'Label10'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          Caption = 'MAY'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
          FormFieldSettings.FormFieldType = fftNone
          TextAlignment = taCentered
          Transparent = True
          mmHeight = 3810
          mmLeft = 124354
          mmTop = 13229
          mmWidth = 27517
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppLabel11: TppLabel
          DesignLayer = ppDesignLayer4
          UserName = 'Label101'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          Caption = 'JUNE'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
          FormFieldSettings.FormFieldType = fftNone
          TextAlignment = taCentered
          Transparent = True
          mmHeight = 3810
          mmLeft = 154516
          mmTop = 13229
          mmWidth = 31227
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable4: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarJune'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 2
          CalcComponent = ppGroup1
          CalcType = veGroupStart
          DataType = dtDouble
          DisplayFormat = '#,0.00;(#,0.00)'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          mmHeight = 3810
          mmLeft = 156369
          mmTop = 19315
          mmWidth = 29637
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable34: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarMay'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 31
          CalcComponent = ppGroup1
          CalcType = veGroupStart
          DataType = dtDouble
          DisplayFormat = '#,0.00;(#,0.00)'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          mmHeight = 3810
          mmLeft = 124354
          mmTop = 19579
          mmWidth = 27517
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable35: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarApr'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 32
          CalcComponent = ppGroup1
          CalcType = veGroupStart
          DataType = dtDouble
          DisplayFormat = '#,0.00;(#,0.00)'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          mmHeight = 3810
          mmLeft = 94456
          mmTop = 19579
          mmWidth = 27252
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable36: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarMar'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 33
          CalcComponent = ppGroup1
          CalcType = veGroupStart
          DataType = dtDouble
          DisplayFormat = '#,0.00;(#,0.00)'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          mmHeight = 3810
          mmLeft = 62970
          mmTop = 19579
          mmWidth = 28575
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable37: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarFeb'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 34
          CalcComponent = ppGroup1
          CalcType = veGroupStart
          DataType = dtDouble
          DisplayFormat = '#,0.00;(#,0.00)'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          mmHeight = 3810
          mmLeft = 33337
          mmTop = 19579
          mmWidth = 27252
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable38: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarJan'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 35
          CalcComponent = ppGroup1
          CalcType = veGroupStart
          DataType = dtDouble
          DisplayFormat = '#,0.00;(#,0.00)'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          mmHeight = 3810
          mmLeft = 1323
          mmTop = 19315
          mmWidth = 29104
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
      end
      object ppRegion3: TppRegion
        DesignLayer = ppDesignLayer4
        UserName = 'Region3'
        Caption = 'Region3'
        mmHeight = 13494
        mmLeft = 1058
        mmTop = 24606
        mmWidth = 186797
        BandType = 5
        GroupNo = 0
        LayerName = Foreground3
        mmBottomOffset = 0
        mmOverFlowOffset = 0
        mmStopPosition = 0
        mmMinHeight = 0
        object Line20: TppLine
          DesignLayer = ppDesignLayer4
          UserName = 'Line20'
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          ParentHeight = True
          Position = lpLeft
          Weight = 0.750000000000000000
          mmHeight = 13494
          mmLeft = 92868
          mmTop = 24606
          mmWidth = 2381
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object Line19: TppLine
          DesignLayer = ppDesignLayer4
          UserName = 'Line19'
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          ParentHeight = True
          Position = lpLeft
          Weight = 0.750000000000000000
          mmHeight = 13494
          mmLeft = 61912
          mmTop = 24606
          mmWidth = 2381
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object Line18: TppLine
          DesignLayer = ppDesignLayer4
          UserName = 'Line18'
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          ParentHeight = True
          Position = lpLeft
          Weight = 0.750000000000000000
          mmHeight = 13494
          mmLeft = 31749
          mmTop = 24606
          mmWidth = 2381
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object Line21: TppLine
          DesignLayer = ppDesignLayer4
          UserName = 'Line21'
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          ParentHeight = True
          Position = lpLeft
          Weight = 0.750000000000000000
          mmHeight = 13494
          mmLeft = 123031
          mmTop = 24606
          mmWidth = 2381
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object Line22: TppLine
          DesignLayer = ppDesignLayer4
          UserName = 'Line22'
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          ParentHeight = True
          Position = lpLeft
          Weight = 0.750000000000000000
          mmHeight = 13494
          mmLeft = 153193
          mmTop = 24606
          mmWidth = 2381
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object Line15: TppLine
          DesignLayer = ppDesignLayer4
          UserName = 'Line15'
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          ParentWidth = True
          Weight = 0.750000000000000000
          mmHeight = 2117
          mmLeft = 1058
          mmTop = 31220
          mmWidth = 186797
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppLabel12: TppLabel
          DesignLayer = ppDesignLayer4
          UserName = 'Label12'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          Caption = 'JUL'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
          FormFieldSettings.FormFieldType = fftNone
          TextAlignment = taCentered
          Transparent = True
          mmHeight = 3810
          mmLeft = 3439
          mmTop = 26459
          mmWidth = 27517
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppLabel13: TppLabel
          DesignLayer = ppDesignLayer4
          UserName = 'Label5'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          Caption = 'AUG'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
          FormFieldSettings.FormFieldType = fftNone
          TextAlignment = taCentered
          Transparent = True
          mmHeight = 3810
          mmLeft = 32808
          mmTop = 26459
          mmWidth = 27517
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppLabel14: TppLabel
          DesignLayer = ppDesignLayer4
          UserName = 'Label14'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          Caption = 'SEP'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
          FormFieldSettings.FormFieldType = fftNone
          TextAlignment = taCentered
          Transparent = True
          mmHeight = 3810
          mmLeft = 63235
          mmTop = 26459
          mmWidth = 27517
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppLabel15: TppLabel
          DesignLayer = ppDesignLayer4
          UserName = 'Label15'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          Caption = 'OCT'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
          FormFieldSettings.FormFieldType = fftNone
          TextAlignment = taCentered
          Transparent = True
          mmHeight = 3810
          mmLeft = 94456
          mmTop = 26459
          mmWidth = 27517
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppLabel16: TppLabel
          DesignLayer = ppDesignLayer4
          UserName = 'Label16'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          Caption = 'NOV'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
          FormFieldSettings.FormFieldType = fftNone
          TextAlignment = taCentered
          Transparent = True
          mmHeight = 3810
          mmLeft = 124354
          mmTop = 26459
          mmWidth = 27517
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppLabel17: TppLabel
          DesignLayer = ppDesignLayer4
          UserName = 'Label17'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          Caption = 'DEC'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
          FormFieldSettings.FormFieldType = fftNone
          TextAlignment = taCentered
          Transparent = True
          mmHeight = 4763
          mmLeft = 154252
          mmTop = 25400
          mmWidth = 31492
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable28: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarDec'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 25
          CalcComponent = ppGroup1
          CalcType = veGroupStart
          DataType = dtDouble
          DisplayFormat = '#,0.00;(#,0.00)'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          mmHeight = 3704
          mmLeft = 156634
          mmTop = 32015
          mmWidth = 29637
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable29: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarNov'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 26
          CalcComponent = ppGroup1
          CalcType = veGroupStart
          DataType = dtDouble
          DisplayFormat = '#,0.00;(#,0.00)'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          mmHeight = 3810
          mmLeft = 124089
          mmTop = 32543
          mmWidth = 27517
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable30: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarOct'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 27
          CalcComponent = ppGroup1
          CalcType = veGroupStart
          DataType = dtDouble
          DisplayFormat = '#,0.00;(#,0.00)'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          mmHeight = 3810
          mmLeft = 93927
          mmTop = 32543
          mmWidth = 27252
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable31: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarSep'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 28
          CalcComponent = ppGroup1
          CalcType = veGroupStart
          DataType = dtDouble
          DisplayFormat = '#,0.00;(#,0.00)'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          mmHeight = 3810
          mmLeft = 64029
          mmTop = 32543
          mmWidth = 26988
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable32: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarAug'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 29
          CalcComponent = ppGroup1
          CalcType = veGroupStart
          DataType = dtDouble
          DisplayFormat = '#,0.00;(#,0.00)'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          mmHeight = 3810
          mmLeft = 33072
          mmTop = 32543
          mmWidth = 27517
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
        object ppVariable33: TppVariable
          DesignLayer = ppDesignLayer4
          UserName = 'VarJul'
          HyperlinkEnabled = False
          AutoSize = False
          Border.Weight = 1.000000000000000000
          Border.mmPadding = 0
          BlankWhenZero = False
          CalcOrder = 30
          CalcComponent = ppGroup1
          CalcType = veGroupStart
          DataType = dtDouble
          DisplayFormat = '#,0.00;(#,0.00)'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Name = 'Tahoma'
          Font.Size = 9
          Font.Style = []
          ResetComponent = ppGroup2
          ResetType = veGroupEnd
          TextAlignment = taRightJustified
          Transparent = True
          mmHeight = 3810
          mmLeft = 1587
          mmTop = 32544
          mmWidth = 28841
          BandType = 5
          GroupNo = 0
          LayerName = Foreground3
        end
      end
      object ppVariable49: TppVariable
        DesignLayer = ppDesignLayer4
        UserName = 'Variable4'
        HyperlinkEnabled = False
        Border.Weight = 1.000000000000000000
        Border.mmPadding = 0
        BlankWhenZero = False
        CalcOrder = 42
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        Visible = False
        mmHeight = 4022
        mmLeft = 52917
        mmTop = 44979
        mmWidth = 14774
        BandType = 5
        GroupNo = 0
        LayerName = Foreground3
      end
      object ppRichText1: TppRichText
        DesignLayer = ppDesignLayer4
        UserName = 'RichText1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = 'Tahoma'
        Font.Size = 8
        Font.Style = []
        Border.mmPadding = 0
        Caption = 'RichText1'
        ExportRTFAsBitmap = False
        RichText = 
          '{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil Taho' +
          'ma;}{\f1\fnil MS Sans Serif;}}'#13#10'\viewkind4\uc1\pard\f0\fs16 We s' +
          'hall be grateful if you will let us have payment as soon as poss' +
          'ible. Any discrepancy in this statement must be reported to us i' +
          'n writing within 10 days.\f1\par'#13#10'\f0\par'#13#10'}'#13#10#0
        RemoveEmptyLines = False
        Stretch = True
        Transparent = True
        mmHeight = 8471
        mmLeft = 2910
        mmTop = 40482
        mmWidth = 183357
        BandType = 5
        GroupNo = 0
        LayerName = Foreground3
        mmBottomOffset = 0
        mmOverFlowOffset = 0
        mmStopPosition = 0
        mmMinHeight = 0
      end
    end
  end
  object ppGroup1: TppGroup
    BreakName = 'Code'
    DataPipeline = Main
    GroupFileSettings.NewFile = False
    GroupFileSettings.EmailFile = False
    OutlineSettings.CreateNode = True
    NewPage = True
    ResetPageNo = True
    ReprintOnSubsequentPage = False
    StartOnOddPage = False
    UserName = 'Group1'
    mmNewColumnThreshold = 0
    mmNewPageThreshold = 0
    DataPipelineName = 'Main'
    NewFile = False
    object ppGroupHeaderBand1: TppGroupHeaderBand
      Background.Brush.Style = bsClear
      Border.mmPadding = 0
      mmBottomOffset = 0
      mmHeight = 0
      mmPrintPosition = 0
    end
    object ppGroupFooterBand1: TppGroupFooterBand
      Background.Brush.Style = bsClear
      Border.mmPadding = 0
      PrintHeight = phDynamic
      HideWhenOneDetail = False
      mmBottomOffset = 0
      mmHeight = 5027
      mmPrintPosition = 0
      object ppSubReport3: TppSubReport
        DesignLayer = ppDesignLayer4
        UserName = 'SubReport3'
        ExpandAll = False
        NewPrintJob = False
        OutlineSettings.CreateNode = True
        TraverseAllData = False
        DataPipelineName = 'PDCheque'
        mmHeight = 5027
        mmLeft = 0
        mmTop = 0
        mmWidth = 196850
        BandType = 5
        GroupNo = 1
        LayerName = Foreground3
        mmBottomOffset = 0
        mmOverFlowOffset = 0
        mmStopPosition = 0
        mmMinHeight = 0
        object ppChildReport3: TppChildReport
          AutoStop = False
          DataPipeline = PDCheque
          PrinterSetup.BinName = 'Default'
          PrinterSetup.DocumentName = 'SQL Financial Accounting: Cust Stat 140206-Loo'
          PrinterSetup.Duplex = dpNone
          PrinterSetup.PaperName = 'Letter'
          PrinterSetup.PrinterName = 'Default'
          PrinterSetup.SaveDeviceSettings = False
          PrinterSetup.mmMarginBottom = 6350
          PrinterSetup.mmMarginLeft = 12700
          PrinterSetup.mmMarginRight = 6350
          PrinterSetup.mmMarginTop = 6350
          PrinterSetup.mmPaperHeight = 279401
          PrinterSetup.mmPaperWidth = 215900
          PrinterSetup.PaperSize = 1
          Template.DatabaseSettings.NameField = 'ReportName'
          Template.DatabaseSettings.TemplateField = 'Template'
          Template.Offset = 16
          Template.SaveTo = stDatabase
          Template.Format = ftASCII
          Version = '19.02'
          mmColumnWidth = 0
          DataPipelineName = 'PDCheque'
          object ppTitleBand1: TppTitleBand
            Background.Brush.Style = bsClear
            Border.mmPadding = 0
            mmBottomOffset = 0
            mmHeight = 13229
            mmPrintPosition = 0
            object ppLabel4: TppLabel
              DesignLayer = ppDesignLayer3
              UserName = 'Label1'
              HyperlinkEnabled = False
              Border.Weight = 1.000000000000000000
              Border.mmPadding = 0
              Caption = 'DATE'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Tahoma'
              Font.Size = 9
              Font.Style = []
              FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
              FormFieldSettings.FormFieldType = fftNone
              Transparent = True
              mmHeight = 3704
              mmLeft = 25135
              mmTop = 9525
              mmWidth = 7938
              BandType = 1
              LayerName = Foreground2
            end
            object ppLabel20: TppLabel
              DesignLayer = ppDesignLayer3
              UserName = 'Label20'
              HyperlinkEnabled = False
              Border.Weight = 1.000000000000000000
              Border.mmPadding = 0
              Caption = 'Cheque Number'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Tahoma'
              Font.Size = 9
              Font.Style = []
              FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
              FormFieldSettings.FormFieldType = fftNone
              Transparent = True
              mmHeight = 3704
              mmLeft = 45508
              mmTop = 9525
              mmWidth = 22754
              BandType = 1
              LayerName = Foreground2
            end
            object ppLabel21: TppLabel
              DesignLayer = ppDesignLayer3
              UserName = 'Label21'
              HyperlinkEnabled = False
              Border.Weight = 1.000000000000000000
              Border.mmPadding = 0
              Caption = 'OR No.'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Tahoma'
              Font.Size = 9
              Font.Style = []
              FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
              FormFieldSettings.FormFieldType = fftNone
              Transparent = True
              mmHeight = 3704
              mmLeft = 85990
              mmTop = 9525
              mmWidth = 10319
              BandType = 1
              LayerName = Foreground2
            end
            object ppLabel22: TppLabel
              DesignLayer = ppDesignLayer3
              UserName = 'Label22'
              HyperlinkEnabled = False
              Border.Weight = 1.000000000000000000
              Border.mmPadding = 0
              Caption = 'Amount'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Tahoma'
              Font.Size = 9
              Font.Style = []
              FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
              FormFieldSettings.FormFieldType = fftNone
              Transparent = True
              mmHeight = 3704
              mmLeft = 132557
              mmTop = 9525
              mmWidth = 11377
              BandType = 1
              LayerName = Foreground2
            end
            object ppLine5: TppLine
              DesignLayer = ppDesignLayer3
              UserName = 'Line1'
              Border.Weight = 1.000000000000000000
              Border.mmPadding = 0
              Position = lpBottom
              Weight = 0.750000000000000000
              mmHeight = 1852
              mmLeft = 24342
              mmTop = 11377
              mmWidth = 145786
              BandType = 1
              LayerName = Foreground2
            end
            object ppLabel23: TppLabel
              DesignLayer = ppDesignLayer3
              UserName = 'Label2'
              HyperlinkEnabled = False
              Border.Weight = 1.000000000000000000
              Border.mmPadding = 0
              Caption = 'Post Dated Cheque Received '
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Tahoma'
              Font.Size = 9
              Font.Style = [fsBold]
              FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
              FormFieldSettings.FormFieldType = fftNone
              Transparent = True
              mmHeight = 3704
              mmLeft = 25135
              mmTop = 6350
              mmWidth = 46567
              BandType = 1
              LayerName = Foreground2
            end
            object ppLabel24: TppLabel
              DesignLayer = ppDesignLayer3
              UserName = 'Label24'
              HyperlinkEnabled = False
              Border.Weight = 1.000000000000000000
              Border.mmPadding = 0
              Caption = 'Balance'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Tahoma'
              Font.Size = 9
              Font.Style = []
              FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
              FormFieldSettings.FormFieldType = fftNone
              TextAlignment = taRightJustified
              Transparent = True
              mmHeight = 3704
              mmLeft = 156104
              mmTop = 9525
              mmWidth = 10848
              BandType = 1
              LayerName = Foreground2
            end
          end
          object ppDetailBand2: TppDetailBand
            Background1.Brush.Style = bsClear
            Background2.Brush.Style = bsClear
            Border.mmPadding = 0
            mmBottomOffset = 0
            mmHeight = 3704
            mmPrintPosition = 0
            object ppDBText27: TppDBText
              DesignLayer = ppDesignLayer3
              UserName = 'DBText1'
              HyperlinkEnabled = False
              Border.Weight = 1.000000000000000000
              Border.mmPadding = 0
              DataField = 'PostDate'
              DataPipeline = PDCheque
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Tahoma'
              Font.Size = 9
              Font.Style = []
              Transparent = True
              DataPipelineName = 'PDCheque'
              mmHeight = 3704
              mmLeft = 25135
              mmTop = 0
              mmWidth = 19579
              BandType = 4
              LayerName = Foreground2
            end
            object ppDBText28: TppDBText
              DesignLayer = ppDesignLayer3
              UserName = 'DBText2'
              HyperlinkEnabled = False
              Border.Weight = 1.000000000000000000
              Border.mmPadding = 0
              DataField = 'ChequeNumber'
              DataPipeline = PDCheque
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Tahoma'
              Font.Size = 9
              Font.Style = []
              Transparent = True
              DataPipelineName = 'PDCheque'
              mmHeight = 3704
              mmLeft = 45508
              mmTop = 0
              mmWidth = 38100
              BandType = 4
              LayerName = Foreground2
            end
            object ppDBText29: TppDBText
              DesignLayer = ppDesignLayer3
              UserName = 'DBText3'
              HyperlinkEnabled = False
              Border.Weight = 1.000000000000000000
              Border.mmPadding = 0
              DataField = 'DocNo'
              DataPipeline = PDCheque
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Tahoma'
              Font.Size = 9
              Font.Style = []
              Transparent = True
              DataPipelineName = 'PDCheque'
              mmHeight = 3704
              mmLeft = 85990
              mmTop = 0
              mmWidth = 30427
              BandType = 4
              LayerName = Foreground2
            end
            object ppDBText30: TppDBText
              DesignLayer = ppDesignLayer3
              UserName = 'DBText4'
              HyperlinkEnabled = False
              Border.Weight = 1.000000000000000000
              Border.mmPadding = 0
              DataField = 'DocAmt'
              DataPipeline = PDCheque
              DisplayFormat = '#,0.00;-#,0.00;-'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Tahoma'
              Font.Size = 9
              Font.Style = []
              TextAlignment = taRightJustified
              Transparent = True
              DataPipelineName = 'PDCheque'
              mmHeight = 3704
              mmLeft = 118534
              mmTop = 0
              mmWidth = 25400
              BandType = 4
              LayerName = Foreground2
            end
            object ppVariable45: TppVariable
              DesignLayer = ppDesignLayer3
              UserName = 'VarBal'
              HyperlinkEnabled = False
              Border.Weight = 1.000000000000000000
              Border.mmPadding = 0
              BlankWhenZero = False
              CalcOrder = 0
              DataType = dtCurrency
              DisplayFormat = '#,0.00;-#,0.00;-'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Tahoma'
              Font.Size = 9
              Font.Style = []
              TextAlignment = taRightJustified
              Transparent = True
              mmHeight = 3810
              mmLeft = 157957
              mmTop = 0
              mmWidth = 8932
              BandType = 4
              LayerName = Foreground2
            end
          end
          object ppSummaryBand1: TppSummaryBand
            Background.Brush.Style = bsClear
            Border.mmPadding = 0
            mmBottomOffset = 0
            mmHeight = 0
            mmPrintPosition = 0
          end
          object raCodeModule3: TraCodeModule
            object raProgramInfo6: TraProgramInfo
              raClassName = 'TraEventHandler'
              raProgram.ProgramName = 'VarBalOnCalc'
              raProgram.ProgramType = ttProcedure
              raProgram.Source = 
                'procedure VarBalOnCalc(var Value: Variant);'#13#10'begin'#13#10#13#10'  VarBal.D' +
                'isplayFormat := Option.GetFieldValue('#39'AccountingValueDisplayForm' +
                'at'#39');'#13#10'  Value := Value + PDCheque.GetFieldValue('#39'DocAmt'#39');'#13#10'end' +
                ';'#13#10
              raProgram.ComponentName = 'VarBal'
              raProgram.EventName = 'OnCalc'
              raProgram.EventID = 33
            end
          end
          object ppDesignLayers3: TppDesignLayers
            object ppDesignLayer3: TppDesignLayer
              UserName = 'Foreground2'
              LayerType = ltBanded
              Index = 0
            end
          end
        end
      end
    end
  end
  object raCodeModule2: TraCodeModule
    object raProgramInfo7: TraProgramInfo
      raClassName = 'TraVarProgram'
      raProgram.ChildType = 17
      raProgram.ProgramName = 'Variables'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure Variables;'#13#10'var'#13#10' SQL_DR, SQL_CR, SQL_ST, DD, DD2, SS,' +
        ' SS2,s : string;'#13#10#13#10'begin'#13#10#13#10'end;'#13#10
      raProgram.CaretPos = (
        42
        2)
    end
    object raProgramInfo8: TraProgramInfo
      raClassName = 'TraProgram'
      raProgram.ChildType = 19
      raProgram.ProgramName = 'GlobalOnCreate'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure GlobalOnCreate;'#13#10'begin'#13#10' SQL_DR := '#39'SELECT code,count(' +
        'DR), sum(DR) FROM Document '#39' +'#13#10'             '#39'where DR <> 0 '#39'  +' +
        #13#10'             '#39'and DR is not null '#39' +'#13#10'             '#39'group by c' +
        'ode'#39';'#13#10'   SQL_CR := '#39'SELECT code, count(CR), sum(CR) FROM Docume' +
        'nt '#39' +'#13#10'             '#39'where CR <> 0 and '#39' +'#13#10'             '#39'DR is' +
        ' not null '#39' +'#13#10'             '#39'group by code'#39';'#13#10'  SQL_ST :=  '#39'SELE' +
        'CT Dockey, Doctype, Code, Sum(KOAmt) KOAMT FROM DocumentKnockOff' +
        ' '#39' +'#13#10'  '#9#9' '#39'GROUP BY Code, DocType, Dockey'#39';'#13#10#13#10'  { DateTimeToSt' +
        'ring(DD, '#39'yyyy'#39', Parameter.GetFieldValue('#39'DateFrom'#39')); '#13#10'   Date' +
        'TimeToString(DD2, '#39'yyyy'#39', Parameter.GetFieldValue('#39'DateTo'#39')); '#13#10 +
        '   '#13#10'   DateTimeToString(SS, '#39'mm/dd/yyyy'#39', Parameter.GetFieldVal' +
        'ue('#39'DateFrom'#39')); '#13#10'   DateTimeToString(SS2, '#39'mm/dd/yyyy'#39', Parame' +
        'ter.GetFieldValue('#39'DateTo'#39'));    }'#13#10'                            ' +
        '                                                   '#13#10'      '#13#10'  '#13 +
        #10'end;'#13#10
      raProgram.CaretPos = (
        28
        12)
    end
    object raProgramInfo9: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarTelOnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarTelOnCalc(var Value: Variant);'#13#10'var S: TStringList;' +
        #13#10'begin '#13#10'  S := TStringList.Create;'#13#10'  S.Add(Company.GetFieldVa' +
        'lue('#39'Phone1'#39'));'#13#10'  S.Add(Company.GetFieldValue('#39'Phone2'#39'));'#13#10'  Va' +
        'lue := DelimitedTextOfStrings(S.Text, '#39'/'#39');'#13#10'  S.Free;'#13#10'end;'#13#10
      raProgram.ComponentName = 'VarTel'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
      raProgram.CaretPos = (
        3
        4)
    end
    object raProgramInfo10: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarFaxOnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarFaxOnCalc(var Value: Variant);'#13#10'var S: TStringList;' +
        #13#10'begin '#13#10'  S := TStringList.Create;'#13#10'  S.Add(Company.GetFieldVa' +
        'lue('#39'Fax1'#39'));'#13#10'  S.Add(Company.GetFieldValue('#39'Fax2'#39'));'#13#10'  Value ' +
        ':= DelimitedTextOfStrings(S.Text, '#39'/'#39');'#13#10'  S.Free;'#13#10'end;'#13#10
      raProgram.ComponentName = 'VarFax'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo11: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'ReportBeforePrint'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure ReportBeforePrint;'#13#10'begin'#13#10'  LocalSQL_SELECT(plSQL_DR,' +
        ' SQL_DR, '#39'Code'#39');'#13#10'  LocalSQL_SELECT(plSQL_CR, SQL_CR, '#39'Code'#39');'#13 +
        #10'  LocalSQL_SELECT(plSQL_ST, SQL_ST, '#39'Code;DocKey'#39'); '#13#10'   '#13#10'  Se' +
        'tDataPipelineFieldLink(Main, plSQL_DR, '#39'Code'#39', '#39'Code'#39');'#13#10'  SetDa' +
        'taPipelineFieldLink(Main, plSQL_CR, '#39'Code'#39', '#39'Code'#39');'#13#10'  SetDataP' +
        'ipelineFieldLink(DocumentKnockOff, plSQL_ST, '#39'Code;DocType;DocKe' +
        'y'#39', '#39'Code;DocType;DocKey'#39');'#13#10'end;'#13#10
      raProgram.ComponentName = 'Report'
      raProgram.EventName = 'BeforePrint'
      raProgram.EventID = 1
      raProgram.CaretPos = (
        81
        9)
    end
    object raProgramInfo12: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'lbTelOnPrint'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure lbTelOnPrint;'#13#10'begin'#13#10'   lbTel.Visible:= VarTel.Value ' +
        '<> '#39#39';'#13#10'end;'#13#10
      raProgram.ComponentName = 'lbTel'
      raProgram.EventName = 'OnPrint'
      raProgram.EventID = 32
    end
    object raProgramInfo13: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'lbFaxOnPrint'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure lbFaxOnPrint;'#13#10'begin'#13#10'   lbFax.Visible:= VarFax.Value ' +
        '<> '#39#39';'#13#10'end;'#13#10
      raProgram.ComponentName = 'lbFax'
      raProgram.EventName = 'OnPrint'
      raProgram.EventID = 32
      raProgram.CaretPos = (
        3
        3)
    end
    object raProgramInfo14: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarIV06OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarIV06OnCalc(var Value: Variant);'#13#10'var IV06,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7) else '#13#10' if m = '#39 +
        '02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8) ' +
        'else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39'D' +
        'ateFrom'#39'), -9) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -10) else'#13#10' if m = '#39'05'#39' then s := IncM' +
        'onth(Parameter.GetFieldValue('#39'DateFrom'#39'), -11) else'#13#10' if m = '#39'06' +
        #39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), 0) els' +
        'e'#13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'Date' +
        'From'#39'), -1) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetF' +
        'ieldValue('#39'DateFrom'#39'), -2) else'#13#10' if m = '#39'09'#39' then s := IncMonth' +
        '(Parameter.GetFieldValue('#39'DateFrom'#39'), -3) else'#13#10' if m = '#39'10'#39' the' +
        'n s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -4) else'#13#10' ' +
        'if m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom' +
        #39'), -5) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetField' +
        'Value('#39'DateFrom'#39'), -6);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -7)) else'#13#10' if m = '#39'02'#39' then s2 :' +
        '= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8' +
        ')) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Paramete' +
        'r.GetFieldValue('#39'DateFrom'#39'), -9)) else'#13#10' if m = '#39'04'#39' then s2 := ' +
        'EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -10)' +
        ') else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter' +
        '.GetFieldValue('#39'DateFrom'#39'), -11)) else'#13#10' if m = '#39'06'#39' then s2 := ' +
        'EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), 0)) ' +
        'else'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -1)) else'#13#10' if m = '#39'08'#39' then s2 := End' +
        'OfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2)) el' +
        'se'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Get' +
        'FieldValue('#39'DateFrom'#39'), -3)) else'#13#10' if m = '#39'10'#39' then s2 := EndOf' +
        'TheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -4)) else' +
        #13#10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -5)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfTh' +
        'eMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10'  IV06 := '#39'SELECT' +
        ' SUM(DOCAMT-PAYMENTAMT) FROM AR_IV '#39' + '#13#10'       '#39'WHERE DOCDATE >' +
        '= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10'   ' +
        '    '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39#39' ' +
        '+ Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10'       '#13#10'  value := DBSQL_' +
        'GetFieldValue(IV06);'#13#10'  '#13#10'end;'#13#10#13#10
      raProgram.ComponentName = 'VarIV06'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo15: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarDN06OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarDN06OnCalc(var Value: Variant);'#13#10'var DN06,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7) else '#13#10' if m = '#39 +
        '02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8) ' +
        'else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39'D' +
        'ateFrom'#39'), -9) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -10) else'#13#10' if m = '#39'05'#39' then s := IncM' +
        'onth(Parameter.GetFieldValue('#39'DateFrom'#39'), -11) else'#13#10' if m = '#39'06' +
        #39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), 0) els' +
        'e'#13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'Date' +
        'From'#39'), -1) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetF' +
        'ieldValue('#39'DateFrom'#39'), -2) else'#13#10' if m = '#39'09'#39' then s := IncMonth' +
        '(Parameter.GetFieldValue('#39'DateFrom'#39'), -3) else'#13#10' if m = '#39'10'#39' the' +
        'n s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -4) else'#13#10' ' +
        'if m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom' +
        #39'), -5) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetField' +
        'Value('#39'DateFrom'#39'), -6);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -7)) else'#13#10' if m = '#39'02'#39' then s2 :' +
        '= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8' +
        ')) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Paramete' +
        'r.GetFieldValue('#39'DateFrom'#39'), -9)) else'#13#10' if m = '#39'04'#39' then s2 := ' +
        'EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -10)' +
        ') else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter' +
        '.GetFieldValue('#39'DateFrom'#39'), -11)) else'#13#10' if m = '#39'06'#39' then s2 := ' +
        'EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), 0)) ' +
        'else'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -1)) else'#13#10' if m = '#39'08'#39' then s2 := End' +
        'OfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2)) el' +
        'se'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Get' +
        'FieldValue('#39'DateFrom'#39'), -3)) else'#13#10' if m = '#39'10'#39' then s2 := EndOf' +
        'TheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -4)) else' +
        #13#10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -5)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfTh' +
        'eMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10#13#10'  DN06 := '#39'SELE' +
        'CT SUM(DOCAMT-PAYMENTAMT) FROM AR_DN '#39' + '#13#10'       '#39'WHERE DOCDATE' +
        ' >= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10' ' +
        '      '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39 +
        #39' + Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10#13#10' value := DBSQL_GetFie' +
        'ldValue(DN06);'#13#10'  '#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarDN06'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
      raProgram.CaretPos = (
        3
        6)
    end
    object raProgramInfo16: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarJuneOnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarJuneOnCalc(var Value: Variant);'#13#10'var'#13#10'  c1,c2,c3,c4' +
        ',c5,c6,c7,c8,c9,c10,c11,c12: string;'#13#10'  a1,a2,a3,a4,a5,a6,a7,a8,' +
        'a9,a10,a11,a12: integer;'#13#10'begin'#13#10'  c6:=copy(AgingHeader.getfield' +
        'value('#39'C6'#39'),0,3);'#13#10'  if c6='#39'Jan'#39' then if Aging.getfieldvalue('#39'C1' +
        #39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C1'#39');'#13 +
        #10'  if c6='#39'Feb'#39' then if Aging.getfieldvalue('#39'C2'#39')=null then value' +
        ' := 0 else Value:= Aging.getfieldvalue('#39'C2'#39');'#13#10'  if c6='#39'Mar'#39' the' +
        'n if Aging.getfieldvalue('#39'C3'#39')=null then value := 0 else Value:=' +
        ' Aging.getfieldvalue('#39'C3'#39');'#13#10'  if c6='#39'Apr'#39' then if Aging.getfiel' +
        'dvalue('#39'C4'#39')=null then value := 0 else Value:= Aging.getfieldval' +
        'ue('#39'C4'#39');'#13#10'  if c6='#39'May'#39' then if Aging.getfieldvalue('#39'C5'#39')=null ' +
        'then value := 0 else Value:= Aging.getfieldvalue('#39'C5'#39');'#13#10'  if c6' +
        '='#39'Jun'#39' then if Aging.getfieldvalue('#39'C6'#39')=null then value := 0 el' +
        'se Value:= Aging.getfieldvalue('#39'C6'#39');'#13#10'  if c6='#39'Jul'#39' then if Agi' +
        'ng.getfieldvalue('#39'C7'#39')=null then value := 0 else Value:= Aging.g' +
        'etfieldvalue('#39'C7'#39');'#13#10'  if c6='#39'Aug'#39' then if Aging.getfieldvalue('#39 +
        'C8'#39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C8'#39')' +
        ';'#13#10'  if c6='#39'Sep'#39' then if Aging.getfieldvalue('#39'C9'#39')=null then val' +
        'ue := 0 else Value:= Aging.getfieldvalue('#39'C9'#39');'#13#10'  if c6='#39'Oct'#39' t' +
        'hen if Aging.getfieldvalue('#39'C10'#39')=null then value := 0 else Valu' +
        'e:= Aging.getfieldvalue('#39'C10'#39');'#13#10'  if c6='#39'Nov'#39' then if Aging.get' +
        'fieldvalue('#39'C11'#39')=null then value := 0 else Value:= Aging.getfie' +
        'ldvalue('#39'C11'#39');'#13#10'  if c6='#39'Dec'#39' then if Aging.getfieldvalue('#39'C12'#39 +
        ')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C12'#39');'#13 +
        #10'end;'#13#10
      raProgram.ComponentName = 'VarJune'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
      raProgram.CaretPos = (
        5
        19)
    end
    object raProgramInfo17: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarIV05OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarIV05OnCalc(var Value: Variant);'#13#10'var IV05,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8) else '#13#10' if m = '#39 +
        '02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9) ' +
        'else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39'D' +
        'ateFrom'#39'), -10) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.' +
        'GetFieldValue('#39'DateFrom'#39'), -11) else'#13#10' if m = '#39'05'#39' then s := Inc' +
        'Month(Parameter.GetFieldValue('#39'DateFrom'#39'), 0) else'#13#10' if m = '#39'06'#39 +
        ' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1) els' +
        'e'#13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'Date' +
        'From'#39'), -2) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetF' +
        'ieldValue('#39'DateFrom'#39'), -3) else'#13#10' if m = '#39'09'#39' then s := IncMonth' +
        '(Parameter.GetFieldValue('#39'DateFrom'#39'), -4) else'#13#10' if m = '#39'10'#39' the' +
        'n s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5) else'#13#10' ' +
        'if m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom' +
        #39'), -6) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetField' +
        'Value('#39'DateFrom'#39'), -7);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -8)) else'#13#10' if m = '#39'02'#39' then s2 :' +
        '= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9' +
        ')) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Paramete' +
        'r.GetFieldValue('#39'DateFrom'#39'), -10)) else'#13#10' if m = '#39'04'#39' then s2 :=' +
        ' EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -11' +
        ')) else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Paramete' +
        'r.GetFieldValue('#39'DateFrom'#39'), 0)) else'#13#10' if m = '#39'06'#39' then s2 := E' +
        'ndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1)) ' +
        'else'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -2)) else'#13#10' if m = '#39'08'#39' then s2 := End' +
        'OfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3)) el' +
        'se'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Get' +
        'FieldValue('#39'DateFrom'#39'), -4)) else'#13#10' if m = '#39'10'#39' then s2 := EndOf' +
        'TheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5)) else' +
        #13#10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -6)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfTh' +
        'eMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10'  IV05 := '#39'SELECT' +
        ' SUM(DOCAMT-PAYMENTAMT) FROM AR_IV '#39' + '#13#10'       '#39'WHERE DOCDATE >' +
        '= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10'   ' +
        '    '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39#39' ' +
        '+ Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10'       '#13#10'  value := DBSQL_' +
        'GetFieldValue(IV05);'#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarIV05'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
      raProgram.CaretPos = (
        3
        6)
    end
    object raProgramInfo18: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarIV04OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarIV04OnCalc(var Value: Variant);'#13#10'var IV04,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9) else '#13#10' if m = '#39 +
        '02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -10)' +
        ' else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39 +
        'DateFrom'#39'), -11) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter' +
        '.GetFieldValue('#39'DateFrom'#39'), 0) else'#13#10' if m = '#39'05'#39' then s := IncM' +
        'onth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1) else'#13#10' if m = '#39'06'#39 +
        ' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2) els' +
        'e'#13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'Date' +
        'From'#39'), -3) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetF' +
        'ieldValue('#39'DateFrom'#39'), -4) else'#13#10' if m = '#39'09'#39' then s := IncMonth' +
        '(Parameter.GetFieldValue('#39'DateFrom'#39'), -5) else'#13#10' if m = '#39'10'#39' the' +
        'n s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6) else'#13#10' ' +
        'if m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom' +
        #39'), -7) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetField' +
        'Value('#39'DateFrom'#39'), -8);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -9)) else'#13#10' if m = '#39'02'#39' then s2 :' +
        '= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1' +
        '0)) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Paramet' +
        'er.GetFieldValue('#39'DateFrom'#39'), -11)) else'#13#10' if m = '#39'04'#39' then s2 :' +
        '= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), 0)' +
        ') else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter' +
        '.GetFieldValue('#39'DateFrom'#39'), -1)) else'#13#10' if m = '#39'06'#39' then s2 := E' +
        'ndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2)) ' +
        'else'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -3)) else'#13#10' if m = '#39'08'#39' then s2 := End' +
        'OfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -4)) el' +
        'se'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Get' +
        'FieldValue('#39'DateFrom'#39'), -5)) else'#13#10' if m = '#39'10'#39' then s2 := EndOf' +
        'TheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6)) else' +
        #13#10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -7)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfTh' +
        'eMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10'  IV04 := '#39'SELECT' +
        ' SUM(DOCAMT-PAYMENTAMT) FROM AR_IV '#39' + '#13#10'       '#39'WHERE DOCDATE >' +
        '= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10'   ' +
        '    '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39#39' ' +
        '+ Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10'       '#13#10'  value := DBSQL_' +
        'GetFieldValue(IV04);'#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarIV04'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo19: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarIV03OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarIV03OnCalc(var Value: Variant);'#13#10'var IV03,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -10) else '#13#10' if m = ' +
        #39'02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -11' +
        ') else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue(' +
        #39'DateFrom'#39'), 0) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.' +
        'GetFieldValue('#39'DateFrom'#39'), -1) else'#13#10' if m = '#39'05'#39' then s := IncM' +
        'onth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2) else'#13#10' if m = '#39'06'#39 +
        ' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3) els' +
        'e'#13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'Date' +
        'From'#39'), -4) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetF' +
        'ieldValue('#39'DateFrom'#39'), -5) else'#13#10' if m = '#39'09'#39' then s := IncMonth' +
        '(Parameter.GetFieldValue('#39'DateFrom'#39'), -6) else'#13#10' if m = '#39'10'#39' the' +
        'n s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7) else'#13#10' ' +
        'if m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom' +
        #39'), -8) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetField' +
        'Value('#39'DateFrom'#39'), -9);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -10)) else'#13#10' if m = '#39'02'#39' then s2 ' +
        ':= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -' +
        '11)) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), 0)) else'#13#10' if m = '#39'04'#39' then s2 :=' +
        ' EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1)' +
        ') else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter' +
        '.GetFieldValue('#39'DateFrom'#39'), -2)) else'#13#10' if m = '#39'06'#39' then s2 := E' +
        'ndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3)) ' +
        'else'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -4)) else'#13#10' if m = '#39'08'#39' then s2 := End' +
        'OfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5)) el' +
        'se'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Get' +
        'FieldValue('#39'DateFrom'#39'), -6)) else'#13#10' if m = '#39'10'#39' then s2 := EndOf' +
        'TheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7)) else' +
        #13#10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -8)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfTh' +
        'eMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10'  IV03 := '#39'SELECT' +
        ' SUM(DOCAMT-PAYMENTAMT) FROM AR_IV '#39' + '#13#10'       '#39'WHERE DOCDATE >' +
        '= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10'   ' +
        '    '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39#39' ' +
        '+ Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10'       '#13#10'  value := DBSQL_' +
        'GetFieldValue(IV03);'#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarIV03'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo20: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarIV02OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarIV02OnCalc(var Value: Variant);'#13#10'var IV02,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -11) else '#13#10' if m = ' +
        #39'02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), 0) ' +
        'else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39'D' +
        'ateFrom'#39'), -1) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -2) else'#13#10' if m = '#39'05'#39' then s := IncMo' +
        'nth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3) else'#13#10' if m = '#39'06'#39' ' +
        'then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -4) else' +
        #13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateF' +
        'rom'#39'), -5) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -6) else'#13#10' if m = '#39'09'#39' then s := IncMonth(' +
        'Parameter.GetFieldValue('#39'DateFrom'#39'), -7) else'#13#10' if m = '#39'10'#39' then' +
        ' s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8) else'#13#10' i' +
        'f m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39 +
        '), -9) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetFieldV' +
        'alue('#39'DateFrom'#39'), -10);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -11)) else'#13#10' if m = '#39'02'#39' then s2 ' +
        ':= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), 0' +
        ')) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Paramete' +
        'r.GetFieldValue('#39'DateFrom'#39'), -1)) else'#13#10' if m = '#39'04'#39' then s2 := ' +
        'EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2))' +
        ' else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.' +
        'GetFieldValue('#39'DateFrom'#39'), -3)) else'#13#10' if m = '#39'06'#39' then s2 := En' +
        'dOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -4)) e' +
        'lse'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Ge' +
        'tFieldValue('#39'DateFrom'#39'), -5)) else'#13#10' if m = '#39'08'#39' then s2 := EndO' +
        'fTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6)) els' +
        'e'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetF' +
        'ieldValue('#39'DateFrom'#39'), -7)) else'#13#10' if m = '#39'10'#39' then s2 := EndOfT' +
        'heMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8)) else'#13 +
        #10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFie' +
        'ldValue('#39'DateFrom'#39'), -9)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfThe' +
        'Month(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -10));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10'  IV02 := '#39'SELECT' +
        ' SUM(DOCAMT-PAYMENTAMT) FROM AR_IV '#39' + '#13#10'       '#39'WHERE DOCDATE >' +
        '= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10'   ' +
        '    '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39#39' ' +
        '+ Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10'       '#13#10'  value := DBSQL_' +
        'GetFieldValue(IV02);'#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarIV02'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo21: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarIV01OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarIV01OnCalc(var Value: Variant);'#13#10'var IV01,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), 0) else '#13#10' if m = '#39'0' +
        '2'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1) e' +
        'lse'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39'Da' +
        'teFrom'#39'), -2) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.Ge' +
        'tFieldValue('#39'DateFrom'#39'), -3) else'#13#10' if m = '#39'05'#39' then s := IncMon' +
        'th(Parameter.GetFieldValue('#39'DateFrom'#39'), -4) else'#13#10' if m = '#39'06'#39' t' +
        'hen s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5) else'#13 +
        #10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFr' +
        'om'#39'), -6) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetFie' +
        'ldValue('#39'DateFrom'#39'), -7) else'#13#10' if m = '#39'09'#39' then s := IncMonth(P' +
        'arameter.GetFieldValue('#39'DateFrom'#39'), -8) else'#13#10' if m = '#39'10'#39' then ' +
        's := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9) else'#13#10' if' +
        ' m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39')' +
        ', -10) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetFieldV' +
        'alue('#39'DateFrom'#39'), -11);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), 0)) else'#13#10' if m = '#39'02'#39' then s2 :=' +
        ' EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1)' +
        ') else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Parameter' +
        '.GetFieldValue('#39'DateFrom'#39'), -2)) else'#13#10' if m = '#39'04'#39' then s2 := E' +
        'ndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3)) ' +
        'else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -4)) else'#13#10' if m = '#39'06'#39' then s2 := End' +
        'OfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5)) el' +
        'se'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Get' +
        'FieldValue('#39'DateFrom'#39'), -6)) else'#13#10' if m = '#39'08'#39' then s2 := EndOf' +
        'TheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7)) else' +
        #13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -8)) else'#13#10' if m = '#39'10'#39' then s2 := EndOfTh' +
        'eMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9)) else'#13#10 +
        ' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFiel' +
        'dValue('#39'DateFrom'#39'), -10)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfThe' +
        'Month(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -11));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10'  IV01 := '#39'SELECT' +
        ' SUM(DOCAMT-PAYMENTAMT) FROM AR_IV '#39' + '#13#10'       '#39'WHERE DOCDATE >' +
        '= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10'   ' +
        '    '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39#39' ' +
        '+ Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10'       '#13#10'  value := DBSQL_' +
        'GetFieldValue(IV01);'#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarIV01'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo22: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarIV12OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarIV12OnCalc(var Value: Variant);'#13#10'var IV12,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1) else '#13#10' if m = '#39 +
        '02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2) ' +
        'else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39'D' +
        'ateFrom'#39'), -3) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -4) else'#13#10' if m = '#39'05'#39' then s := IncMo' +
        'nth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5) else'#13#10' if m = '#39'06'#39' ' +
        'then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6) else' +
        #13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateF' +
        'rom'#39'), -7) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -8) else'#13#10' if m = '#39'09'#39' then s := IncMonth(' +
        'Parameter.GetFieldValue('#39'DateFrom'#39'), -9) else'#13#10' if m = '#39'10'#39' then' +
        ' s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -10) else'#13#10' ' +
        'if m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom' +
        #39'), -11) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetFiel' +
        'dValue('#39'DateFrom'#39'), 0);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -1)) else'#13#10' if m = '#39'02'#39' then s2 :' +
        '= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2' +
        ')) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Paramete' +
        'r.GetFieldValue('#39'DateFrom'#39'), -3)) else'#13#10' if m = '#39'04'#39' then s2 := ' +
        'EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -4))' +
        ' else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.' +
        'GetFieldValue('#39'DateFrom'#39'), -5)) else'#13#10' if m = '#39'06'#39' then s2 := En' +
        'dOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6)) e' +
        'lse'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Ge' +
        'tFieldValue('#39'DateFrom'#39'), -7)) else'#13#10' if m = '#39'08'#39' then s2 := EndO' +
        'fTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8)) els' +
        'e'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetF' +
        'ieldValue('#39'DateFrom'#39'), -9)) else'#13#10' if m = '#39'10'#39' then s2 := EndOfT' +
        'heMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -10)) else' +
        #13#10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -11)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfT' +
        'heMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), 0));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10'  IV12 := '#39'SELECT' +
        ' SUM(DOCAMT-PAYMENTAMT) FROM AR_IV '#39' + '#13#10'       '#39'WHERE DOCDATE >' +
        '= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10'   ' +
        '    '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39#39' ' +
        '+ Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10'       '#13#10'  value := DBSQL_' +
        'GetFieldValue(IV12);'#13#10'  '#13#10'end;'#13#10#13#10
      raProgram.ComponentName = 'VarIV12'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo23: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarIV11OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarIV11OnCalc(var Value: Variant);'#13#10'var IV11,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2) else '#13#10' if m = '#39 +
        '02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3) ' +
        'else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39'D' +
        'ateFrom'#39'), -4) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -5) else'#13#10' if m = '#39'05'#39' then s := IncMo' +
        'nth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6) else'#13#10' if m = '#39'06'#39' ' +
        'then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7) else' +
        #13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateF' +
        'rom'#39'), -8) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -9) else'#13#10' if m = '#39'09'#39' then s := IncMonth(' +
        'Parameter.GetFieldValue('#39'DateFrom'#39'), -10) else'#13#10' if m = '#39'10'#39' the' +
        'n s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -11) else'#13#10 +
        ' if m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFro' +
        'm'#39'), 0) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetField' +
        'Value('#39'DateFrom'#39'), -1);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -2)) else'#13#10' if m = '#39'02'#39' then s2 :' +
        '= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3' +
        ')) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Paramete' +
        'r.GetFieldValue('#39'DateFrom'#39'), -4)) else'#13#10' if m = '#39'04'#39' then s2 := ' +
        'EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5))' +
        ' else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.' +
        'GetFieldValue('#39'DateFrom'#39'), -6)) else'#13#10' if m = '#39'06'#39' then s2 := En' +
        'dOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7)) e' +
        'lse'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Ge' +
        'tFieldValue('#39'DateFrom'#39'), -8)) else'#13#10' if m = '#39'08'#39' then s2 := EndO' +
        'fTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9)) els' +
        'e'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetF' +
        'ieldValue('#39'DateFrom'#39'), -10)) else'#13#10' if m = '#39'10'#39' then s2 := EndOf' +
        'TheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -11)) els' +
        'e'#13#10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetF' +
        'ieldValue('#39'DateFrom'#39'), 0)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfTh' +
        'eMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10'  IV11 := '#39'SELECT' +
        ' SUM(DOCAMT-PAYMENTAMT) FROM AR_IV '#39' + '#13#10'       '#39'WHERE DOCDATE >' +
        '= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10'   ' +
        '    '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39#39' ' +
        '+ Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10'       '#13#10'  value := DBSQL_' +
        'GetFieldValue(IV11);'#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarIV11'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo24: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarIV10OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarIV10OnCalc(var Value: Variant);'#13#10'var IV10,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3) else '#13#10' if m = '#39 +
        '02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -4) ' +
        'else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39'D' +
        'ateFrom'#39'), -5) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -6) else'#13#10' if m = '#39'05'#39' then s := IncMo' +
        'nth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7) else'#13#10' if m = '#39'06'#39' ' +
        'then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8) else' +
        #13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateF' +
        'rom'#39'), -9) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -10) else'#13#10' if m = '#39'09'#39' then s := IncMonth' +
        '(Parameter.GetFieldValue('#39'DateFrom'#39'), -11) else'#13#10' if m = '#39'10'#39' th' +
        'en s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), 0) else'#13#10' ' +
        'if m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom' +
        #39'), -1) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetField' +
        'Value('#39'DateFrom'#39'), -2);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -3)) else'#13#10' if m = '#39'02'#39' then s2 :' +
        '= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -4' +
        ')) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Paramete' +
        'r.GetFieldValue('#39'DateFrom'#39'), -5)) else'#13#10' if m = '#39'04'#39' then s2 := ' +
        'EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6))' +
        ' else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.' +
        'GetFieldValue('#39'DateFrom'#39'), -7)) else'#13#10' if m = '#39'06'#39' then s2 := En' +
        'dOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8)) e' +
        'lse'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Ge' +
        'tFieldValue('#39'DateFrom'#39'), -9)) else'#13#10' if m = '#39'08'#39' then s2 := EndO' +
        'fTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -10)) el' +
        'se'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Get' +
        'FieldValue('#39'DateFrom'#39'), -11)) else'#13#10' if m = '#39'10'#39' then s2 := EndO' +
        'fTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), 0)) else' +
        #13#10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -1)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfTh' +
        'eMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10'  IV10 := '#39'SELECT' +
        ' SUM(DOCAMT-PAYMENTAMT) FROM AR_IV '#39' + '#13#10'       '#39'WHERE DOCDATE >' +
        '= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10'   ' +
        '    '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39#39' ' +
        '+ Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10'       '#13#10'  value := DBSQL_' +
        'GetFieldValue(IV10);'#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarIV10'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo25: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarIV09OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarIV09OnCalc(var Value: Variant);'#13#10'var IV09,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -4) else '#13#10' if m = '#39 +
        '02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5) ' +
        'else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39'D' +
        'ateFrom'#39'), -6) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -7) else'#13#10' if m = '#39'05'#39' then s := IncMo' +
        'nth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8) else'#13#10' if m = '#39'06'#39' ' +
        'then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9) else' +
        #13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateF' +
        'rom'#39'), -10) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetF' +
        'ieldValue('#39'DateFrom'#39'), -11) else'#13#10' if m = '#39'09'#39' then s := IncMont' +
        'h(Parameter.GetFieldValue('#39'DateFrom'#39'), 0) else'#13#10' if m = '#39'10'#39' the' +
        'n s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1) else'#13#10' ' +
        'if m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom' +
        #39'), -2) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetField' +
        'Value('#39'DateFrom'#39'), -3);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -4)) else'#13#10' if m = '#39'02'#39' then s2 :' +
        '= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5' +
        ')) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Paramete' +
        'r.GetFieldValue('#39'DateFrom'#39'), -6)) else'#13#10' if m = '#39'04'#39' then s2 := ' +
        'EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7))' +
        ' else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.' +
        'GetFieldValue('#39'DateFrom'#39'), -8)) else'#13#10' if m = '#39'06'#39' then s2 := En' +
        'dOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9)) e' +
        'lse'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Ge' +
        'tFieldValue('#39'DateFrom'#39'), -10)) else'#13#10' if m = '#39'08'#39' then s2 := End' +
        'OfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -11)) e' +
        'lse'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Ge' +
        'tFieldValue('#39'DateFrom'#39'), 0)) else'#13#10' if m = '#39'10'#39' then s2 := EndOf' +
        'TheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1)) else' +
        #13#10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -2)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfTh' +
        'eMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10'  IV09 := '#39'SELECT' +
        ' SUM(DOCAMT-PAYMENTAMT) FROM AR_IV '#39' + '#13#10'       '#39'WHERE DOCDATE >' +
        '= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10'   ' +
        '    '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39#39' ' +
        '+ Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10'       '#13#10'  value := DBSQL_' +
        'GetFieldValue(IV09);'#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarIV09'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo26: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarIV08OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarIV08OnCalc(var Value: Variant);'#13#10'var IV08,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5) else '#13#10' if m = '#39 +
        '02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6) ' +
        'else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39'D' +
        'ateFrom'#39'), -7) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -8) else'#13#10' if m = '#39'05'#39' then s := IncMo' +
        'nth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9) else'#13#10' if m = '#39'06'#39' ' +
        'then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -10) els' +
        'e'#13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'Date' +
        'From'#39'), -11) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.Get' +
        'FieldValue('#39'DateFrom'#39'), 0) else'#13#10' if m = '#39'09'#39' then s := IncMonth' +
        '(Parameter.GetFieldValue('#39'DateFrom'#39'), -1) else'#13#10' if m = '#39'10'#39' the' +
        'n s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2) else'#13#10' ' +
        'if m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom' +
        #39'), -3) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetField' +
        'Value('#39'DateFrom'#39'), -4);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -5)) else'#13#10' if m = '#39'02'#39' then s2 :' +
        '= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6' +
        ')) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Paramete' +
        'r.GetFieldValue('#39'DateFrom'#39'), -7)) else'#13#10' if m = '#39'04'#39' then s2 := ' +
        'EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8))' +
        ' else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.' +
        'GetFieldValue('#39'DateFrom'#39'), -9)) else'#13#10' if m = '#39'06'#39' then s2 := En' +
        'dOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -10)) ' +
        'else'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -11)) else'#13#10' if m = '#39'08'#39' then s2 := En' +
        'dOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), 0)) el' +
        'se'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Get' +
        'FieldValue('#39'DateFrom'#39'), -1)) else'#13#10' if m = '#39'10'#39' then s2 := EndOf' +
        'TheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2)) else' +
        #13#10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -3)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfTh' +
        'eMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -4));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10'  IV08 := '#39'SELECT' +
        ' SUM(DOCAMT-PAYMENTAMT) FROM AR_IV '#39' + '#13#10'       '#39'WHERE DOCDATE >' +
        '= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10'   ' +
        '    '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39#39' ' +
        '+ Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10'       '#13#10'  value := DBSQL_' +
        'GetFieldValue(IV08);'#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarIV08'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo27: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarIV07OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarIV07OnCalc(var Value: Variant);'#13#10'var IV07,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6) else '#13#10' if m = '#39 +
        '02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7) ' +
        'else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39'D' +
        'ateFrom'#39'), -8) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -9) else'#13#10' if m = '#39'05'#39' then s := IncMo' +
        'nth(Parameter.GetFieldValue('#39'DateFrom'#39'), -10) else'#13#10' if m = '#39'06'#39 +
        ' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -11) el' +
        'se'#13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'Dat' +
        'eFrom'#39'), 0) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetF' +
        'ieldValue('#39'DateFrom'#39'), -1) else'#13#10' if m = '#39'09'#39' then s := IncMonth' +
        '(Parameter.GetFieldValue('#39'DateFrom'#39'), -2) else'#13#10' if m = '#39'10'#39' the' +
        'n s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3) else'#13#10' ' +
        'if m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom' +
        #39'), -4) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetField' +
        'Value('#39'DateFrom'#39'), -5);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -6)) else'#13#10' if m = '#39'02'#39' then s2 :' +
        '= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7' +
        ')) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Paramete' +
        'r.GetFieldValue('#39'DateFrom'#39'), -8)) else'#13#10' if m = '#39'04'#39' then s2 := ' +
        'EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9))' +
        ' else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.' +
        'GetFieldValue('#39'DateFrom'#39'), -10)) else'#13#10' if m = '#39'06'#39' then s2 := E' +
        'ndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -11))' +
        ' else'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.' +
        'GetFieldValue('#39'DateFrom'#39'), 0)) else'#13#10' if m = '#39'08'#39' then s2 := End' +
        'OfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1)) el' +
        'se'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Get' +
        'FieldValue('#39'DateFrom'#39'), -2)) else'#13#10' if m = '#39'10'#39' then s2 := EndOf' +
        'TheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3)) else' +
        #13#10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -4)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfTh' +
        'eMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10'  IV07 := '#39'SELECT' +
        ' SUM(DOCAMT-PAYMENTAMT) FROM AR_IV '#39' + '#13#10'       '#39'WHERE DOCDATE >' +
        '= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10'   ' +
        '    '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39#39' ' +
        '+ Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10'       '#13#10'  value := DBSQL_' +
        'GetFieldValue(IV07);'#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarIV07'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo28: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarDN05OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarDN05OnCalc(var Value: Variant);'#13#10'var DN05,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8) else '#13#10' if m = '#39 +
        '02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9) ' +
        'else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39'D' +
        'ateFrom'#39'), -10) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.' +
        'GetFieldValue('#39'DateFrom'#39'), -11) else'#13#10' if m = '#39'05'#39' then s := Inc' +
        'Month(Parameter.GetFieldValue('#39'DateFrom'#39'), 0) else'#13#10' if m = '#39'06'#39 +
        ' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1) els' +
        'e'#13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'Date' +
        'From'#39'), -2) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetF' +
        'ieldValue('#39'DateFrom'#39'), -3) else'#13#10' if m = '#39'09'#39' then s := IncMonth' +
        '(Parameter.GetFieldValue('#39'DateFrom'#39'), -4) else'#13#10' if m = '#39'10'#39' the' +
        'n s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5) else'#13#10' ' +
        'if m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom' +
        #39'), -6) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetField' +
        'Value('#39'DateFrom'#39'), -7);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -8)) else'#13#10' if m = '#39'02'#39' then s2 :' +
        '= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9' +
        ')) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Paramete' +
        'r.GetFieldValue('#39'DateFrom'#39'), -10)) else'#13#10' if m = '#39'04'#39' then s2 :=' +
        ' EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -11' +
        ')) else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Paramete' +
        'r.GetFieldValue('#39'DateFrom'#39'), 0)) else'#13#10' if m = '#39'06'#39' then s2 := E' +
        'ndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1)) ' +
        'else'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -2)) else'#13#10' if m = '#39'08'#39' then s2 := End' +
        'OfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3)) el' +
        'se'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Get' +
        'FieldValue('#39'DateFrom'#39'), -4)) else'#13#10' if m = '#39'10'#39' then s2 := EndOf' +
        'TheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5)) else' +
        #13#10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -6)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfTh' +
        'eMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10'  DN05 := '#39'SELECT' +
        ' SUM(DOCAMT-PAYMENTAMT) FROM AR_DN '#39' + '#13#10'       '#39'WHERE DOCDATE >' +
        '= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10'   ' +
        '    '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39#39' ' +
        '+ Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10#13#10' value := DBSQL_GetField' +
        'Value(DN05);'#13#10'  '#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarDN05'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo29: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarDN04OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarDN04OnCalc(var Value: Variant);'#13#10'var DN04,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9) else '#13#10' if m = '#39 +
        '02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -10)' +
        ' else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39 +
        'DateFrom'#39'), -11) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter' +
        '.GetFieldValue('#39'DateFrom'#39'), 0) else'#13#10' if m = '#39'05'#39' then s := IncM' +
        'onth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1) else'#13#10' if m = '#39'06'#39 +
        ' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2) els' +
        'e'#13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'Date' +
        'From'#39'), -3) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetF' +
        'ieldValue('#39'DateFrom'#39'), -4) else'#13#10' if m = '#39'09'#39' then s := IncMonth' +
        '(Parameter.GetFieldValue('#39'DateFrom'#39'), -5) else'#13#10' if m = '#39'10'#39' the' +
        'n s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6) else'#13#10' ' +
        'if m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom' +
        #39'), -7) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetField' +
        'Value('#39'DateFrom'#39'), -8);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -9)) else'#13#10' if m = '#39'02'#39' then s2 :' +
        '= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1' +
        '0)) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Paramet' +
        'er.GetFieldValue('#39'DateFrom'#39'), -11)) else'#13#10' if m = '#39'04'#39' then s2 :' +
        '= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), 0)' +
        ') else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter' +
        '.GetFieldValue('#39'DateFrom'#39'), -1)) else'#13#10' if m = '#39'06'#39' then s2 := E' +
        'ndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2)) ' +
        'else'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -3)) else'#13#10' if m = '#39'08'#39' then s2 := End' +
        'OfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -4)) el' +
        'se'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Get' +
        'FieldValue('#39'DateFrom'#39'), -5)) else'#13#10' if m = '#39'10'#39' then s2 := EndOf' +
        'TheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6)) else' +
        #13#10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -7)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfTh' +
        'eMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10'  DN04 := '#39'SELECT' +
        ' SUM(DOCAMT-PAYMENTAMT) FROM AR_DN '#39' + '#13#10'       '#39'WHERE DOCDATE >' +
        '= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10'   ' +
        '    '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39#39' ' +
        '+ Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10#13#10' value := DBSQL_GetField' +
        'Value(DN04);'#13#10'  '#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarDN04'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo30: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarDN03OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarDN03OnCalc(var Value: Variant);'#13#10'var DN03,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -10) else '#13#10' if m = ' +
        #39'02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -11' +
        ') else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue(' +
        #39'DateFrom'#39'), 0) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.' +
        'GetFieldValue('#39'DateFrom'#39'), -1) else'#13#10' if m = '#39'05'#39' then s := IncM' +
        'onth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2) else'#13#10' if m = '#39'06'#39 +
        ' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3) els' +
        'e'#13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'Date' +
        'From'#39'), -4) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetF' +
        'ieldValue('#39'DateFrom'#39'), -5) else'#13#10' if m = '#39'09'#39' then s := IncMonth' +
        '(Parameter.GetFieldValue('#39'DateFrom'#39'), -6) else'#13#10' if m = '#39'10'#39' the' +
        'n s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7) else'#13#10' ' +
        'if m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom' +
        #39'), -8) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetField' +
        'Value('#39'DateFrom'#39'), -9);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -10)) else'#13#10' if m = '#39'02'#39' then s2 ' +
        ':= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -' +
        '11)) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), 0)) else'#13#10' if m = '#39'04'#39' then s2 :=' +
        ' EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1)' +
        ') else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter' +
        '.GetFieldValue('#39'DateFrom'#39'), -2)) else'#13#10' if m = '#39'06'#39' then s2 := E' +
        'ndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3)) ' +
        'else'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -4)) else'#13#10' if m = '#39'08'#39' then s2 := End' +
        'OfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5)) el' +
        'se'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Get' +
        'FieldValue('#39'DateFrom'#39'), -6)) else'#13#10' if m = '#39'10'#39' then s2 := EndOf' +
        'TheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7)) else' +
        #13#10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -8)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfTh' +
        'eMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10'  DN03 := '#39'SELECT' +
        ' SUM(DOCAMT-PAYMENTAMT) FROM AR_DN '#39' + '#13#10'       '#39'WHERE DOCDATE >' +
        '= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10'   ' +
        '    '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39#39' ' +
        '+ Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10#13#10' value := DBSQL_GetField' +
        'Value(DN03);'#13#10'  '#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarDN03'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo31: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarDN01OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarDN01OnCalc(var Value: Variant);'#13#10'var DN01,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), 0) else '#13#10' if m = '#39'0' +
        '2'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1) e' +
        'lse'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39'Da' +
        'teFrom'#39'), -2) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.Ge' +
        'tFieldValue('#39'DateFrom'#39'), -3) else'#13#10' if m = '#39'05'#39' then s := IncMon' +
        'th(Parameter.GetFieldValue('#39'DateFrom'#39'), -4) else'#13#10' if m = '#39'06'#39' t' +
        'hen s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5) else'#13 +
        #10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFr' +
        'om'#39'), -6) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetFie' +
        'ldValue('#39'DateFrom'#39'), -7) else'#13#10' if m = '#39'09'#39' then s := IncMonth(P' +
        'arameter.GetFieldValue('#39'DateFrom'#39'), -8) else'#13#10' if m = '#39'10'#39' then ' +
        's := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9) else'#13#10' if' +
        ' m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39')' +
        ', -10) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetFieldV' +
        'alue('#39'DateFrom'#39'), -11);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), 0)) else'#13#10' if m = '#39'02'#39' then s2 :=' +
        ' EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1)' +
        ') else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Parameter' +
        '.GetFieldValue('#39'DateFrom'#39'), -2)) else'#13#10' if m = '#39'04'#39' then s2 := E' +
        'ndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3)) ' +
        'else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -4)) else'#13#10' if m = '#39'06'#39' then s2 := End' +
        'OfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5)) el' +
        'se'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Get' +
        'FieldValue('#39'DateFrom'#39'), -6)) else'#13#10' if m = '#39'08'#39' then s2 := EndOf' +
        'TheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7)) else' +
        #13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -8)) else'#13#10' if m = '#39'10'#39' then s2 := EndOfTh' +
        'eMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9)) else'#13#10 +
        ' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFiel' +
        'dValue('#39'DateFrom'#39'), -10)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfThe' +
        'Month(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -11));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10'  DN01 := '#39'SELECT' +
        ' SUM(DOCAMT-PAYMENTAMT) FROM AR_DN '#39' + '#13#10'       '#39'WHERE DOCDATE >' +
        '= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10'   ' +
        '    '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39#39' ' +
        '+ Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10#13#10' value := DBSQL_GetField' +
        'Value(DN01);'#13#10'  '#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarDN01'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo32: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarDN02OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarDN02OnCalc(var Value: Variant);'#13#10'var DN02,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -11) else '#13#10' if m = ' +
        #39'02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), 0) ' +
        'else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39'D' +
        'ateFrom'#39'), -1) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -2) else'#13#10' if m = '#39'05'#39' then s := IncMo' +
        'nth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3) else'#13#10' if m = '#39'06'#39' ' +
        'then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -4) else' +
        #13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateF' +
        'rom'#39'), -5) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -6) else'#13#10' if m = '#39'09'#39' then s := IncMonth(' +
        'Parameter.GetFieldValue('#39'DateFrom'#39'), -7) else'#13#10' if m = '#39'10'#39' then' +
        ' s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8) else'#13#10' i' +
        'f m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39 +
        '), -9) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetFieldV' +
        'alue('#39'DateFrom'#39'), -10);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -11)) else'#13#10' if m = '#39'02'#39' then s2 ' +
        ':= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), 0' +
        ')) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Paramete' +
        'r.GetFieldValue('#39'DateFrom'#39'), -1)) else'#13#10' if m = '#39'04'#39' then s2 := ' +
        'EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2))' +
        ' else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.' +
        'GetFieldValue('#39'DateFrom'#39'), -3)) else'#13#10' if m = '#39'06'#39' then s2 := En' +
        'dOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -4)) e' +
        'lse'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Ge' +
        'tFieldValue('#39'DateFrom'#39'), -5)) else'#13#10' if m = '#39'08'#39' then s2 := EndO' +
        'fTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6)) els' +
        'e'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetF' +
        'ieldValue('#39'DateFrom'#39'), -7)) else'#13#10' if m = '#39'10'#39' then s2 := EndOfT' +
        'heMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8)) else'#13 +
        #10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFie' +
        'ldValue('#39'DateFrom'#39'), -9)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfThe' +
        'Month(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -10));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10'DN02 := '#39'SELECT SUM' +
        '(DOCAMT-PAYMENTAMT) FROM AR_DN '#39' + '#13#10'       '#39'WHERE DOCDATE >= '#39#39 +
        ' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10'       ' +
        #39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39#39' + Ma' +
        'in.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10#13#10' value := DBSQL_GetFieldValu' +
        'e(DN02);'#13#10'  '#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarDN02'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo33: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarDN12OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarDN12OnCalc(var Value: Variant);'#13#10'var DN12,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1) else '#13#10' if m = '#39 +
        '02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2) ' +
        'else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39'D' +
        'ateFrom'#39'), -3) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -4) else'#13#10' if m = '#39'05'#39' then s := IncMo' +
        'nth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5) else'#13#10' if m = '#39'06'#39' ' +
        'then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6) else' +
        #13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateF' +
        'rom'#39'), -7) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -8) else'#13#10' if m = '#39'09'#39' then s := IncMonth(' +
        'Parameter.GetFieldValue('#39'DateFrom'#39'), -9) else'#13#10' if m = '#39'10'#39' then' +
        ' s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -10) else'#13#10' ' +
        'if m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom' +
        #39'), -11) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetFiel' +
        'dValue('#39'DateFrom'#39'), 0);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -1)) else'#13#10' if m = '#39'02'#39' then s2 :' +
        '= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2' +
        ')) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Paramete' +
        'r.GetFieldValue('#39'DateFrom'#39'), -3)) else'#13#10' if m = '#39'04'#39' then s2 := ' +
        'EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -4))' +
        ' else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.' +
        'GetFieldValue('#39'DateFrom'#39'), -5)) else'#13#10' if m = '#39'06'#39' then s2 := En' +
        'dOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6)) e' +
        'lse'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Ge' +
        'tFieldValue('#39'DateFrom'#39'), -7)) else'#13#10' if m = '#39'08'#39' then s2 := EndO' +
        'fTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8)) els' +
        'e'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetF' +
        'ieldValue('#39'DateFrom'#39'), -9)) else'#13#10' if m = '#39'10'#39' then s2 := EndOfT' +
        'heMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -10)) else' +
        #13#10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -11)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfT' +
        'heMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), 0));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10'  DN12 := '#39'SELECT' +
        ' SUM(DOCAMT-PAYMENTAMT) FROM AR_DN '#39' + '#13#10'       '#39'WHERE DOCDATE >' +
        '= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10'   ' +
        '    '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39#39' ' +
        '+ Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10#13#10' value := DBSQL_GetField' +
        'Value(DN12);'#13#10'  '#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarDN12'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo34: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarDN11OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarDN11OnCalc(var Value: Variant);'#13#10'var DN11,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2) else '#13#10' if m = '#39 +
        '02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3) ' +
        'else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39'D' +
        'ateFrom'#39'), -4) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -5) else'#13#10' if m = '#39'05'#39' then s := IncMo' +
        'nth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6) else'#13#10' if m = '#39'06'#39' ' +
        'then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7) else' +
        #13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateF' +
        'rom'#39'), -8) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -9) else'#13#10' if m = '#39'09'#39' then s := IncMonth(' +
        'Parameter.GetFieldValue('#39'DateFrom'#39'), -10) else'#13#10' if m = '#39'10'#39' the' +
        'n s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -11) else'#13#10 +
        ' if m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFro' +
        'm'#39'), 0) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetField' +
        'Value('#39'DateFrom'#39'), -1);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -2)) else'#13#10' if m = '#39'02'#39' then s2 :' +
        '= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3' +
        ')) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Paramete' +
        'r.GetFieldValue('#39'DateFrom'#39'), -4)) else'#13#10' if m = '#39'04'#39' then s2 := ' +
        'EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5))' +
        ' else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.' +
        'GetFieldValue('#39'DateFrom'#39'), -6)) else'#13#10' if m = '#39'06'#39' then s2 := En' +
        'dOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7)) e' +
        'lse'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Ge' +
        'tFieldValue('#39'DateFrom'#39'), -8)) else'#13#10' if m = '#39'08'#39' then s2 := EndO' +
        'fTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9)) els' +
        'e'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetF' +
        'ieldValue('#39'DateFrom'#39'), -10)) else'#13#10' if m = '#39'10'#39' then s2 := EndOf' +
        'TheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -11)) els' +
        'e'#13#10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetF' +
        'ieldValue('#39'DateFrom'#39'), 0)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfTh' +
        'eMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10#13#10'  DN11 := '#39'SELE' +
        'CT SUM(DOCAMT-PAYMENTAMT) FROM AR_DN '#39' + '#13#10'       '#39'WHERE DOCDATE' +
        ' >= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10' ' +
        '      '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39 +
        #39' + Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10#13#10' value := DBSQL_GetFie' +
        'ldValue(DN11);'#13#10'  '#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarDN11'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo35: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarDN10OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarDN10OnCalc(var Value: Variant);'#13#10'var DN10,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3) else '#13#10' if m = '#39 +
        '02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -4) ' +
        'else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39'D' +
        'ateFrom'#39'), -5) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -6) else'#13#10' if m = '#39'05'#39' then s := IncMo' +
        'nth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7) else'#13#10' if m = '#39'06'#39' ' +
        'then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8) else' +
        #13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateF' +
        'rom'#39'), -9) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -10) else'#13#10' if m = '#39'09'#39' then s := IncMonth' +
        '(Parameter.GetFieldValue('#39'DateFrom'#39'), -11) else'#13#10' if m = '#39'10'#39' th' +
        'en s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), 0) else'#13#10' ' +
        'if m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom' +
        #39'), -1) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetField' +
        'Value('#39'DateFrom'#39'), -2);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -3)) else'#13#10' if m = '#39'02'#39' then s2 :' +
        '= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -4' +
        ')) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Paramete' +
        'r.GetFieldValue('#39'DateFrom'#39'), -5)) else'#13#10' if m = '#39'04'#39' then s2 := ' +
        'EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6))' +
        ' else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.' +
        'GetFieldValue('#39'DateFrom'#39'), -7)) else'#13#10' if m = '#39'06'#39' then s2 := En' +
        'dOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8)) e' +
        'lse'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Ge' +
        'tFieldValue('#39'DateFrom'#39'), -9)) else'#13#10' if m = '#39'08'#39' then s2 := EndO' +
        'fTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -10)) el' +
        'se'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Get' +
        'FieldValue('#39'DateFrom'#39'), -11)) else'#13#10' if m = '#39'10'#39' then s2 := EndO' +
        'fTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), 0)) else' +
        #13#10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -1)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfTh' +
        'eMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10'  DN10 := '#39'SELECT' +
        ' SUM(DOCAMT-PAYMENTAMT) FROM AR_DN '#39' + '#13#10'       '#39'WHERE DOCDATE >' +
        '= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10'   ' +
        '    '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39#39' ' +
        '+ Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10#13#10' value := DBSQL_GetField' +
        'Value(DN10);'#13#10'  '#13#10'  '#13#10'end;'#13#10#13#10
      raProgram.ComponentName = 'VarDN10'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
      raProgram.CaretPos = (
        3
        6)
    end
    object raProgramInfo36: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'varDN09OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure varDN09OnCalc(var Value: Variant);'#13#10'var DN09,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -4) else '#13#10' if m = '#39 +
        '02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5) ' +
        'else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39'D' +
        'ateFrom'#39'), -6) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -7) else'#13#10' if m = '#39'05'#39' then s := IncMo' +
        'nth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8) else'#13#10' if m = '#39'06'#39' ' +
        'then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9) else' +
        #13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateF' +
        'rom'#39'), -10) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetF' +
        'ieldValue('#39'DateFrom'#39'), -11) else'#13#10' if m = '#39'09'#39' then s := IncMont' +
        'h(Parameter.GetFieldValue('#39'DateFrom'#39'), 0) else'#13#10' if m = '#39'10'#39' the' +
        'n s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1) else'#13#10' ' +
        'if m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom' +
        #39'), -2) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetField' +
        'Value('#39'DateFrom'#39'), -3);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -4)) else'#13#10' if m = '#39'02'#39' then s2 :' +
        '= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5' +
        ')) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Paramete' +
        'r.GetFieldValue('#39'DateFrom'#39'), -6)) else'#13#10' if m = '#39'04'#39' then s2 := ' +
        'EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7))' +
        ' else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.' +
        'GetFieldValue('#39'DateFrom'#39'), -8)) else'#13#10' if m = '#39'06'#39' then s2 := En' +
        'dOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9)) e' +
        'lse'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Ge' +
        'tFieldValue('#39'DateFrom'#39'), -10)) else'#13#10' if m = '#39'08'#39' then s2 := End' +
        'OfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -11)) e' +
        'lse'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Ge' +
        'tFieldValue('#39'DateFrom'#39'), 0)) else'#13#10' if m = '#39'10'#39' then s2 := EndOf' +
        'TheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1)) else' +
        #13#10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -2)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfTh' +
        'eMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10#13#10'  DN09 := '#39'SELE' +
        'CT SUM(DOCAMT-PAYMENTAMT) FROM AR_DN '#39' + '#13#10'       '#39'WHERE DOCDATE' +
        ' >= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10' ' +
        '      '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39 +
        #39' + Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10#13#10' value := DBSQL_GetFie' +
        'ldValue(DN09);'#13#10'  '#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'varDN09'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo37: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarDN08OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarDN08OnCalc(var Value: Variant);'#13#10'var DN08,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5) else '#13#10' if m = '#39 +
        '02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6) ' +
        'else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39'D' +
        'ateFrom'#39'), -7) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -8) else'#13#10' if m = '#39'05'#39' then s := IncMo' +
        'nth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9) else'#13#10' if m = '#39'06'#39' ' +
        'then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -10) els' +
        'e'#13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'Date' +
        'From'#39'), -11) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.Get' +
        'FieldValue('#39'DateFrom'#39'), 0) else'#13#10' if m = '#39'09'#39' then s := IncMonth' +
        '(Parameter.GetFieldValue('#39'DateFrom'#39'), -1) else'#13#10' if m = '#39'10'#39' the' +
        'n s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2) else'#13#10' ' +
        'if m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom' +
        #39'), -3) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetField' +
        'Value('#39'DateFrom'#39'), -4);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -5)) else'#13#10' if m = '#39'02'#39' then s2 :' +
        '= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6' +
        ')) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Paramete' +
        'r.GetFieldValue('#39'DateFrom'#39'), -7)) else'#13#10' if m = '#39'04'#39' then s2 := ' +
        'EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -8))' +
        ' else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.' +
        'GetFieldValue('#39'DateFrom'#39'), -9)) else'#13#10' if m = '#39'06'#39' then s2 := En' +
        'dOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -10)) ' +
        'else'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -11)) else'#13#10' if m = '#39'08'#39' then s2 := En' +
        'dOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), 0)) el' +
        'se'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Get' +
        'FieldValue('#39'DateFrom'#39'), -1)) else'#13#10' if m = '#39'10'#39' then s2 := EndOf' +
        'TheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -2)) else' +
        #13#10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -3)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfTh' +
        'eMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -4));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10#13#10'  DN08 := '#39'SELE' +
        'CT SUM(DOCAMT-PAYMENTAMT) FROM AR_DN '#39' + '#13#10'       '#39'WHERE DOCDATE' +
        ' >= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10' ' +
        '      '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39 +
        #39' + Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10#13#10' value := DBSQL_GetFie' +
        'ldValue(DN08);'#13#10'  '#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarDN08'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
      raProgram.CaretPos = (
        3
        6)
    end
    object raProgramInfo38: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarDN07OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarDN07OnCalc(var Value: Variant);'#13#10'var DN07,ds,ds2,m:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10' '#13#10' m := FormatDateTime('#39'mm'#39',Par' +
        'ameter.GetFieldValue('#39'DateFrom'#39'));'#13#10' '#13#10' if m = '#39'01'#39' then s := In' +
        'cMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -6) else '#13#10' if m = '#39 +
        '02'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7) ' +
        'else'#13#10' if m = '#39'03'#39' then s := IncMonth(Parameter.GetFieldValue('#39'D' +
        'ateFrom'#39'), -8) else'#13#10' if m = '#39'04'#39' then s := IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -9) else'#13#10' if m = '#39'05'#39' then s := IncMo' +
        'nth(Parameter.GetFieldValue('#39'DateFrom'#39'), -10) else'#13#10' if m = '#39'06'#39 +
        ' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -11) el' +
        'se'#13#10' if m = '#39'07'#39' then s := IncMonth(Parameter.GetFieldValue('#39'Dat' +
        'eFrom'#39'), 0) else'#13#10' if m = '#39'08'#39' then s := IncMonth(Parameter.GetF' +
        'ieldValue('#39'DateFrom'#39'), -1) else'#13#10' if m = '#39'09'#39' then s := IncMonth' +
        '(Parameter.GetFieldValue('#39'DateFrom'#39'), -2) else'#13#10' if m = '#39'10'#39' the' +
        'n s := IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3) else'#13#10' ' +
        'if m = '#39'11'#39' then s := IncMonth(Parameter.GetFieldValue('#39'DateFrom' +
        #39'), -4) else'#13#10' if m = '#39'12'#39' then s := IncMonth(Parameter.GetField' +
        'Value('#39'DateFrom'#39'), -5);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy' +
        #39', s);'#13#10' '#13#10' if m = '#39'01'#39' then s2 := EndOfTheMonth(IncMonth(Parame' +
        'ter.GetFieldValue('#39'DateFrom'#39'), -6)) else'#13#10' if m = '#39'02'#39' then s2 :' +
        '= EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -7' +
        ')) else'#13#10' if m = '#39'03'#39' then s2 := EndOfTheMonth(IncMonth(Paramete' +
        'r.GetFieldValue('#39'DateFrom'#39'), -8)) else'#13#10' if m = '#39'04'#39' then s2 := ' +
        'EndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -9))' +
        ' else'#13#10' if m = '#39'05'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.' +
        'GetFieldValue('#39'DateFrom'#39'), -10)) else'#13#10' if m = '#39'06'#39' then s2 := E' +
        'ndOfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -11))' +
        ' else'#13#10' if m = '#39'07'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.' +
        'GetFieldValue('#39'DateFrom'#39'), 0)) else'#13#10' if m = '#39'08'#39' then s2 := End' +
        'OfTheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -1)) el' +
        'se'#13#10' if m = '#39'09'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.Get' +
        'FieldValue('#39'DateFrom'#39'), -2)) else'#13#10' if m = '#39'10'#39' then s2 := EndOf' +
        'TheMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -3)) else' +
        #13#10' if m = '#39'11'#39' then s2 := EndOfTheMonth(IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -4)) else'#13#10' if m = '#39'12'#39' then s2 := EndOfTh' +
        'eMonth(IncMonth(Parameter.GetFieldValue('#39'DateFrom'#39'), -5));'#13#10'  '#13#10 +
        ' DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s2);'#13#10#13#10#13#10#13#10'  DN07 := '#39'SELE' +
        'CT SUM(DOCAMT-PAYMENTAMT) FROM AR_DN '#39' + '#13#10'       '#39'WHERE DOCDATE' +
        ' >= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39' '#39' + ds2 + '#39#39#39' '#39' + '#13#10' ' +
        '      '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39 +
        #39' + Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10#13#10' value := DBSQL_GetFie' +
        'ldValue(DN07);'#13#10'  '#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarDN07'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo39: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarDecOnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarDecOnCalc(var Value: Variant);'#13#10'var'#13#10'  c1,c2,c3,c4,' +
        'c5,c6,c7,c8,c9,c10,c11,c12: string;'#13#10'  a1,a2,a3,a4,a5,a6,a7,a8,a' +
        '9,a10,a11,a12: integer;'#13#10'begin'#13#10#13#10'  c12:=copy(AgingHeader.getfie' +
        'ldvalue('#39'C12'#39'),0,3);'#13#10'  if c12='#39'Jan'#39' then if Aging.getfieldvalue' +
        '('#39'C1'#39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C1' +
        #39');'#13#10'  if c12='#39'Feb'#39' then if Aging.getfieldvalue('#39'C2'#39')=null then ' +
        'value := 0 else Value:= Aging.getfieldvalue('#39'C2'#39');'#13#10'  if c12='#39'Ma' +
        'r'#39' then if Aging.getfieldvalue('#39'C3'#39')=null then value := 0 else V' +
        'alue:= Aging.getfieldvalue('#39'C3'#39');'#13#10'  if c12='#39'Apr'#39' then if Aging.' +
        'getfieldvalue('#39'C4'#39')=null then value := 0 else Value:= Aging.getf' +
        'ieldvalue('#39'C4'#39');'#13#10'  if c12='#39'May'#39' then if Aging.getfieldvalue('#39'C5' +
        #39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C5'#39');'#13 +
        #10'  if c12='#39'Jun'#39' then if Aging.getfieldvalue('#39'C6'#39')=null then valu' +
        'e := 0 else Value:= Aging.getfieldvalue('#39'C6'#39');'#13#10'  if c12='#39'Jul'#39' t' +
        'hen if Aging.getfieldvalue('#39'C7'#39')=null then value := 0 else Value' +
        ':= Aging.getfieldvalue('#39'C7'#39');'#13#10'  if c12='#39'Aug'#39' then if Aging.getf' +
        'ieldvalue('#39'C8'#39')=null then value := 0 else Value:= Aging.getfield' +
        'value('#39'C8'#39');'#13#10'  if c12='#39'Sep'#39' then if Aging.getfieldvalue('#39'C9'#39')=n' +
        'ull then value := 0 else Value:= Aging.getfieldvalue('#39'C9'#39');'#13#10'  i' +
        'f c12='#39'Oct'#39' then if Aging.getfieldvalue('#39'C10'#39')=null then value :' +
        '= 0 else Value:= Aging.getfieldvalue('#39'C10'#39');'#13#10'  if c12='#39'Nov'#39' the' +
        'n if Aging.getfieldvalue('#39'C11'#39')=null then value := 0 else Value:' +
        '= Aging.getfieldvalue('#39'C11'#39');'#13#10'  if c12='#39'Dec'#39' then if Aging.getf' +
        'ieldvalue('#39'C12'#39')=null then value := 0 else Value:= Aging.getfiel' +
        'dvalue('#39'C12'#39');'#13#10'end;'#13#10
      raProgram.ComponentName = 'VarDec'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
      raProgram.CaretPos = (
        5
        20)
    end
    object raProgramInfo40: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarNovOnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarNovOnCalc(var Value: Variant);'#13#10'var'#13#10'  c1,c2,c3,c4,' +
        'c5,c6,c7,c8,c9,c10,c11,c12: string;'#13#10'  a1,a2,a3,a4,a5,a6,a7,a8,a' +
        '9,a10,a11,a12: integer;'#13#10'begin'#13#10#13#10'  c11:=copy(AgingHeader.getfie' +
        'ldvalue('#39'C11'#39'),0,3);'#13#10'  if c11='#39'Jan'#39' then if Aging.getfieldvalue' +
        '('#39'C1'#39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C1' +
        #39');'#13#10'  if c11='#39'Feb'#39' then if Aging.getfieldvalue('#39'C2'#39')=null then ' +
        'value := 0 else Value:= Aging.getfieldvalue('#39'C2'#39');'#13#10'  if c11='#39'Ma' +
        'r'#39' then if Aging.getfieldvalue('#39'C3'#39')=null then value := 0 else V' +
        'alue:= Aging.getfieldvalue('#39'C3'#39');'#13#10'  if c11='#39'Apr'#39' then if Aging.' +
        'getfieldvalue('#39'C4'#39')=null then value := 0 else Value:= Aging.getf' +
        'ieldvalue('#39'C4'#39');'#13#10'  if c11='#39'May'#39' then if Aging.getfieldvalue('#39'C5' +
        #39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C5'#39');'#13 +
        #10'  if c11='#39'Jun'#39' then if Aging.getfieldvalue('#39'C6'#39')=null then valu' +
        'e := 0 else Value:= Aging.getfieldvalue('#39'C6'#39');'#13#10'  if c11='#39'Jul'#39' t' +
        'hen if Aging.getfieldvalue('#39'C7'#39')=null then value := 0 else Value' +
        ':= Aging.getfieldvalue('#39'C7'#39');'#13#10'  if c11='#39'Aug'#39' then if Aging.getf' +
        'ieldvalue('#39'C8'#39')=null then value := 0 else Value:= Aging.getfield' +
        'value('#39'C8'#39');'#13#10'  if c11='#39'Sep'#39' then if Aging.getfieldvalue('#39'C9'#39')=n' +
        'ull then value := 0 else Value:= Aging.getfieldvalue('#39'C9'#39');'#13#10'  i' +
        'f c11='#39'Oct'#39' then if Aging.getfieldvalue('#39'C10'#39')=null then value :' +
        '= 0 else Value:= Aging.getfieldvalue('#39'C10'#39');'#13#10'  if c11='#39'Nov'#39' the' +
        'n if Aging.getfieldvalue('#39'C11'#39')=null then value := 0 else Value:' +
        '= Aging.getfieldvalue('#39'C11'#39');'#13#10'  if c11='#39'Dec'#39' then if Aging.getf' +
        'ieldvalue('#39'C12'#39')=null then value := 0 else Value:= Aging.getfiel' +
        'dvalue('#39'C12'#39');'#13#10'end;'#13#10
      raProgram.ComponentName = 'VarNov'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
      raProgram.CaretPos = (
        5
        20)
    end
    object raProgramInfo41: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarOctOnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarOctOnCalc(var Value: Variant);'#13#10'var'#13#10'  c1,c2,c3,c4,' +
        'c5,c6,c7,c8,c9,c10,c11,c12: string;'#13#10'  a1,a2,a3,a4,a5,a6,a7,a8,a' +
        '9,a10,a11,a12: integer;'#13#10'begin'#13#10'  c10:=copy(AgingHeader.getfield' +
        'value('#39'C10'#39'),0,3);'#13#10#13#10'  if c10='#39'Jan'#39' then if Aging.getfieldvalue' +
        '('#39'C1'#39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C1' +
        #39');'#13#10'  if c10='#39'Feb'#39' then if Aging.getfieldvalue('#39'C2'#39')=null then ' +
        'value := 0 else Value:= Aging.getfieldvalue('#39'C2'#39');'#13#10'  if c10='#39'Ma' +
        'r'#39' then if Aging.getfieldvalue('#39'C3'#39')=null then value := 0 else V' +
        'alue:= Aging.getfieldvalue('#39'C3'#39');'#13#10'  if c10='#39'Apr'#39' then if Aging.' +
        'getfieldvalue('#39'C4'#39')=null then value := 0 else Value:= Aging.getf' +
        'ieldvalue('#39'C4'#39');'#13#10'  if c10='#39'May'#39' then if Aging.getfieldvalue('#39'C5' +
        #39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C5'#39');'#13 +
        #10'  if c10='#39'Jun'#39' then if Aging.getfieldvalue('#39'C6'#39')=null then valu' +
        'e := 0 else Value:= Aging.getfieldvalue('#39'C6'#39');'#13#10'  if c10='#39'Jul'#39' t' +
        'hen if Aging.getfieldvalue('#39'C7'#39')=null then value := 0 else Value' +
        ':= Aging.getfieldvalue('#39'C7'#39');'#13#10'  if c10='#39'Aug'#39' then if Aging.getf' +
        'ieldvalue('#39'C8'#39')=null then value := 0 else Value:= Aging.getfield' +
        'value('#39'C8'#39');'#13#10'  if c10='#39'Sep'#39' then if Aging.getfieldvalue('#39'C9'#39')=n' +
        'ull then value := 0 else Value:= Aging.getfieldvalue('#39'C9'#39');'#13#10'  i' +
        'f c10='#39'Oct'#39' then if Aging.getfieldvalue('#39'C10'#39')=null then value :' +
        '= 0 else Value:= Aging.getfieldvalue('#39'C10'#39');'#13#10'  if c10='#39'Nov'#39' the' +
        'n if Aging.getfieldvalue('#39'C11'#39')=null then value := 0 else Value:' +
        '= Aging.getfieldvalue('#39'C11'#39');'#13#10'  if c10='#39'Dec'#39' then if Aging.getf' +
        'ieldvalue('#39'C12'#39')=null then value := 0 else Value:= Aging.getfiel' +
        'dvalue('#39'C12'#39');'#13#10'end;'#13#10
      raProgram.ComponentName = 'VarOct'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
      raProgram.CaretPos = (
        5
        20)
    end
    object raProgramInfo42: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarSepOnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarSepOnCalc(var Value: Variant);'#13#10'var'#13#10'  c1,c2,c3,c4,' +
        'c5,c6,c7,c8,c9,c10,c11,c12: string;'#13#10'  a1,a2,a3,a4,a5,a6,a7,a8,a' +
        '9,a10,a11,a12: integer;'#13#10'begin'#13#10#13#10'  c9:=copy(AgingHeader.getfiel' +
        'dvalue('#39'C9'#39'),0,3);'#13#10#13#10'  if c9='#39'Jan'#39' then if Aging.getfieldvalue(' +
        #39'C1'#39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C1'#39 +
        ');'#13#10'  if c9='#39'Feb'#39' then if Aging.getfieldvalue('#39'C2'#39')=null then va' +
        'lue := 0 else Value:= Aging.getfieldvalue('#39'C2'#39');'#13#10'  if c9='#39'Mar'#39' ' +
        'then if Aging.getfieldvalue('#39'C3'#39')=null then value := 0 else Valu' +
        'e:= Aging.getfieldvalue('#39'C3'#39');'#13#10'  if c9='#39'Apr'#39' then if Aging.getf' +
        'ieldvalue('#39'C4'#39')=null then value := 0 else Value:= Aging.getfield' +
        'value('#39'C4'#39');'#13#10'  if c9='#39'May'#39' then if Aging.getfieldvalue('#39'C5'#39')=nu' +
        'll then value := 0 else Value:= Aging.getfieldvalue('#39'C5'#39');'#13#10'  if' +
        ' c9='#39'Jun'#39' then if Aging.getfieldvalue('#39'C6'#39')=null then value := 0' +
        ' else Value:= Aging.getfieldvalue('#39'C6'#39');'#13#10'  if c9='#39'Jul'#39' then if ' +
        'Aging.getfieldvalue('#39'C7'#39')=null then value := 0 else Value:= Agin' +
        'g.getfieldvalue('#39'C7'#39');'#13#10'  if c9='#39'Aug'#39' then if Aging.getfieldvalu' +
        'e('#39'C8'#39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C' +
        '8'#39');'#13#10'  if c9='#39'Sep'#39' then if Aging.getfieldvalue('#39'C9'#39')=null then ' +
        'value := 0 else Value:= Aging.getfieldvalue('#39'C9'#39');'#13#10'  if c9='#39'Oct' +
        #39' then if Aging.getfieldvalue('#39'C10'#39')=null then value := 0 else V' +
        'alue:= Aging.getfieldvalue('#39'C10'#39');'#13#10'  if c9='#39'Nov'#39' then if Aging.' +
        'getfieldvalue('#39'C11'#39')=null then value := 0 else Value:= Aging.get' +
        'fieldvalue('#39'C11'#39');'#13#10'  if c9='#39'Dec'#39' then if Aging.getfieldvalue('#39'C' +
        '12'#39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C12'#39 +
        ');'#13#10#13#10'end;'#13#10
      raProgram.ComponentName = 'VarSep'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
      raProgram.CaretPos = (
        5
        22)
    end
    object raProgramInfo43: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarAugOnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarAugOnCalc(var Value: Variant);'#13#10'var'#13#10'  c1,c2,c3,c4,' +
        'c5,c6,c7,c8,c9,c10,c11,c12: string;'#13#10'  a1,a2,a3,a4,a5,a6,a7,a8,a' +
        '9,a10,a11,a12: integer;'#13#10'begin'#13#10'  c8:=copy(AgingHeader.getfieldv' +
        'alue('#39'C8'#39'),0,3);'#13#10'  if c8='#39'Jan'#39' then if Aging.getfieldvalue('#39'C1'#39 +
        ')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C1'#39');'#13#10 +
        '  if c8='#39'Feb'#39' then if Aging.getfieldvalue('#39'C2'#39')=null then value ' +
        ':= 0 else Value:= Aging.getfieldvalue('#39'C2'#39');'#13#10'  if c8='#39'Mar'#39' then' +
        ' if Aging.getfieldvalue('#39'C3'#39')=null then value := 0 else Value:= ' +
        'Aging.getfieldvalue('#39'C3'#39');'#13#10'  if c8='#39'Apr'#39' then if Aging.getfield' +
        'value('#39'C4'#39')=null then value := 0 else Value:= Aging.getfieldvalu' +
        'e('#39'C4'#39');'#13#10'  if c8='#39'May'#39' then if Aging.getfieldvalue('#39'C5'#39')=null t' +
        'hen value := 0 else Value:= Aging.getfieldvalue('#39'C5'#39');'#13#10'  if c8=' +
        #39'Jun'#39' then if Aging.getfieldvalue('#39'C6'#39')=null then value := 0 els' +
        'e Value:= Aging.getfieldvalue('#39'C6'#39');'#13#10'  if c8='#39'Jul'#39' then if Agin' +
        'g.getfieldvalue('#39'C7'#39')=null then value := 0 else Value:= Aging.ge' +
        'tfieldvalue('#39'C7'#39');'#13#10'  if c8='#39'Aug'#39' then if Aging.getfieldvalue('#39'C' +
        '8'#39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C8'#39');' +
        #13#10'  if c8='#39'Sep'#39' then if Aging.getfieldvalue('#39'C9'#39')=null then valu' +
        'e := 0 else Value:= Aging.getfieldvalue('#39'C9'#39');'#13#10'  if c8='#39'Oct'#39' th' +
        'en if Aging.getfieldvalue('#39'C10'#39')=null then value := 0 else Value' +
        ':= Aging.getfieldvalue('#39'C10'#39');'#13#10'  if c8='#39'Nov'#39' then if Aging.getf' +
        'ieldvalue('#39'C11'#39')=null then value := 0 else Value:= Aging.getfiel' +
        'dvalue('#39'C11'#39');'#13#10'  if c8='#39'Dec'#39' then if Aging.getfieldvalue('#39'C12'#39')' +
        '=null then value := 0 else Value:= Aging.getfieldvalue('#39'C12'#39');'#13#10 +
        'end;'#13#10#13#10#13#10
      raProgram.ComponentName = 'VarAug'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
      raProgram.CaretPos = (
        5
        19)
    end
    object raProgramInfo44: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarJulOnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarJulOnCalc(var Value: Variant);'#13#10'var'#13#10'  c1,c2,c3,c4,' +
        'c5,c6,c7,c8,c9,c10,c11,c12: string;'#13#10'  a1,a2,a3,a4,a5,a6,a7,a8,a' +
        '9,a10,a11,a12: integer;'#13#10'begin'#13#10#13#10'  c7:=copy(AgingHeader.getfiel' +
        'dvalue('#39'C7'#39'),0,3);'#13#10'  if c7='#39'Jan'#39' then if Aging.getfieldvalue('#39'C' +
        '1'#39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C1'#39');' +
        #13#10'  if c7='#39'Feb'#39' then if Aging.getfieldvalue('#39'C2'#39')=null then valu' +
        'e := 0 else Value:= Aging.getfieldvalue('#39'C2'#39');'#13#10'  if c7='#39'Mar'#39' th' +
        'en if Aging.getfieldvalue('#39'C3'#39')=null then value := 0 else Value:' +
        '= Aging.getfieldvalue('#39'C3'#39');'#13#10'  if c7='#39'Apr'#39' then if Aging.getfie' +
        'ldvalue('#39'C4'#39')=null then value := 0 else Value:= Aging.getfieldva' +
        'lue('#39'C4'#39');'#13#10'  if c7='#39'May'#39' then if Aging.getfieldvalue('#39'C5'#39')=null' +
        ' then value := 0 else Value:= Aging.getfieldvalue('#39'C5'#39');'#13#10'  if c' +
        '7='#39'Jun'#39' then if Aging.getfieldvalue('#39'C6'#39')=null then value := 0 e' +
        'lse Value:= Aging.getfieldvalue('#39'C6'#39');'#13#10'  if c7='#39'Jul'#39' then if Ag' +
        'ing.getfieldvalue('#39'C7'#39')=null then value := 0 else Value:= Aging.' +
        'getfieldvalue('#39'C7'#39');'#13#10'  if c7='#39'Aug'#39' then if Aging.getfieldvalue(' +
        #39'C8'#39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C8'#39 +
        ');'#13#10'  if c7='#39'Sep'#39' then if Aging.getfieldvalue('#39'C9'#39')=null then va' +
        'lue := 0 else Value:= Aging.getfieldvalue('#39'C9'#39');'#13#10'  if c7='#39'Oct'#39' ' +
        'then if Aging.getfieldvalue('#39'C10'#39')=null then value := 0 else Val' +
        'ue:= Aging.getfieldvalue('#39'C10'#39');'#13#10'  if c7='#39'Nov'#39' then if Aging.ge' +
        'tfieldvalue('#39'C11'#39')=null then value := 0 else Value:= Aging.getfi' +
        'eldvalue('#39'C11'#39');'#13#10'  if c7='#39'Dec'#39' then if Aging.getfieldvalue('#39'C12' +
        #39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C12'#39');' +
        #13#10'end;'#13#10
      raProgram.ComponentName = 'VarJul'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
      raProgram.CaretPos = (
        5
        20)
    end
    object raProgramInfo45: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarMayOnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarMayOnCalc(var Value: Variant);'#13#10'var'#13#10'  c1,c2,c3,c4,' +
        'c5,c6,c7,c8,c9,c10,c11,c12: string;'#13#10'  a1,a2,a3,a4,a5,a6,a7,a8,a' +
        '9,a10,a11,a12: integer;'#13#10'begin'#13#10'  c5:=copy(AgingHeader.getfieldv' +
        'alue('#39'C5'#39'),0,3); {//mar}'#13#10'{  if c5='#39'Mar'#39' then if Aging.getfieldv' +
        'alue('#39'C3'#39')=null then value := 0 else Value:= Aging.getfieldvalue' +
        '('#39'C3'#39');}'#13#10#13#10'  if c5='#39'Jan'#39' then if Aging.getfieldvalue('#39'C1'#39')=null' +
        ' then value := 0 else Value:= Aging.getfieldvalue('#39'C1'#39');'#13#10'  if c' +
        '5='#39'Feb'#39' then if Aging.getfieldvalue('#39'C2'#39')=null then value := 0 e' +
        'lse Value:= Aging.getfieldvalue('#39'C2'#39');'#13#10'  if c5='#39'Mar'#39' then if Ag' +
        'ing.getfieldvalue('#39'C3'#39')=null then value := 0 else Value:= Aging.' +
        'getfieldvalue('#39'C3'#39');'#13#10'  if c5='#39'Apr'#39' then if Aging.getfieldvalue(' +
        #39'C4'#39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C4'#39 +
        ');'#13#10'  if c5='#39'May'#39' then if Aging.getfieldvalue('#39'C5'#39')=null then va' +
        'lue := 0 else Value:= Aging.getfieldvalue('#39'C5'#39');'#13#10'  if c5='#39'Jun'#39' ' +
        'then if Aging.getfieldvalue('#39'C6'#39')=null then value := 0 else Valu' +
        'e:= Aging.getfieldvalue('#39'C6'#39');'#13#10'  if c5='#39'Jul'#39' then if Aging.getf' +
        'ieldvalue('#39'C7'#39')=null then value := 0 else Value:= Aging.getfield' +
        'value('#39'C7'#39');'#13#10'  if c5='#39'Aug'#39' then if Aging.getfieldvalue('#39'C8'#39')=nu' +
        'll then value := 0 else Value:= Aging.getfieldvalue('#39'C8'#39');'#13#10'  if' +
        ' c5='#39'Sep'#39' then if Aging.getfieldvalue('#39'C9'#39')=null then value := 0' +
        ' else Value:= Aging.getfieldvalue('#39'C9'#39');'#13#10'  if c5='#39'Oct'#39' then if ' +
        'Aging.getfieldvalue('#39'C10'#39')=null then value := 0 else Value:= Agi' +
        'ng.getfieldvalue('#39'C10'#39');'#13#10'  if c5='#39'Nov'#39' then if Aging.getfieldva' +
        'lue('#39'C11'#39')=null then value := 0 else Value:= Aging.getfieldvalue' +
        '('#39'C11'#39');'#13#10'  if c5='#39'Dec'#39' then if Aging.getfieldvalue('#39'C12'#39')=null ' +
        'then value := 0 else Value:= Aging.getfieldvalue('#39'C12'#39');'#13#10#13#10'end;' +
        #13#10
      raProgram.ComponentName = 'VarMay'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
      raProgram.CaretPos = (
        5
        22)
    end
    object raProgramInfo46: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarAprOnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarAprOnCalc(var Value: Variant);'#13#10'var'#13#10'  c1,c2,c3,c4,' +
        'c5,c6,c7,c8,c9,c10,c11,c12: string;'#13#10'  a1,a2,a3,a4,a5,a6,a7,a8,a' +
        '9,a10,a11,a12: integer;'#13#10'begin'#13#10'  c4:=copy(AgingHeader.getfieldv' +
        'alue('#39'C4'#39'),0,3);'#13#10#13#10'  if c4='#39'Jan'#39' then if Aging.getfieldvalue('#39'C' +
        '1'#39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C1'#39');' +
        #13#10'  if c4='#39'Feb'#39' then if Aging.getfieldvalue('#39'C2'#39')=null then valu' +
        'e := 0 else Value:= Aging.getfieldvalue('#39'C2'#39');'#13#10'  if c4='#39'Mar'#39' th' +
        'en if Aging.getfieldvalue('#39'C3'#39')=null then value := 0 else Value:' +
        '= Aging.getfieldvalue('#39'C3'#39');'#13#10'  if c4='#39'Apr'#39' then if Aging.getfie' +
        'ldvalue('#39'C4'#39')=null then value := 0 else Value:= Aging.getfieldva' +
        'lue('#39'C4'#39');'#13#10'  if c4='#39'May'#39' then if Aging.getfieldvalue('#39'C5'#39')=null' +
        ' then value := 0 else Value:= Aging.getfieldvalue('#39'C5'#39');'#13#10'  if c' +
        '4='#39'Jun'#39' then if Aging.getfieldvalue('#39'C6'#39')=null then value := 0 e' +
        'lse Value:= Aging.getfieldvalue('#39'C6'#39');'#13#10'  if c4='#39'Jul'#39' then if Ag' +
        'ing.getfieldvalue('#39'C7'#39')=null then value := 0 else Value:= Aging.' +
        'getfieldvalue('#39'C7'#39');'#13#10'  if c4='#39'Aug'#39' then if Aging.getfieldvalue(' +
        #39'C8'#39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C8'#39 +
        ');'#13#10'  if c4='#39'Sep'#39' then if Aging.getfieldvalue('#39'C9'#39')=null then va' +
        'lue := 0 else Value:= Aging.getfieldvalue('#39'C9'#39');'#13#10'  if c4='#39'Oct'#39' ' +
        'then if Aging.getfieldvalue('#39'C10'#39')=null then value := 0 else Val' +
        'ue:= Aging.getfieldvalue('#39'C10'#39');'#13#10'  if c4='#39'Nov'#39' then if Aging.ge' +
        'tfieldvalue('#39'C11'#39')=null then value := 0 else Value:= Aging.getfi' +
        'eldvalue('#39'C11'#39');'#13#10'  if c4='#39'Dec'#39' then if Aging.getfieldvalue('#39'C12' +
        #39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C12'#39');' +
        #13#10'end;'#13#10
      raProgram.ComponentName = 'VarApr'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
      raProgram.CaretPos = (
        5
        20)
    end
    object raProgramInfo47: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarMarOnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarMarOnCalc(var Value: Variant);'#13#10'var'#13#10'  c1,c2,c3,c4,' +
        'c5,c6,c7,c8,c9,c10,c11,c12: string;'#13#10'  a1,a2,a3,a4,a5,a6,a7,a8,a' +
        '9,a10,a11,a12: integer;'#13#10'begin'#13#10'  c1:=copy(AgingHeader.getfieldv' +
        'alue('#39'C1'#39'),0,3);'#13#10'  c2:=copy(AgingHeader.getfieldvalue('#39'C2'#39'),0,3' +
        ');'#13#10'  c3:=copy(AgingHeader.getfieldvalue('#39'C3'#39'),0,3);'#13#10'  if c3='#39'J' +
        'an'#39' then if Aging.getfieldvalue('#39'C1'#39')=null then value := 0 else ' +
        'Value:= Aging.getfieldvalue('#39'C1'#39');'#13#10'  if c3='#39'Feb'#39' then if Aging.' +
        'getfieldvalue('#39'C2'#39')=null then value := 0 else Value:= Aging.getf' +
        'ieldvalue('#39'C2'#39');'#13#10'  if c3='#39'Mar'#39' then if Aging.getfieldvalue('#39'C3'#39 +
        ')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C3'#39');'#13#10 +
        '  if c3='#39'Apr'#39' then if Aging.getfieldvalue('#39'C4'#39')=null then value ' +
        ':= 0 else Value:= Aging.getfieldvalue('#39'C4'#39');'#13#10'  if c3='#39'May'#39' then' +
        ' if Aging.getfieldvalue('#39'C5'#39')=null then value := 0 else Value:= ' +
        'Aging.getfieldvalue('#39'C5'#39');'#13#10'  if c3='#39'Jun'#39' then if Aging.getfield' +
        'value('#39'C6'#39')=null then value := 0 else Value:= Aging.getfieldvalu' +
        'e('#39'C6'#39');'#13#10'  if c3='#39'Jul'#39' then if Aging.getfieldvalue('#39'C7'#39')=null t' +
        'hen value := 0 else Value:= Aging.getfieldvalue('#39'C7'#39');'#13#10'  if c3=' +
        #39'Aug'#39' then if Aging.getfieldvalue('#39'C8'#39')=null then value := 0 els' +
        'e Value:= Aging.getfieldvalue('#39'C8'#39');'#13#10'  if c3='#39'Sep'#39' then if Agin' +
        'g.getfieldvalue('#39'C9'#39')=null then value := 0 else Value:= Aging.ge' +
        'tfieldvalue('#39'C9'#39');'#13#10'  if c3='#39'Oct'#39' then if Aging.getfieldvalue('#39'C' +
        '10'#39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C10'#39 +
        ');'#13#10'  if c3='#39'Nov'#39' then if Aging.getfieldvalue('#39'C11'#39')=null then v' +
        'alue := 0 else Value:= Aging.getfieldvalue('#39'C11'#39');'#13#10'  if c3='#39'Dec' +
        #39' then if Aging.getfieldvalue('#39'C12'#39')=null then value := 0 else V' +
        'alue:= Aging.getfieldvalue('#39'C12'#39');end;'#13#10
      raProgram.ComponentName = 'VarMar'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
      raProgram.CaretPos = (
        115
        20)
    end
    object raProgramInfo48: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarFebOnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarFebOnCalc(var Value: Variant);'#13#10'var'#13#10'  c1,c2,c3,c4,' +
        'c5,c6,c7,c8,c9,c10,c11,c12: string;'#13#10'  a1,a2,a3,a4,a5,a6,a7,a8,a' +
        '9,a10,a11,a12: integer;'#13#10'begin'#13#10#13#10'  c2:=copy(AgingHeader.getfiel' +
        'dvalue('#39'C2'#39'),0,3);'#13#10#13#10'  if c2='#39'Jan'#39' then if Aging.getfieldvalue(' +
        #39'C1'#39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C1'#39 +
        ');'#13#10'  if c2='#39'Feb'#39' then if Aging.getfieldvalue('#39'C2'#39')=null then va' +
        'lue := 0 else Value:= Aging.getfieldvalue('#39'C2'#39');'#13#10'  if c2='#39'Mar'#39' ' +
        'then if Aging.getfieldvalue('#39'C3'#39')=null then value := 0 else Valu' +
        'e:= Aging.getfieldvalue('#39'C3'#39');'#13#10'  if c2='#39'Apr'#39' then if Aging.getf' +
        'ieldvalue('#39'C4'#39')=null then value := 0 else Value:= Aging.getfield' +
        'value('#39'C4'#39');'#13#10'  if c2='#39'May'#39' then if Aging.getfieldvalue('#39'C5'#39')=nu' +
        'll then value := 0 else Value:= Aging.getfieldvalue('#39'C5'#39');'#13#10'  if' +
        ' c2='#39'Jun'#39' then if Aging.getfieldvalue('#39'C6'#39')=null then value := 0' +
        ' else Value:= Aging.getfieldvalue('#39'C6'#39');'#13#10'  if c2='#39'Jul'#39' then if ' +
        'Aging.getfieldvalue('#39'C7'#39')=null then value := 0 else Value:= Agin' +
        'g.getfieldvalue('#39'C7'#39');'#13#10'  if c2='#39'Aug'#39' then if Aging.getfieldvalu' +
        'e('#39'C8'#39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C' +
        '8'#39');'#13#10'  if c2='#39'Sep'#39' then if Aging.getfieldvalue('#39'C9'#39')=null then ' +
        'value := 0 else Value:= Aging.getfieldvalue('#39'C9'#39');'#13#10'  if c2='#39'Oct' +
        #39' then if Aging.getfieldvalue('#39'C10'#39')=null then value := 0 else V' +
        'alue:= Aging.getfieldvalue('#39'C10'#39');'#13#10'  if c2='#39'Nov'#39' then if Aging.' +
        'getfieldvalue('#39'C11'#39')=null then value := 0 else Value:= Aging.get' +
        'fieldvalue('#39'C11'#39');'#13#10'  if c2='#39'Dec'#39' then if Aging.getfieldvalue('#39'C' +
        '12'#39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C12'#39 +
        ');'#13#10'end;'#13#10
      raProgram.ComponentName = 'VarFeb'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
      raProgram.CaretPos = (
        5
        21)
    end
    object raProgramInfo49: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarJanOnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarJanOnCalc(var Value: Variant);'#13#10'var'#13#10'  c1,c2,c3,c4,' +
        'c5,c6,c7,c8,c9,c10,c11,c12: string;'#13#10'  a1,a2,a3,a4,a5,a6,a7,a8,a' +
        '9,a10,a11,a12: integer;'#13#10'begin'#13#10'  c1:=copy(AgingHeader.getfieldv' +
        'alue('#39'C1'#39'),0,3);'#13#10'  c2:=copy(AgingHeader.getfieldvalue('#39'C2'#39'),0,3' +
        ');'#13#10'  c3:=copy(AgingHeader.getfieldvalue('#39'C3'#39'),0,3);'#13#10'  c4:=copy' +
        '(AgingHeader.getfieldvalue('#39'C4'#39'),0,3);'#13#10'  c5:=copy(AgingHeader.g' +
        'etfieldvalue('#39'C5'#39'),0,3);'#13#10'  c6:=copy(AgingHeader.getfieldvalue('#39 +
        'C6'#39'),0,3);'#13#10'  c7:=copy(AgingHeader.getfieldvalue('#39'C7'#39'),0,3);'#13#10'  ' +
        'c8:=copy(AgingHeader.getfieldvalue('#39'C8'#39'),0,3);'#13#10'  c9:=copy(Aging' +
        'Header.getfieldvalue('#39'C9'#39'),0,3);'#13#10'  c10:=copy(AgingHeader.getfie' +
        'ldvalue('#39'C10'#39'),0,3);'#13#10'  c11:=copy(AgingHeader.getfieldvalue('#39'C11' +
        #39'),0,3);'#13#10'  c12:=copy(AgingHeader.getfieldvalue('#39'C12'#39'),0,3);'#13#10#13#10 +
        '  if c1='#39'Jan'#39' then if Aging.getfieldvalue('#39'C1'#39')=null then value ' +
        ':= 0 else Value:= Aging.getfieldvalue('#39'C1'#39');'#13#10'  if c1='#39'Feb'#39' then' +
        ' if Aging.getfieldvalue('#39'C2'#39')=null then value := 0 else Value:= ' +
        'Aging.getfieldvalue('#39'C2'#39');'#13#10'  if c1='#39'Mar'#39' then if Aging.getfield' +
        'value('#39'C3'#39')=null then value := 0 else Value:= Aging.getfieldvalu' +
        'e('#39'C3'#39');'#13#10'  if c1='#39'Apr'#39' then if Aging.getfieldvalue('#39'C4'#39')=null t' +
        'hen value := 0 else Value:= Aging.getfieldvalue('#39'C4'#39');'#13#10'  if c1=' +
        #39'May'#39' then if Aging.getfieldvalue('#39'C5'#39')=null then value := 0 els' +
        'e Value:= Aging.getfieldvalue('#39'C5'#39');'#13#10'  if c1='#39'Jun'#39' then if Agin' +
        'g.getfieldvalue('#39'C6'#39')=null then value := 0 else Value:= Aging.ge' +
        'tfieldvalue('#39'C6'#39');'#13#10'  if c1='#39'Jul'#39' then if Aging.getfieldvalue('#39'C' +
        '7'#39')=null then value := 0 else Value:= Aging.getfieldvalue('#39'C7'#39');' +
        #13#10'  if c1='#39'Aug'#39' then if Aging.getfieldvalue('#39'C8'#39')=null then valu' +
        'e := 0 else Value:= Aging.getfieldvalue('#39'C8'#39');'#13#10'  if c1='#39'Sep'#39' th' +
        'en if Aging.getfieldvalue('#39'C9'#39')=null then value := 0 else Value:' +
        '= Aging.getfieldvalue('#39'C9'#39');'#13#10'  if c1='#39'Oct'#39' then if Aging.getfie' +
        'ldvalue('#39'C10'#39')=null then value := 0 else Value:= Aging.getfieldv' +
        'alue('#39'C10'#39');'#13#10'  if c1='#39'Nov'#39' then if Aging.getfieldvalue('#39'C11'#39')=n' +
        'ull then value := 0 else Value:= Aging.getfieldvalue('#39'C11'#39');'#13#10'  ' +
        'if c1='#39'Dec'#39' then if Aging.getfieldvalue('#39'C12'#39')=null then value :' +
        '= 0 else Value:= Aging.getfieldvalue('#39'C12'#39');'#13#10'end;'#13#10
      raProgram.ComponentName = 'VarJan'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
      raProgram.CaretPos = (
        68
        14)
    end
    object raProgramInfo50: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarDN1YROnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarDN1YROnCalc(var Value: Variant);'#13#10'var DNYR: string;' +
        #13#10#13#10'begin'#13#10#13#10'  DNYR := '#39'SELECT SUM(DOCAMT-PAYMENTAMT) FROM AR_DN' +
        ' '#39' + '#13#10'       '#39'WHERE DOCDATE < '#39#39' '#39' + variable2.value  +  '#39#39#39' '#39' ' +
        '+ '#13#10'       '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE' +
        ' = '#39#39#39' + Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10'       '#13#10'  value :=' +
        ' DBSQL_GetFieldValue(DNYR);'#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarDN1YR'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo51: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarIV1YROnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarIV1YROnCalc(var Value: Variant);'#13#10'var IVYR: string;' +
        #13#10#13#10'begin'#13#10#13#10'  IVYR := '#39'SELECT SUM(DOCAMT-PAYMENTAMT) FROM AR_IV' +
        ' '#39' + '#13#10'       '#39'WHERE DOCDATE < '#39#39' '#39' + variable2.value +  '#39#39#39' '#39' +' +
        ' '#13#10'       '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE ' +
        '= '#39#39#39' + Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10'       '#13#10'  value := ' +
        'DBSQL_GetFieldValue(IVYR);'#13#10'  '#13#10'end;'#13#10#13#10
      raProgram.ComponentName = 'VarIV1YR'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo52: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarM1YROnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarM1YROnCalc(var Value: Variant);'#13#10'begin'#13#10#13#10'  Value :' +
        '= VarIV1YR.value + VarDN1YR.value;'#13#10#13#10'end;'#13#10
      raProgram.ComponentName = 'VarM1YR'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo53: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarOCROnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarOCROnCalc(var Value: Variant);'#13#10'var OCR: string;'#13#10#13 +
        #10'begin'#13#10'   DateTimeToString(DD, '#39'yyyy'#39', Parameter.GetFieldValue(' +
        #39'DateFrom'#39')); '#13#10'   DateTimeToString(DD2, '#39'yyyy'#39', Parameter.GetFi' +
        'eldValue('#39'DateTo'#39')); '#13#10'   '#13#10'   DateTimeToString(SS, '#39'mm/dd/yyyy'#39 +
        ', Parameter.GetFieldValue('#39'DateFrom'#39')); '#13#10'   DateTimeToString(SS' +
        '2, '#39'mm/dd/yyyy'#39', Parameter.GetFieldValue('#39'DateTo'#39')); '#13#10'   '#13#10'  OC' +
        'R := '#39'SELECT SUM(UNAPPLIEDAMT) FROM AR_CN '#39' + '#13#10'       '#39'WHERE DO' +
        'CDATE <= '#39#39' '#39' + SS2 +  '#39#39#39' '#39' + '#13#10'       '#39'AND CANCELLED = '#39#39#39' + '#39 +
        'F '#39'+ '#39#39#39' '#39'+'#13#10'       '#39'AND CODE = '#39#39#39' + Main.GetFieldValue('#39'Code'#39')' +
        ' + '#39#39#39#39';'#13#10'       '#13#10'  value := DBSQL_GetFieldValue(OCR);'#13#10'  '#13#10'end' +
        ';'#13#10
      raProgram.ComponentName = 'VarOCR'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
      raProgram.CaretPos = (
        4
        10)
    end
    object raProgramInfo54: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarTotOCROnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarTotOCROnCalc(var Value: Variant);'#13#10'begin'#13#10#13#10'  Value' +
        ' := VarOPM.value + VarOCR.value;'#13#10#13#10'end;'#13#10
      raProgram.ComponentName = 'VarTotOCR'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
      raProgram.CaretPos = (
        3
        3)
    end
    object raProgramInfo55: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'VarOPMOnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure VarOPMOnCalc(var Value: Variant);'#13#10'var OPM: string;'#13#10#13 +
        #10'begin'#13#10'   DateTimeToString(DD, '#39'yyyy'#39', Parameter.GetFieldValue(' +
        #39'DateFrom'#39')); '#13#10'   DateTimeToString(DD2, '#39'yyyy'#39', Parameter.GetFi' +
        'eldValue('#39'DateTo'#39')); '#13#10'   '#13#10'   DateTimeToString(SS, '#39'mm/dd/yyyy'#39 +
        ', Parameter.GetFieldValue('#39'DateFrom'#39')); '#13#10'   DateTimeToString(SS' +
        '2, '#39'mm/dd/yyyy'#39', Parameter.GetFieldValue('#39'DateTo'#39')); '#13#10'  OPM := ' +
        #39'SELECT SUM(UNAPPLIEDAMT) FROM AR_PM '#39' + '#13#10'       '#39'WHERE DOCDATE' +
        ' <= '#39#39' '#39' + SS2 +  '#39#39#39' '#39' + '#13#10'       '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ ' +
        #39#39#39' '#39'+'#13#10'       '#39'and BouncedDate is null '#39' +'#13#10'       '#39'AND CODE = ' +
        #39#39#39' + Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10'       '#13#10'  value := DB' +
        'SQL_GetFieldValue(OPM);'#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'VarOPM'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
      raProgram.CaretPos = (
        76
        9)
    end
    object raProgramInfo56: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'Variable1OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure Variable1OnCalc(var Value: Variant);'#13#10'begin'#13#10#13#10' '#13#10'  va' +
        'lue := FormatDateTime('#39'mm'#39',Parameter.GetFieldValue('#39'DateFrom'#39'));' +
        #13#10'end;'#13#10
      raProgram.ComponentName = 'Variable1'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo57: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'Variable2OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure Variable2OnCalc(var Value: Variant);'#13#10'var ds : string;' +
        #13#10's: date;'#13#10#13#10'begin'#13#10' '#13#10' s := IncMonth(Parameter.GetFieldValue('#39 +
        'DateFrom'#39'), -11);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/yyyy'#39', s);' +
        #13#10' '#13#10' value := ds;'#13#10#13#10'end;'#13#10
      raProgram.ComponentName = 'Variable2'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo58: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'Variable3OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure Variable3OnCalc(var Value: Variant);'#13#10'var ds : string;' +
        #13#10's: date;'#13#10#13#10'begin'#13#10' '#13#10' s := EndOfTheMonth(IncMonth(Parameter.G' +
        'etFieldValue('#39'DateFrom'#39'), -12));'#13#10'    '#13#10' DateTimeToString(ds, '#39'm' +
        'm/dd/yyyy'#39', s);'#13#10' '#13#10' value := ds;'#13#10#13#10'end;'#13#10
      raProgram.ComponentName = 'Variable3'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
    object raProgramInfo59: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'Variable4OnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure Variable4OnCalc(var Value: Variant);'#13#10'var IV11,ds,ds2:' +
        ' string;'#13#10's,s2: date;'#13#10#13#10'begin'#13#10#13#10' s := IncMonth(Parameter.GetFi' +
        'eldValue('#39'DateFrom'#39'), -3);'#13#10'    '#13#10' DateTimeToString(ds, '#39'mm/dd/y' +
        'yyy'#39', s);'#13#10' '#13#10' s2 := EndOfTheMonth(IncMonth(Parameter.GetFieldVa' +
        'lue('#39'DateFrom'#39'), -3));'#13#10'  DateTimeToString(ds2, '#39'mm/dd/yyyy'#39', s)' +
        ';'#13#10#13#10#13#10'  IV11 := '#39'SELECT SUM(DOCAMT-PAYMENTAMT) FROM AR_IV '#39' + '#13 +
        #10'       '#39'WHERE DOCDATE >= '#39#39' '#39' + ds +  '#39#39#39' '#39'+ '#39'AND DOCDATE <= '#39#39 +
        ' '#39' + ds2 + '#39#39#39' '#39' + '#13#10'       '#39'AND CANCELLED = '#39#39#39' + '#39'F '#39'+ '#39#39#39' '#39'+'#13 +
        #10'       '#39'AND CODE = '#39#39#39' + Main.GetFieldValue('#39'Code'#39') + '#39#39#39#39';'#13#10'  ' +
        '     '#13#10'  value := ds2;'#13#10'  '#13#10'end;'#13#10
      raProgram.ComponentName = 'Variable4'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
    end
  end
  object ppDesignLayers4: TppDesignLayers
    object ppDesignLayer4: TppDesignLayer
      UserName = 'Foreground3'
      LayerType = ltBanded
      Index = 0
    end
  end
  object ppParameterList1: TppParameterList
  end
end