object fmCopyPurcOrder: TfmCopyPurcOrder Left = 293 Top = 136 HelpContext = 582 BorderStyle = bsSingle Caption = 'Copy Purchase Order' ClientHeight = 215 ClientWidth = 295 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Position = poScreenCenter Scaled = False OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object Panel1: TPanel Left = 0 Top = 0 Width = 295 Height = 169 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object Label1: TLabel Left = 20 Top = 14 Width = 115 Height = 16 Caption = 'Purchase Order No.' end object Label2: TLabel Left = 20 Top = 46 Width = 74 Height = 16 Caption = 'Supplier Ref.' end object Label3: TLabel Left = 20 Top = 78 Width = 122 Height = 16 Caption = 'Purchase Order Date' end object Label4: TLabel Left = 20 Top = 142 Width = 94 Height = 16 Caption = 'Order Reference' end object Label5: TLabel Left = 20 Top = 110 Width = 103 Height = 16 Caption = 'Due Delivery Date' end object ECustOrderNo: TEdit Left = 160 Top = 138 Width = 121 Height = 24 HelpContext = 702 ParentShowHint = False ShowHint = True TabOrder = 4 end object DBCDlgDate: TDateEdit Left = 160 Top = 74 Width = 100 Height = 24 Hint = 'Press F1 for help' HelpContext = 701 ButtonHint = 'Calandar' ClickKey = 16452 NumGlyphs = 2 ParentShowHint = False ShowHint = True CalendarStyle = csDialog Weekends = [Sun, Sat] YearDigits = dyFour TabOrder = 2 OnEnter = DBCDlgDateEnter OnExit = DBCDlgDateExit end object DBCDlgInvNo: TComboEdit Left = 160 Top = 10 Width = 111 Height = 24 Hint = 'Press F1 for help' HelpContext = 699 ButtonHint = 'Search' CharCase = ecUpperCase ClickKey = 16467 ButtonWidth = 24 NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 0 OnButtonClick = DBCDlgInvNoButtonClick OnEnter = DBCDlgInvNoEnter OnExit = DBCDlgInvNoExit end object DBCDlgCustRef: TComboEdit Left = 160 Top = 42 Width = 111 Height = 24 Hint = 'Press F1 for help' HelpContext = 700 ButtonHint = 'Search' CharCase = ecUpperCase ClickKey = 16467 ButtonWidth = 24 NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 1 OnButtonClick = DBCDlgCustRefButtonClick OnEnter = DBCDlgCustRefEnter OnExit = DBCDlgCustRefExit end object DueDate: TDateEdit Left = 160 Top = 106 Width = 100 Height = 24 Hint = 'Press F1 for help' HelpContext = 701 ButtonHint = 'Calandar' ClickKey = 16452 NumGlyphs = 2 ParentShowHint = False ShowHint = True CalendarStyle = csDialog Weekends = [Sun, Sat] YearDigits = dyFour TabOrder = 3 OnEnter = DBCDlgDateEnter OnExit = DBCDlgDateExit end end object Panel2: TPanel Left = 0 Top = 169 Width = 295 Height = 46 Align = alBottom BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object BtnCopy: TBitBtn Left = 7 Top = 8 Width = 75 Height = 30 Hint = 'Confirm copy purchase order' Caption = 'C&opy' ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = BtnCopyClick end object BtnCancel: TBitBtn Left = 86 Top = 8 Width = 75 Height = 30 Cancel = True Caption = '&Cancel' ModalResult = 2 ParentShowHint = False ShowHint = True TabOrder = 1 NumGlyphs = 2 end object BtnHelp: TBitBtn Left = 213 Top = 8 Width = 75 Height = 30 Cancel = True Caption = '&Help' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = BtnHelpClick NumGlyphs = 2 end end object taTempInvoice1: TwwTable DatabaseName = 'EmpireBuilder' TableName = 'PurchaseOrder.DBF' SyncSQLByRange = True NarrowSearch = False ValidateWithMask = True Left = 201 Top = 170 object taTempInvoice1PORDTYPE: TStringField FieldName = 'PORDTYPE' Size = 12 end object taTempInvoice1ORDNO: TFloatField FieldName = 'ORDNO' end object taTempInvoice1PODATE: TDateField FieldName = 'PODATE' end object taTempInvoice1DUEDATE: TDateField FieldName = 'DUEDATE' end object taTempInvoice1ORDSTATUS: TStringField FieldName = 'ORDSTATUS' Size = 9 end object taTempInvoice1ORDERBY: TStringField FieldName = 'ORDERBY' end object taTempInvoice1ACREF: TStringField FieldName = 'ACREF' Size = 10 end object taTempInvoice1NAME: TStringField FieldName = 'NAME' Size = 40 end object taTempInvoice1ADDRESS1: TStringField FieldName = 'ADDRESS1' Size = 30 end object taTempInvoice1ADDRESS2: TStringField FieldName = 'ADDRESS2' Size = 30 end object taTempInvoice1ADDRESS3: TStringField FieldName = 'ADDRESS3' Size = 30 end object taTempInvoice1ADDRESS4: TStringField FieldName = 'ADDRESS4' Size = 30 end object taTempInvoice1TELNO: TStringField FieldName = 'TELNO' Size = 15 end object taTempInvoice1DELNAME: TStringField FieldName = 'DELNAME' Size = 30 end object taTempInvoice1DELADD1: TStringField FieldName = 'DELADD1' Size = 30 end object taTempInvoice1DELADD2: TStringField FieldName = 'DELADD2' Size = 30 end object taTempInvoice1DELADD3: TStringField FieldName = 'DELADD3' Size = 30 end object taTempInvoice1DELADD4: TStringField FieldName = 'DELADD4' Size = 30 end object taTempInvoice1ORDERNO: TStringField FieldName = 'ORDERNO' Size = 15 end object taTempInvoice1NOTES: TMemoField FieldName = 'NOTES' BlobType = ftMemo Size = 1 end object taTempInvoice1SETTDAYS: TSmallintField FieldName = 'SETTDAYS' end object taTempInvoice1SETTDISC: TFloatField FieldName = 'SETTDISC' end object taTempInvoice1ITEMSNETT: TFloatField FieldName = 'ITEMSNETT' end object taTempInvoice1ITEMSDISC: TFloatField FieldName = 'ITEMSDISC' end object taTempInvoice1ITEMSSUB: TFloatField FieldName = 'ITEMSSUB' end object taTempInvoice1ITEMSTAX: TFloatField FieldName = 'ITEMSTAX' end object taTempInvoice1ITEMSTOTAL: TFloatField FieldName = 'ITEMSTOTAL' end object taTempInvoice1CARRIAGE: TFloatField FieldName = 'CARRIAGE' end object taTempInvoice1CARTAXCODE: TStringField FieldName = 'CARTAXCODE' Size = 1 end object taTempInvoice1CARTAX: TFloatField FieldName = 'CARTAX' end object taTempInvoice1CARNOMINAL: TStringField FieldName = 'CARNOMINAL' Size = 10 end object taTempInvoice1CARGROSS: TFloatField FieldName = 'CARGROSS' end object taTempInvoice1TOTALNETT: TFloatField FieldName = 'TOTALNETT' end object taTempInvoice1TOTALDISC: TFloatField FieldName = 'TOTALDISC' end object taTempInvoice1TOTALSUB: TFloatField FieldName = 'TOTALSUB' end object taTempInvoice1TOTALTAX: TFloatField FieldName = 'TOTALTAX' end object taTempInvoice1INVTOTAL: TFloatField FieldName = 'INVTOTAL' end object taTempInvoice1PRINTED: TBooleanField FieldName = 'PRINTED' end object taTempInvoice1SDTOPAY: TFloatField FieldName = 'SDTOPAY' end object taTempInvoice1TAG1: TBooleanField FieldName = 'TAG1' end end object taTempInvoice2: TwwTable DatabaseName = 'EmpireBuilder' MasterSource = DM1.dsTrans TableName = 'PurchaseOrder2.DBF' SyncSQLByRange = True NarrowSearch = False ValidateWithMask = True Left = 143 Top = 172 object taTempInvoice2ORDNO: TFloatField FieldName = 'ORDNO' end object taTempInvoice2STOCKCODE: TStringField FieldName = 'STOCKCODE' Size = 16 end object taTempInvoice2DESC: TMemoField FieldName = 'DESC' BlobType = ftMemo Size = 1 end object taTempInvoice2DUEDATE: TDateField FieldName = 'DUEDATE' end object taTempInvoice2QUAN: TFloatField FieldName = 'QUAN' end object taTempInvoice2QUANDELIV: TFloatField FieldName = 'QUANDELIV' end object taTempInvoice2PRICE: TFloatField FieldName = 'PRICE' end object taTempInvoice2DISC: TFloatField FieldName = 'DISC' end object taTempInvoice2TAXCODE: TStringField FieldName = 'TAXCODE' Size = 1 end object taTempInvoice2NOMINAL: TStringField FieldName = 'NOMINAL' Size = 10 end object taTempInvoice2NETT: TFloatField FieldName = 'NETT' end object taTempInvoice2DISCOUNT: TFloatField FieldName = 'DISCOUNT' end object taTempInvoice2SUBTOT: TFloatField FieldName = 'SUBTOT' end object taTempInvoice2TAX: TFloatField FieldName = 'TAX' end object taTempInvoice2TOTAL: TFloatField FieldName = 'TOTAL' end object taTempInvoice2ITEMSNO: TFloatField FieldName = 'ITEMSNO' 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 = True Left = 173 Top = 170 ScreenWidth = ( 800) ScreenHeight = ( 600) OriginalFormWidth = ( 303) OriginalFormHeight = ( 242) OriginalFormLeft = ( 293) OriginalFormTop = ( 136) OriginalFormPPI = ( 120) OriginalClientWidth = ( 295) OriginalClientHeight = ( 215) end end