object fmPrintPO: TfmPrintPO Left = 241 Top = 142 Width = 409 Height = 382 HelpContext = 652 Caption = 'Print Purchase Orders' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Position = poScreenCenter Scaled = False OnActivate = FormActivate OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object pnlCust: TPanel Left = 0 Top = 69 Width = 401 Height = 69 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object lblStartCust: TLabel Left = 27 Top = 12 Width = 106 Height = 16 Caption = 'Start Supplier Ref.' end object lblFinCust: TLabel Left = 27 Top = 44 Width = 113 Height = 16 Caption = 'Finish Supplier Ref.' end object rxcbeStartSupp: TComboEdit Left = 197 Top = 5 Width = 120 Height = 24 Hint = 'Press F1 for help' HelpContext = 680 ButtonHint = 'Search' CharCase = ecUpperCase ButtonWidth = 24 MaxLength = 10 NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 0 OnButtonClick = rxcbeStartSuppButtonClick OnEnter = rxcbeStartSuppEnter OnExit = rxcbeStartSuppExit end object rxcbeFinSupp: TComboEdit Left = 197 Top = 37 Width = 120 Height = 24 Hint = 'Press F1 for help' HelpContext = 681 ButtonHint = 'Search' CharCase = ecUpperCase ButtonWidth = 24 MaxLength = 10 NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 1 OnButtonClick = rxcbeFinSuppButtonClick OnEnter = rxcbeFinSuppEnter OnExit = rxcbeFinSuppExit end end object pnlDate: TPanel Left = 0 Top = 138 Width = 401 Height = 69 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 2 object lblStartDate: TLabel Left = 27 Top = 12 Width = 59 Height = 16 Caption = 'Start Date' end object lblFinDate: TLabel Left = 27 Top = 44 Width = 66 Height = 16 Caption = 'Finish Date' end object rxdcbeStartDate: TDateEdit Left = 197 Top = 4 Width = 100 Height = 24 Hint = 'Press F1 for help' HelpContext = 682 ButtonHint = 'Calendar' NumGlyphs = 2 ParentShowHint = False ShowHint = True CalendarStyle = csDialog Weekends = [Sun, Sat] YearDigits = dyFour TabOrder = 0 end object rxdcbeFinDate: TDateEdit Left = 197 Top = 36 Width = 100 Height = 24 Hint = 'Press F1 for help' HelpContext = 685 ButtonHint = 'Calendar' NumGlyphs = 2 ParentShowHint = False ShowHint = True CalendarStyle = csDialog Weekends = [Sun, Sat] YearDigits = dyFour TabOrder = 1 end end object pnlButtons: TPanel Left = 0 Top = 312 Width = 401 Height = 43 Align = alBottom BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 5 object btnPrint: TButton Left = 8 Top = 8 Width = 75 Height = 30 Hint = 'Print purchase orders' Caption = '&Print' ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = btnPrintClick end object btnCancel: TButton Left = 242 Top = 8 Width = 75 Height = 30 Hint = 'Quit this option' Caption = '&Cancel' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = btnCancelClick end object btnPreview: TButton Left = 86 Top = 8 Width = 75 Height = 30 Hint = 'View purchase order before printing' Caption = 'P&review' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = btnPreviewClick end object btnEmail: TButton Left = 164 Top = 8 Width = 75 Height = 30 Hint = 'Email purchase order' Caption = '&Email' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = btnEmailClick end object btnHelp: TButton Left = 320 Top = 8 Width = 75 Height = 30 Caption = '&Help' ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = btnHelpClick end end object pnlInvNo: TPanel Left = 0 Top = 0 Width = 401 Height = 69 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object lblStartNo: TLabel Left = 27 Top = 12 Width = 88 Height = 16 Caption = 'Start Order No.' end object lblFinNo: TLabel Left = 27 Top = 44 Width = 95 Height = 16 Caption = 'Finish Order No.' end object rxcbeStartNo: TComboEdit Left = 197 Top = 5 Width = 100 Height = 24 Hint = 'Press F1 for help' HelpContext = 678 ButtonHint = 'Search' CharCase = ecUpperCase ButtonWidth = 24 MaxLength = 10 NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 0 OnButtonClick = rxcbeStartNoButtonClick OnEnter = rxcbeStartNoEnter OnExit = rxcbeStartNoExit end object rxcbeFinNo: TComboEdit Left = 197 Top = 37 Width = 100 Height = 24 Hint = 'Press F1 for help' HelpContext = 679 ButtonHint = 'Search' CharCase = ecUpperCase ButtonWidth = 24 MaxLength = 10 NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 1 OnButtonClick = rxcbeFinNoButtonClick OnEnter = rxcbeFinNoEnter OnExit = rxcbeFinNoExit end end object pnlThisTrans: TPanel Left = 0 Top = 207 Width = 401 Height = 57 HelpContext = 684 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 3 object cbCurrent: TCheckBox Left = 22 Top = 8 Width = 189 Height = 17 Hint = 'Press F1 for help' HelpContext = 683 Alignment = taLeftJustify Caption = 'Current Transaction Only' ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = cbCurrentClick end object cbIgnore: TCheckBox Left = 22 Top = 32 Width = 189 Height = 17 Hint = 'Press F1 for help' HelpContext = 684 Alignment = taLeftJustify Caption = 'Ignore Printed Trans.' ParentShowHint = False ShowHint = True State = cbChecked TabOrder = 1 end end object pnlDoc: TPanel Left = 0 Top = 264 Width = 401 Height = 48 Hint = 'Press F1 for help' Align = alClient BevelInner = bvRaised BevelOuter = bvLowered ParentShowHint = False ShowHint = True TabOrder = 4 object Label1: TLabel Left = 21 Top = 16 Width = 102 Height = 16 Caption = 'Document Layout' end object cbDocName: TComboBox Left = 198 Top = 12 Width = 193 Height = 24 HelpContext = 686 ItemHeight = 16 TabOrder = 0 end end object ipdsUDD: TwwDataSource DataSet = iptblUDD Left = 370 Top = 4 end object iptblUDD: TwwTable DatabaseName = 'MainEB' TableName = 'Udd.DBF' SyncSQLByRange = False NarrowSearch = False ValidateWithMask = True Left = 370 Top = 36 object iptblUDDDOC_TYPE: TSmallintField FieldName = 'DOC_TYPE' end object iptblUDDITEM_NAME: TStringField FieldName = 'ITEM_NAME' Size = 30 end object iptblUDDITEM_OWNER: TStringField FieldName = 'ITEM_OWNER' Size = 6 end object iptblUDDCAN_OPEN: TBooleanField FieldName = 'CAN_OPEN' end object iptblUDDCAN_SAVE: TBooleanField FieldName = 'CAN_SAVE' end object iptblUDDCAN_DELETE: TBooleanField FieldName = 'CAN_DELETE' end object iptblUDDCREATED_DT: TStringField FieldName = 'CREATED_DT' Size = 15 end object iptblUDDCREATED_BY: TStringField FieldName = 'CREATED_BY' Size = 6 end object iptblUDDUPDATED_DT: TStringField FieldName = 'UPDATED_DT' Size = 15 end object iptblUDDUPDATED_BY: TStringField FieldName = 'UPDATED_BY' Size = 6 end object iptblUDDREP_NAME: TStringField FieldName = 'REP_NAME' Size = 40 end 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 = 370 Top = 76 ScreenWidth = ( 800) ScreenHeight = ( 600) OriginalFormWidth = ( 409) OriginalFormHeight = ( 382) OriginalFormLeft = ( 241) OriginalFormTop = ( 142) OriginalFormPPI = ( 120) OriginalClientWidth = ( 401) OriginalClientHeight = ( 355) end object taMainPurcOrder: TwwQuery DatabaseName = 'EmpireBuilder' SQL.Strings = ( 'select * from purchaseorder' 'where (ORDNO >= :STINVNO) and (ORDNO <= :FININVNO) and' ' ((ACREF >= :STACC) and (ACREF <= :FINACC) or' ' (ACREF = :BLANK)) and (PODATE >= :STADATE) and' ' (PODATE <= :FINDATE)') Params.Data = { 01000700075354494E564E4F00060800000000000000000000000846494E494E 564E4F0006080000000000000000000000055354414343000102003000000006 46494E414343000102003000000005424C414E4B000102003000000007535441 44415445000B080000002C845D40CB4200000746494E44415445000B08000000 2C845D40CB420000} ValidateWithMask = True Left = 370 Top = 114 object taMainPurcOrderPORDTYPE: TStringField FieldName = 'PORDTYPE' Origin = '"purchaseorder.DBF".PORDTYPE' Size = 12 end object taMainPurcOrderORDNO: TFloatField FieldName = 'ORDNO' Origin = '"purchaseorder.DBF".ORDNO' end object taMainPurcOrderPODATE: TDateField FieldName = 'PODATE' Origin = '"purchaseorder.DBF".PODATE' end object taMainPurcOrderDUEDATE: TDateField FieldName = 'DUEDATE' Origin = '"purchaseorder.DBF".DUEDATE' end object taMainPurcOrderORDSTATUS: TStringField FieldName = 'ORDSTATUS' Origin = '"purchaseorder.DBF".ORDSTATUS' Size = 9 end object taMainPurcOrderORDERBY: TStringField FieldName = 'ORDERBY' Origin = '"purchaseorder.DBF".ORDERBY' end object taMainPurcOrderACREF: TStringField FieldName = 'ACREF' Origin = '"purchaseorder.DBF".ACREF' Size = 10 end object taMainPurcOrderNAME: TStringField FieldName = 'NAME' Origin = '"purchaseorder.DBF".NAME' Size = 40 end object taMainPurcOrderADDRESS1: TStringField FieldName = 'ADDRESS1' Origin = '"purchaseorder.DBF".ADDRESS1' Size = 30 end object taMainPurcOrderADDRESS2: TStringField FieldName = 'ADDRESS2' Origin = '"purchaseorder.DBF".ADDRESS2' Size = 30 end object taMainPurcOrderADDRESS3: TStringField FieldName = 'ADDRESS3' Origin = '"purchaseorder.DBF".ADDRESS3' Size = 30 end object taMainPurcOrderADDRESS4: TStringField FieldName = 'ADDRESS4' Origin = '"purchaseorder.DBF".ADDRESS4' Size = 30 end object taMainPurcOrderTELNO: TStringField FieldName = 'TELNO' Origin = '"purchaseorder.DBF".TELNO' Size = 15 end object taMainPurcOrderDELNAME: TStringField FieldName = 'DELNAME' Origin = '"purchaseorder.DBF".DELNAME' Size = 30 end object taMainPurcOrderDELADD1: TStringField FieldName = 'DELADD1' Origin = '"purchaseorder.DBF".DELADD1' Size = 30 end object taMainPurcOrderDELADD2: TStringField FieldName = 'DELADD2' Origin = '"purchaseorder.DBF".DELADD2' Size = 30 end object taMainPurcOrderDELADD3: TStringField FieldName = 'DELADD3' Origin = '"purchaseorder.DBF".DELADD3' Size = 30 end object taMainPurcOrderDELADD4: TStringField FieldName = 'DELADD4' Origin = '"purchaseorder.DBF".DELADD4' Size = 30 end object taMainPurcOrderORDERNO: TStringField FieldName = 'ORDERNO' Origin = '"purchaseorder.DBF".ORDERNO' Size = 15 end object taMainPurcOrderNOTES: TMemoField FieldName = 'NOTES' Origin = '"purchaseorder.DBF".NOTES' BlobType = ftMemo Size = 1 end object taMainPurcOrderSETTDAYS: TSmallintField FieldName = 'SETTDAYS' Origin = '"purchaseorder.DBF".SETTDAYS' end object taMainPurcOrderSETTDISC: TFloatField FieldName = 'SETTDISC' Origin = '"purchaseorder.DBF".SETTDISC' end object taMainPurcOrderITEMSNETT: TFloatField FieldName = 'ITEMSNETT' Origin = '"purchaseorder.DBF".ITEMSNETT' end object taMainPurcOrderITEMSDISC: TFloatField FieldName = 'ITEMSDISC' Origin = '"purchaseorder.DBF".ITEMSDISC' end object taMainPurcOrderITEMSSUB: TFloatField FieldName = 'ITEMSSUB' Origin = '"purchaseorder.DBF".ITEMSSUB' end object taMainPurcOrderITEMSTAX: TFloatField FieldName = 'ITEMSTAX' Origin = '"purchaseorder.DBF".ITEMSTAX' end object taMainPurcOrderITEMSTOTAL: TFloatField FieldName = 'ITEMSTOTAL' Origin = '"purchaseorder.DBF".ITEMSTOTAL' end object taMainPurcOrderCARRIAGE: TFloatField FieldName = 'CARRIAGE' Origin = '"purchaseorder.DBF".CARRIAGE' end object taMainPurcOrderCARTAXCODE: TStringField FieldName = 'CARTAXCODE' Origin = '"purchaseorder.DBF".CARTAXCODE' Size = 1 end object taMainPurcOrderCARTAX: TFloatField FieldName = 'CARTAX' Origin = '"purchaseorder.DBF".CARTAX' end object taMainPurcOrderCARNOMINAL: TStringField FieldName = 'CARNOMINAL' Origin = '"purchaseorder.DBF".CARNOMINAL' Size = 10 end object taMainPurcOrderCARGROSS: TFloatField FieldName = 'CARGROSS' Origin = '"purchaseorder.DBF".CARGROSS' end object taMainPurcOrderTOTALNETT: TFloatField FieldName = 'TOTALNETT' Origin = '"purchaseorder.DBF".TOTALNETT' end object taMainPurcOrderTOTALDISC: TFloatField FieldName = 'TOTALDISC' Origin = '"purchaseorder.DBF".TOTALDISC' end object taMainPurcOrderTOTALSUB: TFloatField FieldName = 'TOTALSUB' Origin = '"purchaseorder.DBF".TOTALSUB' end object taMainPurcOrderTOTALTAX: TFloatField FieldName = 'TOTALTAX' Origin = '"purchaseorder.DBF".TOTALTAX' end object taMainPurcOrderINVTOTAL: TFloatField FieldName = 'INVTOTAL' Origin = '"purchaseorder.DBF".INVTOTAL' end object taMainPurcOrderPRINTED: TBooleanField FieldName = 'PRINTED' Origin = '"purchaseorder.DBF".PRINTED' end object taMainPurcOrderSDTOPAY: TFloatField FieldName = 'SDTOPAY' Origin = '"purchaseorder.DBF".SDTOPAY' end object taMainPurcOrderTAG1: TBooleanField FieldName = 'TAG1' Origin = '"purchaseorder.DBF".TAG1' end end object pdTrans: TPrintDialog Left = 365 Top = 158 end end