object fmCustStatements: TfmCustStatements Left = 235 Top = 123 Width = 420 Height = 379 HelpContext = 121 Caption = 'Customer Statements' ParentFont = True Scaled = False OnActivate = FormActivate OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDeactivate = FormDeactivate OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object pnlCustomer: TPanel Left = 0 Top = 0 Width = 412 Height = 189 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object lblStartCust: TLabel Left = 12 Top = 12 Width = 114 Height = 16 Caption = 'Start Customer Ref.' end object lblFinCust: TLabel Left = 12 Top = 40 Width = 122 Height = 16 Caption = 'Finish Customer Ref.' end object lblStartDate: TLabel Left = 12 Top = 84 Width = 133 Height = 16 Caption = 'Start Transaction Date' end object lblFinDate: TLabel Left = 12 Top = 112 Width = 141 Height = 16 Caption = 'Finish Transaction Date' end object bvl1: TBevel Left = 4 Top = 68 Width = 369 Height = 5 Shape = bsBottomLine end object bvl2: TBevel Left = 4 Top = 136 Width = 369 Height = 9 Shape = bsBottomLine end object rxcbeStartCust: TComboEdit Left = 176 Top = 8 Width = 120 Height = 24 Hint = 'Press F1 for help' HelpContext = 100 CharCase = ecUpperCase Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777000000000000000088888888880088808777777770EC7780877777770EC0 778087777770EC0777808770003F30777780878FFF200777778083FFFFF27777 77808FFFFFFF077777808FFFFFFF0777778083FFFFFF77777780888888808888 8880800333000080880080000000000000003333333333333330} ButtonWidth = 24 MaxLength = 10 NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 0 OnButtonClick = rxcbeStartCustButtonClick OnEnter = rxcbeStartCustEnter OnExit = rxcbeStartCustExit end object rxcbeFinCust: TComboEdit Left = 176 Top = 36 Width = 120 Height = 24 Hint = 'Press F1 for help' HelpContext = 101 CharCase = ecUpperCase Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777000000000000000088888888880088808777777770EC7780877777770EC0 778087777770EC0777808770003F30777780878FFF200777778083FFFFF27777 77808FFFFFFF077777808FFFFFFF0777778083FFFFFF77777780888888808888 8880800333000080880080000000000000003333333333333330} ButtonWidth = 24 MaxLength = 10 NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 1 OnButtonClick = rxcbeFinCustButtonClick OnEnter = rxcbeFinCustEnter OnExit = rxcbeFinCustExit end object rxdcbeStartDate: TDateEdit Left = 176 Top = 80 Width = 100 Height = 24 Hint = 'Press F1 for help' HelpContext = 102 NumGlyphs = 2 ParentShowHint = False ShowHint = True CalendarStyle = csDialog Weekends = [Sun, Sat] YearDigits = dyFour TabOrder = 2 end object rxdcbeFinDate: TDateEdit Left = 176 Top = 108 Width = 100 Height = 24 Hint = 'Press F1 for help' HelpContext = 103 NumGlyphs = 2 ParentShowHint = False ShowHint = True CalendarStyle = csDialog Weekends = [Sun, Sat] YearDigits = dyFour TabOrder = 3 end object cbIZB: TCheckBox Left = 12 Top = 156 Width = 177 Height = 17 Hint = 'Press F1 for help' HelpContext = 122 Alignment = taLeftJustify Caption = 'Ignore Zero Balances' ParentShowHint = False ShowHint = True TabOrder = 4 end end object GroupBox1: TGroupBox Left = 0 Top = 189 Width = 412 Height = 78 Align = alClient Caption = 'Include' TabOrder = 1 object rbAllTrans: TRadioButton Left = 12 Top = 20 Width = 177 Height = 17 Hint = 'Press F1 for help' HelpContext = 123 Alignment = taLeftJustify Caption = 'All Transactions' Checked = True ParentShowHint = False ShowHint = True TabOrder = 0 TabStop = True end object rbOTO: TRadioButton Left = 12 Top = 48 Width = 177 Height = 17 Hint = 'Press F1 for help' HelpContext = 124 Alignment = taLeftJustify Caption = 'Outstanding Trans. Only' ParentShowHint = False ShowHint = True TabOrder = 1 end end object pnlButtons: TPanel Left = 0 Top = 309 Width = 412 Height = 43 Align = alBottom BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 3 object btnPrint: TButton Left = 5 Top = 8 Width = 75 Height = 30 Hint = 'Print statements' Caption = '&Print' ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = btnPrintClick end object btnCancel: TButton Left = 248 Top = 8 Width = 75 Height = 30 Caption = '&Cancel' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = btnCancelClick end object btnPreview: TButton Left = 86 Top = 8 Width = 75 Height = 30 Hint = 'View statement before printing' Caption = 'P&review' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = btnPreviewClick end object btnEMail: TButton Left = 167 Top = 8 Width = 75 Height = 30 Hint = 'Email statements' Caption = '&Email' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = btnEMailClick end object btnHelp: TButton Left = 329 Top = 8 Width = 75 Height = 30 Caption = '&Help' ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = btnHelpClick end end object pnlDoc: TPanel Left = 0 Top = 267 Width = 412 Height = 42 Align = alBottom BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 2 object Label1: TLabel Left = 12 Top = 16 Width = 104 Height = 16 Caption = 'Document Layout' end object cbDocName: TComboBox Left = 176 Top = 12 Width = 200 Height = 24 Hint = 'Press F1 for help' HelpContext = 125 ItemHeight = 16 ParentShowHint = False ShowHint = True TabOrder = 0 end end object iptblUDD: TwwTable DatabaseName = 'MainEB' TableName = 'Udd.DBF' SyncSQLByRange = False NarrowSearch = False ValidateWithMask = True Left = 340 Top = 32 object iptblUDDITEM_NAME: TStringField DisplayLabel = 'Layout Name' DisplayWidth = 35 FieldName = 'ITEM_NAME' Size = 30 end object iptblUDDDOC_TYPE: TSmallintField FieldName = 'DOC_TYPE' end object iptblUDDREP_NAME: TStringField FieldName = 'REP_NAME' Size = 40 end end object dsUDD: TwwDataSource DataSet = iptblUDD Left = 312 Top = 32 end object Sizer1: TSizer Enabled = True ExceptionAction = eaIgnoreControl GridColumnSizing = gcSizeAllColumns GridRowSizing = grSizeByDefaults MinimumSize = True NavigateOnEnter = True OverrideParentFont = True PerformAssertions = True ShowAssertionFailures = False StretchFonts = True StretchImages = True StretchOnResize = True ThreadProcessing = False Left = 324 Top = 4 ScreenWidth = ( 800) ScreenHeight = ( 600) OriginalFormWidth = ( 420) OriginalFormHeight = ( 379) OriginalFormLeft = ( 235) OriginalFormTop = ( 123) OriginalFormPPI = ( 120) OriginalClientWidth = ( 412) OriginalClientHeight = ( 352) end object taCustomer: TwwQuery DatabaseName = 'EmpireBuilder' SQL.Strings = ( 'select ACCREF, BALANCE, LASTUPDATE, LASTCALC from customer' 'where (ACCREF >= :STACREF) and (ACCREF <= :FINACREF)' ' and (BALANCE <> 0)') Params.Data = { 01000200075354414352454600010200300000000846494E4143524546000102 0030000000} ValidateWithMask = True Left = 340 Top = 75 object taCustomerACCREF: TStringField FieldName = 'ACCREF' Origin = '"customer.DBF".ACCREF' Size = 10 end object taCustomerBALANCE: TFloatField FieldName = 'BALANCE' Origin = '"customer.DBF".BALANCE' end object taCustomerLASTUPDATE: TStringField FieldName = 'LASTUPDATE' Origin = '"customer.DBF".LASTUPDATE' end object taCustomerLASTCALC: TStringField FieldName = 'LASTCALC' Origin = '"customer.DBF".LASTCALC' end end object pdTrans: TPrintDialog Left = 340 Top = 150 end end