object fmCopyInvoice: TfmCopyInvoice Left = 290 Top = 150 BorderStyle = bsSingle Caption = 'Copy Invoice' ClientHeight = 268 ClientWidth = 321 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 = 321 Height = 224 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object Bevel1: TBevel Left = 4 Top = 4 Width = 313 Height = 125 Shape = bsFrame end object Label1: TLabel Left = 12 Top = 16 Width = 143 Height = 16 Caption = 'Transaction No. To Copy' end object Label2: TLabel Left = 12 Top = 44 Width = 83 Height = 16 Caption = 'Customer Ref.' end object Label3: TLabel Left = 12 Top = 72 Width = 127 Height = 16 Caption = 'New Transaction Date' end object Label4: TLabel Left = 12 Top = 100 Width = 116 Height = 16 Caption = 'Customer Order No.' end object ECustOrderNo: TEdit Left = 188 Top = 92 Width = 121 Height = 24 Hint = 'Press F1 for help' HelpContext = 481 ParentShowHint = False ShowHint = True TabOrder = 3 end object DBCDlgDate: TDateEdit Left = 188 Top = 64 Width = 100 Height = 24 Hint = 'Press F1 for help' HelpContext = 480 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 = 188 Top = 8 Width = 100 Height = 24 Hint = 'Press F1 for help' HelpContext = 478 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 = 188 Top = 36 Width = 100 Height = 24 Hint = 'Press F1 for help' HelpContext = 479 CharCase = ecUpperCase ClickKey = 16467 ButtonWidth = 24 NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 1 OnButtonClick = DBCDlgCustRefButtonClick OnEnter = DBCDlgCustRefEnter OnExit = DBCDlgCustRefExit end object GroupBox1: TGroupBox Left = 4 Top = 136 Width = 313 Height = 85 Caption = 'New Transaction Type' TabOrder = 4 object RBInvoice: TRadioButton Left = 12 Top = 24 Width = 113 Height = 17 Hint = 'Press F1 for help' HelpContext = 482 Alignment = taLeftJustify Caption = 'Invoice' Checked = True ParentShowHint = False ShowHint = True TabOrder = 0 TabStop = True OnClick = RBInvoiceClick end object RBCreditNote: TRadioButton Left = 12 Top = 52 Width = 113 Height = 17 Hint = 'Press F1 for help' HelpContext = 482 Alignment = taLeftJustify Caption = 'Credit Note' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = RBCreditNoteClick end object RBProforma: TRadioButton Left = 180 Top = 24 Width = 113 Height = 17 Hint = 'Press F1 for help' HelpContext = 482 Alignment = taLeftJustify Caption = 'Proforma' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = RBProformaClick end object RBQuotation: TRadioButton Left = 180 Top = 56 Width = 113 Height = 17 Hint = 'Press F1 for help' HelpContext = 482 Alignment = taLeftJustify Caption = 'Quotation' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = RBQuotationClick end end end object Panel2: TPanel Left = 0 Top = 224 Width = 321 Height = 44 Align = alBottom BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object BtnCopy: TBitBtn Left = 8 Top = 7 Width = 75 Height = 30 Hint = 'Create transaction and copy details' Caption = 'C&opy' Default = True ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = BtnCopyClick end object BtnCancel: TBitBtn Left = 88 Top = 7 Width = 75 Height = 30 Cancel = True Caption = '&Cancel' ModalResult = 2 ParentShowHint = False ShowHint = True TabOrder = 1 NumGlyphs = 2 end object btnHelp: TButton Left = 237 Top = 7 Width = 75 Height = 30 Caption = '&Help' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = btnHelpClick end end object taTempInvoice1: TwwTable DatabaseName = 'EmpireBuilder' TableName = 'Invoice.DBF' SyncSQLByRange = True NarrowSearch = False ValidateWithMask = True Left = 221 Top = 122 object taTempInvoice1INVNO: TFloatField FieldName = 'INVNO' end object taTempInvoice1INVTYPE: TStringField FieldName = 'INVTYPE' Size = 11 end object taTempInvoice1PAYTYPE: TStringField FieldName = 'PAYTYPE' Size = 8 end object taTempInvoice1BANK: TStringField FieldName = 'BANK' Size = 10 end object taTempInvoice1PAYAMOUNT: TFloatField FieldName = 'PAYAMOUNT' end object taTempInvoice1INVDATE: TDateField FieldName = 'INVDATE' end object taTempInvoice1ACREF: TStringField FieldName = 'ACREF' Size = 10 end object taTempInvoice1NAME: TStringField FieldName = 'NAME' Size = 30 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 taTempInvoice1DELTELNO: TStringField FieldName = 'DELTELNO' Size = 15 end object taTempInvoice1CORDER: TStringField FieldName = 'CORDER' 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 taTempInvoice1SDTOPAY: TFloatField FieldName = 'SDTOPAY' end object taTempInvoice1POSTED: TBooleanField FieldName = 'POSTED' end object taTempInvoice1PRINTED: TBooleanField FieldName = 'PRINTED' end object taTempInvoice1PROFIT: TFloatField FieldName = 'PROFIT' end object taTempInvoice1MARGIN: TFloatField FieldName = 'MARGIN' end end object taTempInvoice2: TwwTable DatabaseName = 'EmpireBuilder' TableName = 'Invoice2.DBF' SyncSQLByRange = True NarrowSearch = False ValidateWithMask = True Left = 248 Top = 122 object taTempInvoice2INVNO: TFloatField FieldName = 'INVNO' end object taTempInvoice2STOCKCODE: TStringField FieldName = 'STOCKCODE' Size = 16 end object taTempInvoice2DESC: TMemoField FieldName = 'DESC' BlobType = ftMemo Size = 1 end object taTempInvoice2QUAN: TFloatField FieldName = 'QUAN' 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 taTempInvoice2COSTPRICE: TFloatField FieldName = 'COSTPRICE' end object taTempInvoice2PROFIT: TFloatField FieldName = 'PROFIT' end object taTempInvoice2MARGIN: TFloatField FieldName = 'MARGIN' end object taTempInvoice2NETT: TFloatField FieldName = 'NETT' end object taTempInvoice2DISCOUNT: TFloatField FieldName = 'DISCOUNT' end object taTempInvoice2SUBTOTAL: TFloatField FieldName = 'SUBTOTAL' end object taTempInvoice2TAX: TFloatField FieldName = 'TAX' end object taTempInvoice2TOTAL: TFloatField FieldName = 'TOTAL' 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 = 280 Top = 122 ScreenWidth = ( 800) ScreenHeight = ( 600) OriginalFormWidth = ( 329) OriginalFormHeight = ( 295) OriginalFormLeft = ( 290) OriginalFormTop = ( 150) OriginalFormPPI = ( 120) OriginalClientWidth = ( 321) OriginalClientHeight = ( 268) end end