home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Computer Buyer 1999 September
/
Dpcb0999.iso
/
Business
/
Empire
/
_SETUP.1
/
EmpireBuilder.exe
/
0
/
RCDATA
/
TFMCOPYPURCORDER
/
TFMCOPYPURCORDER.txt
Wrap
Text File
|
1999-06-21
|
11KB
|
447 lines
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