home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / VFP50 / SAMPLES / TASTRADE / TASTRADE.APP (.txt) next >
Encoding:
MS Visual FoxPro App  |  1996-08-01  |  811.4 KB  |  19,389 lines
  1. PLATFORM
  2. UNIQUEID
  3. TIMESTAMP
  4. CLASS
  5. CLASSLOC
  6. BASECLASS
  7. OBJNAME
  8. PARENT
  9. PROPERTIES
  10. PROTECTED
  11. METHODS
  12. OBJCODE
  13. RESERVED1
  14. RESERVED2
  15. RESERVED3
  16. RESERVED4
  17. RESERVED5
  18. RESERVED6
  19. RESERVED7
  20. RESERVED8
  21.  COMMENT Class               
  22.  WINDOWS _QYW0ZV9O9 547846790
  23.  COMMENT RESERVED            
  24.  WINDOWS _QYW0ZYVNR 547846802
  25.  COMMENT RESERVED            
  26.  WINDOWS _QZ919NECA 548053952
  27.  COMMENT RESERVED            
  28.  WINDOWS _R060RRVS3 551201915
  29.  COMMENT RESERVED            
  30.  WINDOWS _R020VQ2Y6 551716123N
  31.  COMMENT RESERVED            
  32.  WINDOWS _R020K4VL1 551718023<
  33.  WINDOWS _R020K4QDT 551718023
  34.  WINDOWS _R020K4QYE 551718023
  35.  WINDOWS _R020K4RIZ 551718023
  36.  WINDOWS _R020K4S45 551718023
  37.  WINDOWS _R020K4SOQ 551718023
  38.  WINDOWS _R020K4SPK 551718023
  39.  WINDOWS _R020K4T9V 551718023h
  40.  WINDOWS _R020K4TU6 551718023G
  41.  WINDOWS _R020K4UER 551718023
  42.  WINDOWS _R020K4UFL 551718023
  43.  WINDOWS _R020K4UZW 551718023
  44.  WINDOWS _R020K4V0G 551718023
  45.  COMMENT RESERVED            
  46.  WINDOWS _QZ50KNCBX 552372769I
  47.  COMMENT RESERVED            
  48.  WINDOWS _R030WRT46 552374825
  49.  WINDOWS _R030WRRNV 552374825f
  50.  WINDOWS _R030WRSEL 551723267b
  51.  COMMENT RESERVED            
  52.  WINDOWS _QYW0ZUF9W 552766866F
  53.  COMMENT RESERVED            
  54.  WINDOWS _QYW0ZUV8C 552766870
  55.  COMMENT RESERVED            
  56.  WINDOWS _QYW0ZZW5V 552766877    
  57.  COMMENT RESERVED            
  58.  WINDOWS _QZ919RBBM 552766882a
  59.  COMMENT RESERVED            
  60.  WINDOWS _R020JYRO3 552766886
  61.  WINDOWS _R020JYRKR 514411100?
  62.  WINDOWS _R020JYRLV 514411100F
  63.  WINDOWS _R020JYRN9 514411100
  64.  COMMENT RESERVED            
  65.  WINDOWS _QZ919RZC7 552766889O
  66.  COMMENT RESERVED            
  67.  WINDOWS _R020K6I5W 552766892
  68.  COMMENT RESERVED            
  69.  WINDOWS _QZ919MZF4 552766951g
  70.  COMMENT RESERVED            
  71.  WINDOWS _R0O0UWM30 553348704|
  72.  COMMENT RESERVED            
  73. VERSION =  0.029
  74. ..\include\tastrade.hr
  75. ..\..\..\dev\foxpro.hz
  76. ..\include\strings.h
  77. !Arial, 0, 9, 5, 15, 12, 21, 3, 0
  78.     tstoolbar
  79. ..\include\tastrade.h
  80.     ts3dshape
  81. Pixels
  82. !Arial, 0, 8, 5, 14, 11, 20, 3, 0
  83. !Arial, 1, 8, 5, 14, 11, 14, 3, 0
  84. tscommandbutton
  85. ..\include\tastrade.h:
  86. ..\..\..\dev\foxpro.hB
  87. ..\include\strings.hJ
  88. tscombobox
  89. tslabel
  90. Pixels
  91. ..\include\tastrade.h*
  92. ..\..\..\dev\foxpro.h2
  93. ..\include\strings.h:
  94. !Arial, 0, 8, 5, 14, 11, 20, 3, 0
  95. tsgrid
  96. Pixels
  97. ..\bitmaps\combo.bmp
  98.     tslistbox
  99. ..\bitmaps\combo.bmp
  100. Base ComboBox
  101. Class
  102. ..\bitmaps\shape.bmp
  103. !savewindowpos
  104. restorewindowpos
  105. Pixels
  106. /..\..\..\..\backup\mainsamp\bitmaps\toolbar.bmp
  107. /..\..\..\..\backup\mainsamp\bitmaps\toolbar.bmp
  108. Standard toolbar class
  109. Class
  110. toolbar
  111.     tstoolbar
  112. 3PROCEDURE Click
  113. oApp.DoForm("behindsc")
  114. ENDPROC
  115.     tstoolbar.
  116. cmdBehindSC
  117. ..\bitmaps\shape.bmp
  118. Base Shape
  119. Class
  120. shape
  121. ..\include\tastrade.h
  122. Pixels
  123. ..\bitmaps\datagrid.bmp
  124. ..\bitmaps\datagrid.bmp
  125.     Base Grid
  126. Class
  127. tsgrid
  128. ncolumnsum Stores the sum of a column specified in the cFieldToSum property. 
  129. cfieldtosum The name of the field to sum. 
  130. *sumcolumn Procedure to sum the column.
  131.     ts3dshape
  132. Init,
  133. shape
  134. FontBold = .F.
  135. FontSize = 8
  136. DeleteMark = .F.
  137. Highlight = .F.
  138. RecordMark = .F.
  139. RecordSource = ""
  140. RowHeight = 17
  141. TabIndex = 1
  142. Width = 319
  143. ncolumnsum = 0
  144. cfieldtosum = 
  145. Name = "tsgrid"
  146. combobox
  147. tscombobox
  148. ?PROCEDURE Init
  149. *-- (c) Microsoft Corporation 1995
  150. ENDPROC
  151. combobox
  152. ..\bitmaps\label.bmp
  153. ..\bitmaps\label.bmp
  154. tstoolbarbutton
  155. !Arial, 0, 8, 5, 14, 11, 12, 3, 0
  156.         
  157.     tsifcombo
  158. ..\include\tastrade.h
  159. ?PROCEDURE Init
  160. *-- (c) Microsoft Corporation 1995
  161. ENDPROC
  162. PHeight = 73
  163. Width = 234
  164. BackStyle = 0
  165. SpecialEffect = 0
  166. Name = "ts3dshape"
  167. !Arial, 0, 8, 5, 14, 11, 20, 3, 0
  168. tsformretval
  169. Top = 4
  170. Left = 192
  171. Height = 22
  172. Width = 22
  173. Picture = ..\bitmaps\bhind_s.bmp
  174. Caption = ""
  175. Default = .F.
  176. TabIndex = 8
  177. ToolTipText = "Behind The Scenes"
  178. Name = "cmdBehindSC"
  179. commandbutton
  180. THISFORM
  181. Click,
  182. Pixels
  183. Pixels
  184. Pixelsdth = 577
  185. Height =
  186. tsbase.vcx
  187. tstoolbarbutton
  188. lcancelclick
  189. ATop = 4
  190. Left = 192
  191. Height = 1
  192. Width = 1
  193. Name = "separator2"
  194. |FontBold = .F.
  195. FontSize = 8
  196. Height = 24
  197. TabIndex = 1
  198. Width = 200
  199. DisabledBackColor = 192,192,192
  200. Name = "tscombobox"
  201. Pixels
  202. !Arial, 0, 8, 5, 14, 11, 20, 3, 0
  203. ..\bitmaps\form.bmp
  204. ..\bitmaps\form.bmp
  205. Class
  206.     tstoolbar.
  207. separator2
  208.     separator
  209. Init,
  210. ..\bitmaps\pushb.bmp
  211. 5csearchstring
  212. calias
  213. cfield
  214. RowSourceType
  215. Style
  216. X 548
  217. ..\PageCount = 2
  218. Top = 0
  219. ..\bitmaps\pushb.bmp
  220. tsoptiongroup
  221. Init,
  222. tsbase.vcx
  223. !Arial, 0, 9, 5, 15, 12, 21, 3, 0
  224. Class
  225. Init,
  226.     separator
  227.     tstoolbar.
  228. ..\bitmaps\intell_s.bmpeP
  229. Class45
  230. Height = 31
  231. uTop = 
  232. ..\include\tastrade.h:
  233. ..\..\..\dev\foxpro.hB
  234. ..\include\strings.hJ
  235. tsbaseform
  236. ..\include\tastrade.h
  237. Pixels
  238. ..\bitmaps\form.bmp
  239. ..\bitmaps\form.bmp
  240.     Base Form
  241. SSpecial "intelli-find" combo box. Performs incremental "seeks" as the user types.  
  242. tscomm
  243. cmdClose
  244. Pixels
  245. ..\bitmaps\pushb.bmp
  246. ..\bitmaps\pushb.bmp
  247. Base CommandButton
  248. 0Base class commandbutton for all toolbar buttons
  249. commandbutton
  250. tstoolbarbutton
  251.     tseditbox
  252. commandbutton
  253.     tstextbox
  254. CONTROLSOURCE    
  255. INPUTMASK
  256. Init,
  257. PROCEDURE Click
  258. IF _screen.ActiveForm.QueryUnload()
  259.   IF FormIsObject()
  260.     _screen.ActiveForm.Release()
  261.   ENDIF
  262. ENDIF
  263. ENDPROC
  264. Top = 4
  265. Left = 165
  266. Height = 22
  267. Width = 22
  268. Picture = ..\bitmaps\close.bmp
  269. Caption = ""
  270. Default = .F.
  271. ToolTipText = "Close (Ctrl+F4)"
  272. Name = "cmdClose"
  273. commandbutton
  274. ..\bitmaps\listbox.bmp
  275. Class
  276. Init,
  277. tsbase.vcx
  278. combobox
  279. ..\include\stri
  280. tstoolbarbutton
  281. Glcancelclick True if code in MouseDown() wishes to cancel the click. 
  282. Pixels
  283. ..\bitmaps\listbox.bmp
  284. !Arial, 0, 8, 5, 14, 11, 20, 3, 0
  285. !Arial, 0, 8, 5, 14, 11, 20, 3, 0
  286. Pixels
  287. Base OptionGroup
  288. Class
  289. optiongroup
  290. tsoptiongroup
  291. Init,
  292. ?PROCEDURE Init
  293. *-- (c) Microsoft Corporation 1995
  294. ENDPROC
  295. optiongroup
  296. PHeight = 27
  297. Width = 26
  298. Caption = " "
  299. TabIndex = 1
  300. Name = "tstoolbarbutton"
  301. ..\bitmaps\textbox.bmp
  302. ATop = 4
  303. Left = 165
  304. Height = 0
  305. Width = 0
  306. Name = "Separator3"
  307.     tstoolbar.
  308. Separator3
  309.     separator
  310.     separator
  311. ReadOnlya
  312. Column
  313. SETALL
  314. Init,
  315. BPROCEDURE Click
  316. _screen.ActiveForm.Restore()
  317. ENDPROC
  318.     tstoolbar.
  319. cmdRestore
  320. commandbutton
  321. tsbase.vcx
  322. NBUTTON
  323. NSHIFT
  324. NXCOORD
  325. NYCOORD
  326. LCANCELCLICK
  327. PARENT
  328. OKTOSEND<
  329. NBUTTON
  330. NSHIFT
  331. NXCOORD
  332. NYCOORD
  333. LCANCELCLICK    
  334. MouseDown,
  335. MouseUp
  336.     tseditbox
  337. tsbase.vcx
  338. editbox
  339. !Arial, 0, 8, 5, 14, 11, 20, 3, 0
  340. ..\bitmaps\textbox.bmp
  341. Class
  342. tstoolbarbutton
  343.     tstoolbar.
  344. tsformretval
  345. Base ListBox
  346. Base TextBox
  347. Class
  348. textbox
  349.     tstextbox
  350. textbox
  351. cmdSave
  352.     tsifcombo.h
  353. c:\vfp
  354. combobox 1 field
  355.     lcT
  356. Pixels
  357. 9PROCEDURE Click
  358. _screen.ActiveForm.Save()
  359. ENDPROC
  360. commandbutton
  361. BArial, 0, 8, 5, 14, 11, 20, 3, 0
  362. Arial, 1, 8, 5, 14, 11, 14, 3, 0
  363. tsbase.vcx
  364. !Arial, 0, 8, 5, 14, 11, 20, 3, 0
  365. Class
  366. listbox
  367.     tslistbox
  368. listbox
  369. tstextform
  370. <restorewindowpos
  371. savewindowpos
  372. addtomenu
  373. removefrommenu
  374. tstoolbarbutton
  375.     tstoolbar.
  376. THISFORM
  377. PAGEFRAME1
  378. ACTIVEPAGE
  379. TSBASEFORM
  380. ADDNEW
  381. addnew,
  382. Pixels
  383. behindsc
  384. DOFORM
  385. Click,
  386. Class
  387. 9PROCEDURE Click
  388. _screen.ActiveForm.AddNew()
  389. ENDPROC
  390. cmdNew
  391. commandbutton
  392. ?PROCEDURE Init
  393. *-- (c) Microsoft Corporation 1995
  394. ENDPROC
  395. tsbase.vcx
  396. tstoolbarbutton
  397. tsbaseform
  398.     tstoolbar.
  399. tstextform
  400. Separator1
  401.     separator
  402. tsbaseform
  403. Base Label
  404.     separator
  405. ..\include\tastrade.h:
  406. ..\..\..\dev\foxpro.hB
  407. ..\include\strings.hJ
  408. PROCEDURE Click
  409. LOCAL lnResult
  410. lnResult = _screen.ActiveForm.First()
  411. DO CASE
  412.   CASE lnResult = FILE_BOF
  413.     this.Parent.Refresh("BOF")
  414. ENDCASE    
  415. ENDPROC
  416. !Arial, 0, 8, 5, 14, 11, 20, 3, 0
  417. tsmaintform
  418. ..\include\tastrade.h
  419. <restorewindowpos
  420. savewindowpos
  421. addtomenu
  422. removefrommenu
  423. Pixels
  424. ..\bitmaps\form.bmp
  425. !Arial, 0, 8, 5, 14, 11, 20, 3, 0
  426. tscheckbox
  427. Pixels
  428. ..\bitmaps\checkbx.bmp
  429. ..\bitmaps\checkbx.bmp
  430. Base CheckBox
  431. Class
  432. checkbox
  433. tscheckbox
  434. ?PROCEDURE Init
  435. *-- (c) Microsoft Corporation 1995
  436. ENDPROC
  437. ..\bitmaps\form.bmp
  438. Init,
  439. Base form used to create forms that return a value. Forms based upon this class must be created as a class. (i.e., stored in a VCX, not an SCX).
  440. Wuretval Property to hold the form's return value. Can be any data type.
  441. lallowdelete
  442. @Top = 4
  443. Left = 96
  444. Height = 0
  445. Width = 0
  446. Name = "Separator1"
  447.     tstoolbar.
  448. cmdLast
  449. ..\bitmaps\editbox.bmp
  450. ..\bitmaps\editbox.bmp
  451. Base EditBox
  452. >Base class for all forms that view memo fields or text files. 
  453. tstextform.
  454. commandbutton
  455. tsbase.vcx
  456. commandbutton
  457. tscommandbutton
  458. ?The base form from which all maintenance style forms are based.
  459. Class
  460. tsbaseform
  461. cmdPrint
  462. commandbutton
  463. tsbase.vcx
  464. tstoolbarbutton
  465.     tstoolbar.
  466. cmdNext
  467. ?PROCEDURE Init
  468. *-- (c) Microsoft Corporation 1995
  469. ENDPROC
  470. commandbutton
  471. commandbutton
  472. uHeight = 26
  473. Width = 76
  474. FontBold = .T.
  475. FontSize = 8
  476. Caption = "Command1"
  477. TabIndex = 1
  478. Name = "tscommandbutton"
  479. tsbase.vcx
  480. tstoolbarbutton
  481. Class
  482. label
  483. tslabel
  484. label
  485.     tstoolbar.
  486. cmdPrior
  487. Class
  488. editbox
  489. tscommandbutton
  490. Top = 4
  491. Left = 138
  492. Height = 22
  493. Width = 22
  494. Picture = ..\bitmaps\undo.bmp
  495. Caption = ""
  496. Default = .F.
  497. TabIndex = 7
  498. ToolTipText = "Restore (Ctrl+E)"
  499. Name = "cmdRestore"
  500. Top = 4
  501. Left = 117
  502. Height = 22
  503. Width = 22
  504. Picture = ..\bitmaps\save.bmp
  505. Caption = ""
  506. Default = .F.
  507. TabIndex = 6
  508. ToolTipText = "Save (Ctrl+S)"
  509. Name = "cmdSave"
  510. tstextform.
  511. commandbutton
  512. tsbase.vcx
  513. tstoolbarbutton
  514.     tstoolbar.
  515. cmdFirst
  516. `Height = 15
  517. Width = 148
  518. FontSize = 8
  519. BackStyle = 0
  520. Caption = "Check1"
  521. Name = "tscheckbox"
  522. Top = 4
  523. Left = 96
  524. Height = 22
  525. Width = 22
  526. Picture = ..\bitmaps\new.bmp
  527. Caption = ""
  528. Default = .F.
  529. TabIndex = 5
  530. ToolTipText = "New (Ctrl+N)"
  531. Name = "cmdNew"
  532. cmdClose
  533. commandbutton
  534. tsbase.vcx
  535. tstoolbarbutton
  536. ,Height = 300
  537. Width = 578
  538. DoCreate = .T.
  539. BufferMode = 2
  540. AutoCenter = .T.
  541. BorderStyle = 2
  542. Caption = "Form1"
  543. FontSize = 8
  544. MaxButton = .F.
  545. MinButton = .F.
  546. MDIForm = .T.
  547. BackColor = 192,192,192
  548. ctoolbar = tstoolbar
  549. lallowedits = .T.
  550. lallownew = .T.
  551. lallowdelete = .T.
  552. Name = "tsbaseform"
  553. tsmaintform
  554. jPROCEDURE Init
  555. *-- Set all grid columns to read only
  556. this.SetAll("ReadOnly", .T., "Column")
  557. ENDPROC
  558. tsmaintform.pageframe1.Page2.
  559. PROCEDURE Click
  560. LOCAL lnResult
  561. lnResult = _screen.ActiveForm.Last()
  562. DO CASE
  563.   CASE lnResult = FILE_EOF
  564.     this.Parent.Refresh("EOF")
  565. ENDCASE
  566. ENDPROC
  567. THISFORM
  568. LOCKSCREEN
  569. EDTTEXT
  570. WIDTH
  571. HEIGHT
  572. CMDCLOSE
  573. CMDPRINT
  574. Resize,
  575. QueryUnload?
  576. commandbutton
  577. qCaption = "Navigation Tools"
  578. Height = 28
  579. Left = 6
  580. Top = 6
  581. Width = 218
  582. ControlBox = .F.
  583. Name = "tstoolbar"
  584. toolbar
  585. tsbase.vcx
  586. Top = 4
  587. Left = 69
  588. Height = 22
  589. Width = 22
  590. Picture = ..\bitmaps\lstrec_s.bmp
  591. Caption = ""
  592. Default = .F.
  593. TabIndex = 4
  594. ToolTipText = "Last (Ctrl+End)"
  595. Name = "cmdLast"
  596. tscommandbutton
  597. *oktosend Returns .T. if the active form can receive messages from this toolbar. 
  598. *savewindowpos Saves the position of the toolbar to the INI file.
  599. *restorewindowpos Restores the window's position from the INI file.
  600. VLeft = 0
  601. ReadOnly = .T.
  602. RecordSource = ""
  603. TabIndex = 1
  604. Top = 0
  605. Name = "grdList"
  606. grdList
  607.     tseditbox
  608. ?PROCEDURE Init
  609. *-- (c) Microsoft Corporation 1995
  610. ENDPROC
  611. editbox
  612. Top = 4
  613. Left = 6
  614. Height = 22
  615. Width = 22
  616. Picture = ..\bitmaps\frsrec_s.bmp
  617. Caption = ""
  618. Default = .F.
  619. TabIndex = 1
  620. ToolTipText = "First (Ctrl+Home)"
  621. Name = "cmdFirst"
  622. ?PROCEDURE Init
  623. *-- (c) Microsoft Corporation 1995
  624. ENDPROC
  625. tsbase.vcx
  626. tsgrid
  627. tsmaintform.
  628. pageframe1
  629.     pageframe
  630.     pageframe
  631. ACTIVEFORM
  632. QUERYUNLOAD
  633. FORMISOBJECT
  634. RELEASE
  635. Click,
  636. tsbase.vcx
  637. tstextform.
  638. 5ScaleMode = 3
  639. DoCreate = .T.
  640. Name = "tsmaintform"
  641. edtText
  642. checkbox
  643. FontBold = .T.
  644. FontSize = 8
  645. Alignment = 1
  646. BackStyle = 0
  647. Caption = "Label1"
  648. Comment = ""
  649. Height = 22
  650. Width = 77
  651. TabIndex = 1
  652. Name = "tslabel"
  653. PROCEDURE Click
  654. LOCAL lnResult
  655. lnResult = _screen.ActiveForm.Next()
  656. DO CASE
  657.   CASE lnResult = FILE_EOF
  658.     this.Parent.Refresh("EOF")
  659.   CASE lnResult = FILE_OK
  660.     this.Parent.Refresh()
  661. ENDCASE
  662. ENDPROC
  663. FontBold = .F.
  664. FontSize = 8
  665. Format = "K"
  666. Height = 22
  667. InputMask = ""
  668. TabIndex = 1
  669. Width = 100
  670. ColorSource = 0
  671. DisabledForeColor = 128,128,128
  672. Name = "tstextbox"
  673. DoCreate = .T.
  674. AutoCenter = .T.
  675. BorderStyle = 2
  676. Caption = "Form1"
  677. ControlBox = .F.
  678. FontSize = 8
  679. MaxButton = .F.
  680. MinButton = .F.
  681. WindowType = 1
  682. Comment = "(c) Microsoft Corporation 1995"
  683. BackColor = 192,192,192
  684. uretval = .T.
  685. Name = "tsformretval"
  686. ACTIVEFORM
  687. RESTORE
  688. Click,
  689. nFontBold = .F.
  690. FontSize = 8
  691. Height = 104
  692. Width = 125
  693. DisabledBackColor = 192,192,192
  694. Name = "tslistbox"
  695. ACTIVEFORM
  696. Click,
  697. QFontBold = .F.
  698. FontSize = 8
  699. TabIndex = 1
  700. ColorSource = 0
  701. Name = "tseditbox"
  702. ,PROCEDURE Click
  703. RELEASE thisform
  704. ENDPROC
  705. PROCEDURE addnew
  706. *-- (c) Microsoft Corporation 1995
  707. *-- Autoselect the data entry page
  708. thisform.Pageframe1.ActivePage = 1
  709. tsBaseForm::AddNew()
  710. ENDPROC
  711. Top = 4
  712. Left = 48
  713. Height = 22
  714. Width = 22
  715. Picture = ..\bitmaps\nxtrec_s.bmp
  716. Caption = ""
  717. Default = .F.
  718. TabIndex = 3
  719. ToolTipText = "Next (Ctrl+Page Down)"
  720. Name = "cmdNext"
  721. ErasePage = .T.
  722. PageCount = 2
  723. Top = 0
  724. Left = 0
  725. Width = 577
  726. Height = 301
  727. Name = "pageframe1"
  728. Page1.FontSize = 8
  729. Page1.Caption = "\<Data Entry"
  730. Page1.Name = "Page1"
  731. Page2.FontSize = 8
  732. Page2.Caption = "\<List"
  733. Page2.Name = "Page2"
  734. PROCEDURE Click
  735. LOCAL lnResult
  736. lnResult = _screen.ActiveForm.Prior()
  737. DO CASE
  738.   CASE lnResult = FILE_BOF
  739.     this.Parent.Refresh("BOF")
  740.   CASE lnResult = FILE_OK
  741.     this.Parent.Refresh()
  742. ENDCASE
  743. ENDPROC
  744. gTop = 300
  745. Left = 330
  746. Height = 31
  747. Width = 111
  748. Caption = "\<Print"
  749. TabIndex = 3
  750. Name = "cmdPrint"
  751. ACTIVEFORM
  752. ADDNEW
  753. Click,
  754. rHeight = 288
  755. Left = 0
  756. ReadOnly = .T.
  757. TabIndex = 1
  758. Top = 0
  759. Width = 578
  760. ControlSource = ""
  761. Name = "edtText"
  762. )PROCEDURE Init
  763. *-- (c) Microsoft Corporation 1995
  764. *- don;t overwrite specific inputmasks
  765. IF TYPE(this.ControlSource) = "C" AND EMPTY(this.InputMask)
  766.   this.InputMask = REPLICATE("X", ;
  767.                     FSIZE(SUBSTR(this.ControlSource, AT(".", this.ControlSource) + 1)))
  768. ENDIF
  769. ENDPROC
  770. Top = 4
  771. Left = 27
  772. Height = 22
  773. Width = 22
  774. Picture = ..\bitmaps\prvrec_s.bmp
  775. Caption = ""
  776. Default = .F.
  777. TabIndex = 2
  778. ToolTipText = "Prior (Ctrl+Page Up)"
  779. Name = "cmdPrior"
  780. ButtonCount = 2
  781. BackStyle = 0
  782. Value = 1
  783. Height = 48
  784. Width = 85
  785. Name = "tsoptiongroup"
  786. Option1.FontSize = 8
  787. Option1.BackStyle = 0
  788. Option1.Caption = "Option1"
  789. Option1.Value = 1
  790. Option1.Height = 18
  791. Option1.Left = 5
  792. Option1.Top = 5
  793. Option1.Width = 75
  794. Option1.Name = "Option1"
  795. Option2.FontSize = 8
  796. Option2.BackStyle = 0
  797. Option2.Caption = "Option2"
  798. Option2.Value = 0
  799. Option2.Height = 18
  800. Option2.Left = 5
  801. Option2.Top = 25
  802. Option2.Width = 75
  803. Option2.Name = "Option2"
  804. Init,
  805. uTop = 300
  806. Left = 145
  807. Height = 31
  808. Width = 111
  809. Cancel = .T.
  810. Caption = "\<Close"
  811. TabIndex = 2
  812. Name = "cmdClose"
  813. THISFORM
  814. CAPTIONA
  815. m.gTTradeb
  816. GTTRADE
  817. CLASSBROWERR_LOC
  818. Unload,
  819. Activate9
  820. Initi
  821. FontSize = 8
  822. RowSourceType = 3
  823. DisplayValue = 
  824. Height = 21
  825. IncrementalSearch = .F.
  826. TabIndex = 1
  827. Width = 200
  828. DisabledBackColor = 192,192,192
  829. csearchstring = 
  830. calias = 
  831. ctag = 
  832. cfield = 
  833. llimittolist = .T.
  834. Name = "tsifcombo"
  835. ias + "." + lcTagNa
  836. THISFORM
  837. REFRESHFORM/
  838. LCALIAS
  839. THISFORM
  840. DATASESSIONID
  841. DATAENVIRONMENT
  842. INITIALSELECTEDALIAS
  843. ISNEWANDEMPTY
  844. RESTORE
  845. GRDLIST
  846. REFRESH
  847. DATACHANGED    
  848. ASKTOSAVE
  849. PAGEFRAME1
  850. ACTIVEPAGE
  851. REFRESHFORM
  852. SETFOCUS)
  853. GRDLIST
  854. Page1.Activate,
  855. Page2.ActivateW
  856. Page2.InitP
  857. LNRESULT
  858. ACTIVEFORM
  859. PARENT
  860. REFRESH
  861. Click,
  862. CDataSession = 2
  863. ScaleMode = 3
  864. Top = 54
  865. Left = 25
  866. Height = 341
  867. Width = 578
  868. DoCreate = .T.
  869. BufferMode = 0
  870. AutoCenter = .F.
  871. BorderStyle = 3
  872. Caption = "Form 1"
  873. MaxButton = .T.
  874. MinHeight = 200
  875. MinWidth = 400
  876. WindowType = 1
  877. lallowedits = .F.
  878. ctoolbar = 
  879. lallownew = .F.
  880. lallowdelete = .F.
  881. Name = "tstextform"
  882. bPROCEDURE Unload
  883. SET MESSAGE TO 
  884. ENDPROC
  885. PROCEDURE Activate
  886. *-- Force the menu to refresh
  887. ACTIVATE MENU _MSYSMENU NOWAIT
  888. SET MESSAGE TO thisform.Caption
  889. ENDPROC
  890. PROCEDURE Init
  891. *- this class can't be used independent of the application
  892. IF TYPE("m.gTTrade") # 'L' OR !m.gTTrade
  893.     =MESSAGEBOX(CLASSBROWERR_LOC)
  894.     RETURN .F.
  895. ENDIF
  896. ENDPROC
  897. csearchstring Holds the text the user is typing. 
  898. calias Holds the alias to do the search on. 
  899. ctag Since you can only specify 10 characters for tag names, this property is used to specify a tag name for the field that is being searched. If not specified, the first 10 characters of the field name are used. 
  900. cfield Field to EVAL() when displaying the text box portion.
  901. llimittolist True if user is limited to adding items that are already in the list. 
  902. "PROCEDURE MouseDown
  903. *-- (c) Microsoft Corporation 1995
  904. LPARAMETERS nButton, nShift, nXCoord, nYCoord
  905. this.lCancelClick = .F.
  906. IF !this.Parent.OKToSend()
  907.   *-- Set lCancelClick to .T. to prevent button from being pushed
  908.   this.lCancelClick = .T.
  909.   ?? CHR(7)
  910.   NODEFAULT
  911. ENDIF
  912. ENDPROC
  913. PROCEDURE MouseUp
  914. LPARAMETERS nButton, nShift, nXCoord, nYCoord
  915. *-- If lCancelClick property is .T., issue a NODEFAULT
  916. *-- to prevent button from being visually pushed.
  917. IF this.lCancelClick
  918.   this.lCancelClick = .F.
  919.   NODEFAULT
  920. ENDIF
  921. ENDPROC
  922. LNRESULT
  923. ACTIVEFORM
  924. PARENT
  925. REFRESH
  926. Click,
  927. LNRESULT
  928. ACTIVEFORM
  929. PRIOR
  930. PARENT
  931. REFRESH
  932. Click,
  933. LNRESULT
  934. ACTIVEFORM
  935. FIRST
  936. PARENT
  937. REFRESH
  938. Click,
  939. PROCEDURE sumcolumn
  940. *-- (c) Microsoft Corporation 1995
  941. *-- This method is used to sum a column in the grid and
  942. *-- store the result to a custom property. Currently this
  943. *-- works for only one column at a time.
  944. IF EMPTY(this.cFieldToSum)
  945.   RETURN
  946. ENDIF
  947. LOCAL lnOldArea, ;
  948.     lnOldRecNo, ;
  949.     luKey, ;
  950.     lcFieldToSum, ;
  951.     lcOrder
  952. lnOldArea = SELECT()
  953. this.nColumnSum = 0
  954. lcFieldToSum = ""
  955. IF EMPTY(this.RecordSource)
  956.   RETURN
  957. ENDIF
  958. *-- Select the alias specified in the grid's RecordSource property
  959. SELECT (this.RecordSource)
  960. lcOrder = ORDER()
  961. *-- Use the string returned by ORDER() as the parameter
  962. *-- to the EVAL() function to retrive the value of the 
  963. *-- current ID, which we use later to SEEK() into the table.
  964. luKey = IIF(!EMPTY(lcOrder), EVAL(lcOrder), "")
  965. lnOldRecNo = IIF(EOF(), 0, RECNO())
  966. lcFieldToSum = this.cFieldToSum
  967. *-- Total up the column and store the result 
  968. *-- in the nColumnSum property
  969. IF !EMPTY(lcOrder) AND SEEK(luKey)
  970.   SUM &lcFieldToSum. ;
  971.     WHILE luKey = EVAL(lcOrder) ;
  972.     TO this.nColumnSum
  973.   IF CURSORGETPROP("SOURCETYPE") = DB_SRCLOCALVIEW OR ;
  974.       CURSORGETPROP("SOURCETYPE") = DB_SRCREMOTEVIEW
  975.     *-- Grid is bound to a view
  976.     SUM &lcFieldToSum. ;
  977.       TO this.nColumnSum
  978.   ENDIF
  979. ENDIF
  980. IF lnOldRecNo <> 0
  981.   GO lnOldRecNo
  982. ENDIF
  983. SELECT (lnOldArea)
  984. ENDPROC
  985. PROCEDURE Refresh
  986. *-- Recalc column totals each time grid is refreshed
  987. this.SumColumn()
  988. ENDPROC
  989. )PROCEDURE Resize
  990. *-- (c) Microsoft Corporation 1995
  991. *-- Dynamically size all controls on the form based on 
  992. *-- the form's dimensions
  993. thisform.LockScreen = .T.
  994. thisform.edtText.Width = thisform.Width
  995. thisform.edtText.Height = thisform.Height - 54
  996. thisform.cmdClose.Left = INT(thisform.Width / 4)
  997. thisform.cmdPrint.Left = INT(thisform.Width / 1.75)
  998. thisform.cmdClose.Top = thisform.Height - 42
  999. thisform.cmdPrint.Top = thisform.cmdClose.Top
  1000. thisform.LockScreen = .F.
  1001. ENDPROC
  1002. PROCEDURE QueryUnload
  1003. *-- Override tsbaseform default
  1004. ENDPROC
  1005. ctoolbar The name of the toolbar to create when the form is run. 
  1006. lallowedits True if editing is allowed for the current form.
  1007. lallownew True if adding new records is allowed for the current form.
  1008. lallowdelete True if deleting is allowed for the current form.
  1009. lseterroroff Disable error handling
  1010. lhaderror An error occurred while error handling was disabled.
  1011. *next Moves the record pointer for the current alias to the next record.
  1012. *first Moves the record pointer for the current alias to the first record. 
  1013. *last Moves the record pointer for the current alias to the last record.
  1014. *prior Moves the record pointer for the current alias to the prior record.
  1015. *save Saves the information on the form to the current alias. 
  1016. *delete Deletes the current record.
  1017. *addnew Prepares the form for entry of a new record, and appends a record to the current alias.
  1018. *restore Restores all changes made on the current form. (Also cancels the previous New operation, if applicable). 
  1019. *writebuffer Called when we need to write the contents of the current control from the buffer to disk. 
  1020. *refreshform Custom refresh method. 
  1021. *waitmode Toggles the wait cursor on and off for all controls on the screen.
  1022. *restorewindowpos Reads the last position of the window from the INI file and sets the appropriate window properties.
  1023. *savewindowpos Saves the position of the window to the INI file.
  1024. *addtomenu Adds the caption of the form to the Window menu.
  1025. *removefrommenu Removes the caption of the form from the Window menu.
  1026. *datachanged Returns .T. if data has changed on the current form.
  1027. *asktosave Prompts user to save changes if necessary.
  1028. ^aerrormsg[3,0] Holds error messages. Used in Error event method.
  1029. *isnewandempty Returns .T. if the user has added a new record but not made any changes.
  1030. _screen.ActiveForm.cToolBarb
  1031. FORMISOBJECT
  1032. ACTIVEFORM
  1033. CTOOLBAR
  1034. WindowPositions
  1035. TASTRADE.INI
  1036. LCVALUE
  1037. DOCKED
  1038. DOCKPOSITION
  1039. THISFORM
  1040. WRITEPRIVSTR
  1041. CAPTION
  1042. ERROR
  1043. WindowPositions
  1044. TASTRADE.INI
  1045. llError = .T.
  1046. ON ERROR &lcOldError
  1047. LCBUFFER
  1048. LCOLDERROR
  1049. LNTOP
  1050. LNLEFT
  1051. LLERROR
  1052. LNCOMMAPOS
  1053. LNDOCKPOSITION
  1054. GETPRIVSTR
  1055. CAPTION
  1056. DOCK)
  1057. RESTOREWINDOWPOS
  1058. SAVEWINDOWPOS
  1059. VISIBLE
  1060. _screen.Activeform.lAllowEditsb
  1061. TCCONDITION
  1062. LLBOF
  1063. LLEOF
  1064. LLALLOWEDITS
  1065. LLALLOWNEW
  1066. LLSAVEANDRESTORE
  1067. CMDFIRST
  1068. ENABLED
  1069. CMDPRIOR
  1070. CMDNEXT
  1071. CMDLAST
  1072. FORMISOBJECT
  1073. ACTIVEFORM
  1074. LALLOWEDITS    
  1075. LALLOWNEW
  1076. CMDNEW
  1077. CMDSAVE
  1078. CMDRESTORE
  1079. CMDCLOSE
  1080. CLOSABLE
  1081. oktosend,
  1082. savewindowpos
  1083. restorewindowpos
  1084. Destroy
  1085. Refresh:
  1086. SUM &lcFieldToSum.  WHILE luKey = EVAL(lcOrder)  TO this.nColumnSum
  1087. SOURCETYPE
  1088. SOURCETYPE
  1089. SUM &lcFieldToSum.  TO this.nColumnSum
  1090. CFIELDTOSUM    
  1091. LNOLDAREA
  1092. LNOLDRECNO
  1093. LUKEY
  1094. LCFIELDTOSUM
  1095. LCORDER
  1096. NCOLUMNSUM
  1097. RECORDSOURCE
  1098. THIS    
  1099. SUMCOLUMN    
  1100. sumcolumn,
  1101. Refreshc
  1102. tPROCEDURE Page1.Activate
  1103. *-- Make sure form is updated whenever we switch pages. The record
  1104. *-- pointer may have changed while another page was active.
  1105. thisform.RefreshForm()
  1106. ENDPROC
  1107. PROCEDURE Page2.Activate
  1108. LOCAL lcAlias, iRec
  1109. SET DATASESSION TO THISFORM.DataSessionID
  1110. lcAlias = thisform.DataEnvironment.InitialSelectedAlias
  1111. IF !EMPTY(lcAlias)
  1112.     SELECT (lcAlias)
  1113.     *-THIS.grdList.RecordSource = lcAlias
  1114. ENDIF
  1115. *-- Check if any changes were made and prompt user to save
  1116. *-- if necessary before changing to List page
  1117. IF thisform.IsNewAndEmpty()
  1118.     thisform.Restore()            && Restore will call RefreshForm
  1119.     iRec = RECNO()
  1120.     *- KEYBOARD '{UPARROW}'        && force the grid to refresh...
  1121.     IF BOF()
  1122.         GO TOP
  1123.     ELSE
  1124.         IF iRec > RECC()
  1125.             GO BOTTOM
  1126.         ELSE
  1127.             GO iRec
  1128.         ENDIF
  1129.     ENDIF
  1130.     THIS.grdList.Refresh
  1131.   IF thisform.DataChanged() AND thisform.AskToSave() = IDCANCEL
  1132.     thisform.pageframe1.ActivePage = 1
  1133.     RETURN
  1134.   ENDIF
  1135.   thisform.RefreshForm()
  1136. ENDIF
  1137. this.grdList.SetFocus()
  1138. ENDPROC
  1139. PROCEDURE Page2.Init
  1140. *-- Position the grid relative to the page
  1141. this.grdList.Top = 0
  1142. this.grdList.Left = 0
  1143. ENDPROC
  1144. PROCEDURE Valid
  1145. RETURN .T.
  1146. ENDPROC
  1147. PROCEDURE Init
  1148. *-- (c) Microsoft Corporation 1995
  1149. LOCAL lcRowSource, ;
  1150.       lnPosFrom, ;
  1151.       lcAlias, ;
  1152.       lcTagName, ;
  1153.       lcControlSource
  1154. *-- The primary purpose of the code in this event method is
  1155. *-- to parse the RowSource property for an alias name and a tag
  1156. *-- name.
  1157. lcControlSource = THIS.ControlSource
  1158. lcRowSource = this.RowSource
  1159. lnPosFrom = ATC("FROM", lcRowSource)
  1160. *-- Get everything after the "FROM" clause
  1161. lcAlias = ALLT(SUBSTR(lcRowSource, lnPosFrom + 4))
  1162. *-- Filter out other clauses after "FROM"
  1163. lcAlias = TRIM(LEFT(lcAlias, AT(" ", lcAlias)))
  1164. IF "," $ lcAlias
  1165.   *-- We have more than 1 alias
  1166.   lcAlias = LEFT(lcAlias, LEN(lcAlias) - 1)
  1167. ENDIF
  1168. *-- We'll need the alias again later, so we save it
  1169. *-- to a custom property
  1170. this.cAlias = lcAlias
  1171. *-- Get a tag name
  1172. *-- If the cTag property is not empty, then the user has specified
  1173. *-- a tag for us to use for the table order.
  1174. IF !EMPTY(this.cTag)
  1175.   lcTagName = ALLTRIM(this.cTag)
  1176.   *-- Get everything after the SELECT clause
  1177.   lcTagName = ALLT(SUBSTR(lcRowSource, AT(" ", lcRowSource)))
  1178.   *-- Filter out all other clauses
  1179.   lcTagName = ALLT(LEFT(lcTagName, AT(" ", lcTagName)))
  1180.   IF "," $ lcTagName
  1181.     *-- We have more than 1 field
  1182.     lcTagName = LEFT(lcTagName, LEN(lcTagName) - 1)
  1183.   ENDIF
  1184. ENDIF
  1185. *-- Exclude the table alias, if any
  1186. IF "." $ lcTagName
  1187.   lcTagName = SUBSTR(lcTagName, AT(".", lcTagName) + 1)
  1188. ENDIF
  1189. *-- Save the field name for later use in the
  1190. *-- KeyPress event method
  1191. this.cField = lcAlias + "." + lcTagName
  1192. *-- Limit tag name to 10 characters
  1193. lcTagName = LEFT(lcTagName, 10)
  1194. *-- Save the tag name for later
  1195. *-- use in the KeyPress event method
  1196. IF EMPTY(this.cTag)
  1197.   this.cTag = lcTagName
  1198. ENDIF
  1199. *-- SET('PROCEDURE') should include Utility.prg
  1200. IF !IsTag(lcTagName, lcAlias)
  1201.   WAIT WINDOW NOWAIT TAGNOTFOUND_LOC + CHR(13) + lcTagName
  1202. ENDIF
  1203. *- restore rowsource, to force combo box to be filled.
  1204. this.RowSource = lcRowSource
  1205. THIS.ControlSource = lcControlSource
  1206. ENDPROC
  1207. PROCEDURE LostFocus
  1208. *-- Reset search string and starting position
  1209. this.cSearchString = ""
  1210. this.SelStart = 0
  1211. ENDPROC
  1212. PROCEDURE KeyPress
  1213. LPARAMETERS nKeyCode, nShiftAltCtrl
  1214. LOCAL lnRecNo
  1215. IF BITAND(4, nShiftAltCtrl) == 4
  1216.     *- the Alt key is pressed
  1217.     RETURN
  1218. ENDIF
  1219. IF INLIST(nKeyCode, 4, 19) OR;
  1220.     (INLIST(nKeyCode,52, 54) AND BITAND(1, nShiftAltCtrl) == 1) OR ;
  1221.     (INLIST( 2, 26) AND BITAND(2, nShiftAltCtrl) == 2) OR ;
  1222.     nKeyCode = 127
  1223.     *- left, right arrow
  1224.     RETURN
  1225. ENDIF
  1226. lnRecNo = RECNO(this.cAlias)
  1227. DO CASE
  1228.   CASE nKeyCode = 24
  1229.       *- down arrow
  1230.       IF EMPTY(THIS.DisplayValue)
  1231.           *- nothing there yet, so go to first record
  1232.           GO TOP IN (this.cAlias)
  1233.       ELSE
  1234.           IF !EOF(this.cAlias)
  1235.               *- not at end of file, so go to next record
  1236.               SKIP IN (this.cAlias)
  1237.           ENDIF
  1238.         IF EOF(this.cAlias)
  1239.             GO BOTTOM IN (this.cAlias)
  1240.         ENDIF
  1241.       ENDIF
  1242.   CASE nKeyCode = 5
  1243.     *- up arrow
  1244.       IF EMPTY(THIS.DisplayValue)
  1245.           *- nothing there yet, so go to first record
  1246.           GO TOP IN (this.cAlias)
  1247.       ELSE
  1248.           IF !BOF(this.cAlias)
  1249.               *- not at beginning of file, so go to previos record
  1250.               SKIP -1 IN (this.cAlias)
  1251.           ENDIF
  1252.         IF BOF(this.cAlias)
  1253.             GO TOP IN (this.cAlias)
  1254.         ENDIF
  1255.       ENDIF
  1256.   *- changed to allow any ASCII character between 32 - 126
  1257.   *-- Valid chars include letters, digits, spaces, and apostrophes
  1258.   CASE BETWEEN(nKeyCode, 32, 126)    && OR BETWEEN(nKeyCode, 97, 122) OR ;
  1259.                                        && BETWEEN(nKeyCode, 48, 57) OR ;
  1260.                                        && BETWEEN(nKeyCode, 33, 42) OR ;
  1261.                                        && nKeyCode = 32 OR nKeyCode = 64 OR nKeyCode = 94    
  1262.     *-- Build the internal search string
  1263.     this.cSearchString = this.cSearchString + CHR(nKeyCode)
  1264.   OTHERWISE
  1265.     RETURN
  1266. ENDCASE
  1267. *-- Cancel the default action. NODEFAULT is necessary to prevent
  1268. *-- two copies of the character from being displayed in the combo 
  1269. *-- since we control the DisplayValue property manually. 
  1270. NODEFAULT
  1271. *-- Do the SEEK(), unless user pressed up or down arrow keys (keys 5 and 24)
  1272. IF nKeyCode # 5 AND nKeyCode # 24 AND !EMPTY(this.cSearchString)
  1273.   =SEEK(UPPER(this.cSearchString), this.cAlias, this.cTag)
  1274. ENDIF
  1275. IF (EMPTY(this.cSearchString) OR EOF(this.cAlias)) AND nKeyCode # 5 AND nKeyCode # 24
  1276.     *-- SEEK() failed
  1277.     IF lnRecNo > RECC(this.cAlias)
  1278.         GO TOP IN (this.cAlias)
  1279.     ELSE
  1280.         GO lnRecNo IN (this.cAlias)
  1281.     ENDIF
  1282.     *-- If entries are permitted that are not in the list, 
  1283.     *-- then set the DisplayValue property to the value of the
  1284.     *-- search string. Otherwise, remove the character just typed
  1285.     *-- from the search string.
  1286.     IF !this.lLimitToList
  1287.       this.DisplayValue = this.cSearchString
  1288.       this.SelLength = 0
  1289.     ELSE
  1290.       *-- Do not add char just typed to search string
  1291.       this.cSearchString = LEFT(this.cSearchString, ;
  1292.                                 LEN(this.cSearchString) - 1)
  1293.     ENDIF
  1294.   *-- SEEK() was succsssful, so fill in the DisplayValue
  1295.   this.DisplayValue = EVAL(this.cField)
  1296.   *-- Select entire string
  1297.   this.SelLength = LEN(this.DisplayValue)
  1298. ENDIF
  1299. *-- Position cursor at end of string
  1300. this.SelStart = LEN(this.cSearchString)
  1301. ENDPROC
  1302. PROCEDURE InteractiveChange
  1303. LOCAL lcField
  1304. *-- Reset properties
  1305. this.cSearchString = ""
  1306. *-- Position record pointer in lookup table
  1307. lcField = this.cField
  1308. =LOOKUP(&lcField, ;
  1309.         UPPER(this.DisplayValue), ;
  1310.         &lcField, ;
  1311.         this.cTag)
  1312. ENDPROC
  1313. PROCEDURE oktosend
  1314. RETURN (FormIsObject() AND ;
  1315.     TYPE("_screen.ActiveForm.cToolBar") <> "U" AND ;
  1316.     !EMPTY(_screen.ActiveForm.cToolBar))
  1317. ENDPROC
  1318. PROCEDURE savewindowpos
  1319. LOCAL lcValue
  1320. IF this.Docked
  1321.   lcValue = ALLT(STR(this.DockPosition))
  1322.   lcValue = ALLT(STR(thisform.Top)) + ',' + ;
  1323.             ALLT(STR(thisform.Left))
  1324. ENDIF
  1325. =WritePrivStr("WindowPositions", this.Caption, ;
  1326.               lcValue, CURDIR() + INIFILE)
  1327. ENDPROC
  1328. PROCEDURE restorewindowpos
  1329. LOCAL  lcBuffer, ;
  1330.       lcOldError, ;
  1331.       lnTop, ;
  1332.       lnLeft, ;
  1333.       llError, ;
  1334.       lnCommaPos, ;
  1335.       lnDockPosition
  1336. lcBuffer = SPACE(10) + CHR(0)
  1337. lcOldError = ON('ERROR')
  1338. lnDockPosition = 0
  1339. *-- Write toolbar position to INI file
  1340. IF GetPrivStr("WindowPositions", this.Caption, "", ;
  1341.                @lcBuffer, LEN(lcBuffer), ;
  1342.                CURDIR() + INIFILE) > 0
  1343.   *-- If an error occurs while parsing the string, 
  1344.   *-- just ignore the string and use the form's 
  1345.   *-- defaults
  1346.   ON ERROR llError = .T.
  1347.   lnCommaPos = AT(",", lcBuffer)
  1348.   IF lnCommaPos > 0
  1349.     lnTop  = VAL(LEFT(lcBuffer, lnCommaPos - 1))
  1350.     lnLeft = VAL(SUBSTR(lcBuffer, lnCommaPos + 1))
  1351.   ELSE
  1352.     lnDockPosition = VAL(lcBuffer)
  1353.   ENDIF
  1354.   ON ERROR &lcOldError
  1355.   IF !llError
  1356.     *-- If position contains a comma, then set the 
  1357.     *-- appropriate properties, otherwise call
  1358.     *-- the Dock method.
  1359.     IF lnCommaPos > 0
  1360.       this.Top = lnTop
  1361.       this.Left = lnLeft
  1362.     ELSE
  1363.       this.Dock(lnDockPosition)
  1364.     ENDIF
  1365.   ENDIF
  1366.   RETURN .F.
  1367. ENDIF
  1368. ENDPROC
  1369. PROCEDURE Init
  1370. *-- (c) Microsoft Corporation 1995
  1371. *-- Restore the toolbar's position
  1372. IF !this.RestoreWindowPos()
  1373.   *-- Default is to dock toolbar at top
  1374.   this.Dock(TOOL_TOP)
  1375. ENDIF
  1376. ENDPROC
  1377. PROCEDURE Destroy
  1378. *-- Save the toolbar's position
  1379. this.SaveWindowPos()
  1380. *-- Make the toolbar disappear faster
  1381. this.Visible = .F.
  1382. ENDPROC
  1383. PROCEDURE Refresh
  1384. LPARAMETERS tcCondition
  1385. LOCAL llBOF, ;
  1386.       llEOF, ;
  1387.       llAllowEdits, ;
  1388.       llAllowNew, ;
  1389.       llSaveAndRestore
  1390. IF PARAMETERS() = 0
  1391.   tcCondition = ""
  1392. ENDIF
  1393. llBOF = BOF() OR (tcCondition = "BOF")
  1394. llEOF = EOF() OR (tcCondition = "EOF")
  1395. *-- Update navigation buttons
  1396. this.cmdFirst.Enabled = !llBOF
  1397. this.cmdPrior.Enabled = !llBOF
  1398. this.cmdNext.Enabled = !llEOF
  1399. this.cmdLast.Enabled = !llEOF
  1400. *-- Update New, Save, Restore, and Close buttons
  1401. IF FormIsObject() 
  1402.   IF TYPE("_screen.Activeform.lAllowEdits") <> "U"
  1403.     llAllowEdits = _screen.Activeform.lAllowEdits
  1404.     llAllowNew = _screen.Activeform.lAllowNew
  1405.     *- llSaveAndRestore = _screen.Activeform.lAllowEdits AND _screen.Activeform.DataChanged()
  1406.     this.cmdNew.Enabled = llAllowNew
  1407.     this.cmdSave.Enabled = llAllowEdits
  1408.     this.cmdRestore.Enabled = llAllowEdits
  1409.   ENDIF
  1410.   this.cmdClose.Enabled = _screen.Activeform.Closable
  1411. ENDIF  
  1412. RETURN
  1413. *-- Chart to help determine enabled property
  1414. *-- of navigation buttons based on llBOF and llEOF
  1415. *-- values.
  1416. *            FIRST    PREV    NEXT    LAST
  1417. * EOF,  BOF    .F.      .F.      .F.      .F.
  1418. *!EOF,  BOF    .F.      .F.      .T.      .T.
  1419. * EOF, !BOF    .T.      .T.      .F.      .F.
  1420. *!EOF, !BOF    .T.      .T.      .T.      .T.
  1421. ENDPROC
  1422. LNRECNO
  1423. LNRETVAL
  1424. THISFORM
  1425. WRITEBUFFER
  1426. ISNEWANDEMPTY
  1427. RESTORE
  1428. DATACHANGED    
  1429. ASKTOSAVE
  1430. REFRESHFORM
  1431. LNRECNO
  1432. LNRETVAL
  1433. THISFORM
  1434. WRITEBUFFER
  1435. ISNEWANDEMPTY
  1436. RESTORE
  1437. DATACHANGED    
  1438. ASKTOSAVE
  1439. REFRESHFORM
  1440. LNRECNO
  1441. LNRETVAL
  1442. LLNEWANDEMPTY
  1443. THISFORM
  1444. WRITEBUFFER
  1445. ISNEWANDEMPTY
  1446. RESTORE
  1447. DATACHANGED    
  1448. ASKTOSAVE
  1449. REFRESHFORM
  1450. LNRECNO
  1451. LNRETVAL
  1452. THISFORM
  1453. WRITEBUFFER
  1454. ISNEWANDEMPTY
  1455. RESTORE
  1456. DATACHANGED    
  1457. ASKTOSAVE
  1458. REFRESHFORM
  1459. Information saved.
  1460. LAERROR
  1461. LLERROR
  1462. THISFORM
  1463. WRITEBUFFER
  1464. DATACHANGED
  1465. ERROR
  1466. OTOOLBAR
  1467. CMDNEW
  1468. ENABLED
  1469. Are you sure you want to delete this record?
  1470. Delete Warning
  1471. That was the last record. Do you want to add a new one?
  1472. Tasmanian Traders
  1473. LNRECNO
  1474. LLRETVAL
  1475. THISFORM
  1476. RESTORE
  1477. REFRESHFORM
  1478. ADDNEW
  1479. RELEASE
  1480. THISFORM
  1481. WRITEBUFFER
  1482. ISNEWANDEMPTY
  1483. RESTORE
  1484. DATACHANGED    
  1485. ASKTOSAVE
  1486. OTOOLBAR
  1487. CMDNEW
  1488. ENABLED
  1489. REFRESHFORMm
  1490. THISFORM
  1491. RELEASE
  1492. OTOOLBAR
  1493. CMDNEW
  1494. ENABLED
  1495. REFRESHFORM
  1496. thisform.ActiveControlb
  1497. thisform.ActiveControl.ControlSourceb
  1498. LLRETVAL
  1499. THISFORM
  1500. ACTIVECONTROL    
  1501. BASECLASS
  1502. CONTROLSOURCE
  1503. VALUE,
  1504. THISFORM
  1505. LOCKSCREEN
  1506. REFRESHU
  1507. MousePointer
  1508. TLWAITMODE
  1509. LNMOUSEPOINTER
  1510. THISFORM
  1511. MOUSEPOINTER
  1512. SETALLy
  1513. ERROR
  1514. WindowPositions
  1515. TASTRADE.INI
  1516. llError = .T.
  1517. ON ERROR &lcOldError
  1518. TCENTRY
  1519. LCBUFFER
  1520. LCOLDERROR
  1521. LNTOP
  1522. LNLEFT
  1523. LLERROR
  1524. LNCOMMAPOS
  1525. LCENTRY
  1526. THISFORM
  1527. CAPTION
  1528. GETPRIVSTR
  1529. WindowPositions
  1530. TASTRADE.INI
  1531. TCENTRY
  1532. LCVALUE
  1533. LCENTRY
  1534. THISFORM
  1535. CAPTION
  1536. WRITEPRIVSTRD
  1537. oAppb
  1538. Windows
  1539. menus\window.mpr
  1540. Window
  1541. WindowC
  1542. Window
  1543. Window
  1544. WindowC
  1545. Window
  1546. ON SELECTION BAR lnBar OF Window ACTIVATE Window &lcFormName
  1547. LNBAR
  1548. MENUS
  1549. WINDOW
  1550. THISFORM
  1551. CAPTION
  1552. LCFORMNAME
  1553. oAppb
  1554. Window
  1555. WindowC
  1556. Window
  1557. Window
  1558. Window
  1559. TCCAPTION
  1560. LNBAR    
  1561. LCCAPTION
  1562. THISFORM
  1563. CAPTION
  1564. WINDOWL
  1565. Do you want to save your changes first?
  1566. Tasmanian Traders
  1567. LNANSWER
  1568. THISFORM
  1569. RESTORE*
  1570. THISFORM
  1571. CTOOLBAR
  1572. WRITEBUFFER
  1573. DATASESSIONID
  1574. DATAENVIRONMENT
  1575. INITIALSELECTEDALIAS
  1576. ISNEWANDEMPTY
  1577. RESTORE
  1578. DATACHANGED    
  1579. ASKTOSAVE    
  1580. m.gTTradeb
  1581. This class cannot be used outside of the Tastrade application.
  1582. oAppb
  1583. Insert trigger failed!
  1584. Update trigger failed!
  1585. Delete trigger failed!
  1586. LNMENUNUM
  1587. LCFORMNAME
  1588. GTTRADE
  1589. THISFORM
  1590. RESTOREWINDOWPOS
  1591. CTOOLBAR    
  1592. ADDTOMENU
  1593. SHOWNAVTOOLBAR    
  1594. AERRORMSG,
  1595. oApp.oToolbarb
  1596. There are no records on file. You will be placed in 'Add' mode.
  1597. Tasmanian Traders
  1598. LCALIAS
  1599. THISFORM
  1600. DATAENVIRONMENT
  1601. INITIALSELECTEDALIAS
  1602. CTOOLBAR
  1603. OTOOLBAR
  1604. REFRESH
  1605. CAPTION
  1606. ADDNEW
  1607. oAppb
  1608. this.ctoolbarb
  1609. THISFORM
  1610. VISIBLE
  1611. CTOOLBAR
  1612. REMOVEFROMMENU
  1613. RELEASENAVTOOLBAR
  1614. SAVEWINDOWPOS
  1615. Tasmanian Traders
  1616. Table rule failed!
  1617. Field
  1618. RuleText
  1619. Tasmanian Traders
  1620. Method: 
  1621. Line: 
  1622. An error has occurred
  1623. NERROR
  1624. CMETHOD
  1625. NLINE
  1626. LLHANDLEDERROR
  1627. LAERROR    
  1628. LCMESSAGE
  1629. LNANSWER
  1630. THISFORM
  1631. LSETERROROFF
  1632. THIS    
  1633. LHADERROR    
  1634. AERRORMSG
  1635. RESTORE
  1636. CLEANUP
  1637. next,
  1638. first
  1639. priorX
  1640. delete2
  1641. addnewR    
  1642. restoref
  1643. writebuffer
  1644. refreshformn
  1645. waitmode
  1646. restorewindowposR
  1647. savewindowposE
  1648. addtomenuC
  1649. removefrommenu
  1650. datachanged
  1651. asktosavee
  1652. isnewandemptyP
  1653. QueryUnload~
  1654. Unload%
  1655. Init2
  1656. Activate
  1657. Destroy
  1658. Error
  1659. Index tag not found.C
  1660. LCROWSOURCE    
  1661. LNPOSFROM
  1662. LCALIAS    
  1663. LCTAGNAME
  1664. LCCONTROLSOURCE
  1665. CONTROLSOURCE    
  1666. ROWSOURCE
  1667. CALIAS
  1668. CFIELD
  1669. ISTAG#
  1670. CSEARCHSTRING
  1671. SELSTART
  1672. NKEYCODE
  1673. NSHIFTALTCTRL
  1674. LNRECNO
  1675. CALIAS
  1676. DISPLAYVALUE
  1677. CSEARCHSTRING
  1678. LLIMITTOLIST    
  1679. SELLENGTH
  1680. CFIELD
  1681. SELSTARTq
  1682. =LOOKUP(&lcField,  UPPER(this.DisplayValue),  &lcField,  this.cTag)
  1683. LCFIELD
  1684. CSEARCHSTRING
  1685. CFIELD
  1686. Valid,
  1687. Init:
  1688. LostFocus
  1689. KeyPress8
  1690. InteractiveChange:
  1691. PROCEDURE next
  1692. *-- Next
  1693. LOCAL lnRecNo, ;
  1694.       lnRetVal
  1695. IF !EOF()
  1696.   *-- If the contents of the current control could not 
  1697.   *-- be saved, return cancel code
  1698.   IF !thisform.WriteBuffer()
  1699.     RETURN FILE_CANCEL
  1700.   ENDIF
  1701.   *-- If adding a new record but nothing entered yet
  1702.   IF thisform.IsNewAndEmpty()
  1703.     thisform.Restore()
  1704.   ELSE
  1705.     *-- If data changed and user cancels, return cancel code
  1706.     IF thisform.DataChanged() AND thisform.AskToSave() = IDCANCEL
  1707.       RETURN FILE_CANCEL
  1708.     ENDIF
  1709.   ENDIF
  1710.   lnRecNo = RECNO()
  1711.   SKIP
  1712.   *-- If we're at EOF, return EOF code
  1713.   IF EOF()
  1714.     SKIP -1
  1715.     RETURN FILE_EOF
  1716.   ENDIF
  1717.   *-- If we're still on the same record,
  1718.   *-- return cancel code
  1719.   IF lnRecNo = RECNO()
  1720.     RETURN FILE_CANCEL
  1721.   ENDIF
  1722.   *-- If we get this far, all is well
  1723.   thisform.RefreshForm()
  1724.    RETURN FILE_OK
  1725.   RETURN FILE_EOF
  1726. ENDIF
  1727. ENDPROC
  1728. PROCEDURE first
  1729. *-- First
  1730. LOCAL lnRecNo, ;
  1731.       lnRetVal
  1732. *-- If the contents of the current control could not 
  1733. *-- be saved, return cancel code
  1734. IF !thisform.WriteBuffer()
  1735.   RETURN FILE_CANCEL
  1736. ENDIF
  1737. *-- If adding a new record but nothing entered yet
  1738. IF thisform.IsNewAndEmpty()
  1739.   thisform.Restore()
  1740.   *-- If data changed and user cancels, return cancel code
  1741.   IF thisform.DataChanged() AND thisform.AskToSave() = IDCANCEL
  1742.     RETURN FILE_CANCEL
  1743.   ENDIF
  1744. ENDIF
  1745. lnRecNo = RECNO()
  1746. LOCATE
  1747. *-- If we're still on the same record,
  1748. *-- return cancel code
  1749. IF lnRecNo = RECNO()
  1750.   RETURN FILE_CANCEL
  1751. ENDIF
  1752. IF EOF()
  1753.   RETURN FILE_EOF
  1754. ENDIF
  1755. thisform.RefreshForm()
  1756. RETURN FILE_BOF
  1757. ENDPROC
  1758. PROCEDURE last
  1759. *-- Last
  1760. LOCAL lnRecNo, ;
  1761.       lnRetVal, ;
  1762.       llNewAndEmpty
  1763. *-- If the contents of the current control could not 
  1764. *-- be saved, return cancel code
  1765. IF !thisform.WriteBuffer()
  1766.   RETURN FILE_CANCEL
  1767. ENDIF
  1768. *-- If adding a new record but nothing entered yet
  1769. IF thisform.IsNewAndEmpty()
  1770.   thisform.Restore()
  1771.   llNewAndEmpty = .T.
  1772.   *-- If data changed and user cancels, return cancel code
  1773.   IF thisform.DataChanged() AND thisform.AskToSave() = IDCANCEL
  1774.     RETURN FILE_CANCEL
  1775.   ENDIF
  1776. ENDIF
  1777. lnRecNo = RECNO()
  1778. GO BOTTOM
  1779. *-- If we're still on the same record,
  1780. *-- return cancel code
  1781. IF !llNewAndEmpty AND lnRecNo = RECNO()
  1782.   RETURN FILE_CANCEL
  1783. ENDIF
  1784. IF !EOF()
  1785.   thisform.RefreshForm()
  1786. ENDIF
  1787. RETURN FILE_EOF
  1788. ENDPROC
  1789. PROCEDURE prior
  1790. *-- Prior
  1791. LOCAL lnRecNo, ;
  1792.       lnRetVal
  1793. IF !BOF()
  1794.   *-- If the contents of the current control could not 
  1795.   *-- be saved, return cancel code
  1796.   IF !thisform.WriteBuffer()
  1797.     RETURN FILE_CANCEL
  1798.   ENDIF
  1799.   *-- If adding a new record but nothing entered yet
  1800.   IF thisform.IsNewAndEmpty()
  1801.     thisform.Restore()
  1802.   ELSE
  1803.     *-- If data changed and user cancels, return cancel code
  1804.     IF thisform.DataChanged() AND thisform.AskToSave() = IDCANCEL
  1805.       RETURN FILE_CANCEL
  1806.     ENDIF
  1807.   ENDIF
  1808.   lnRecNo = RECNO()
  1809.   SKIP -1
  1810.   *-- If we're at BOF, return BOF code
  1811.   IF BOF()
  1812.     RETURN FILE_BOF
  1813.   ENDIF
  1814.   *-- If we're still on the same record,
  1815.   *-- return cancel code
  1816.   IF lnRecNo = RECNO()
  1817.     RETURN FILE_CANCEL
  1818.   ENDIF
  1819.   *-- If we get this far, all is well
  1820.   thisform.RefreshForm()
  1821.    RETURN FILE_OK
  1822.   RETURN FILE_BOF
  1823. ENDIF
  1824. ENDPROC
  1825. PROCEDURE save
  1826. LOCAL laError[AERRORARRAY], ;
  1827.       llError
  1828. llError = !thisform.WriteBuffer()
  1829. IF !llError AND !this.DataChanged()
  1830.   RETURN .T.
  1831. ENDIF
  1832. IF !llError
  1833.   llError = !TABLEUPDATE(.T.)
  1834.   IF llError
  1835.     IF AERROR(laError) > 0
  1836.       *-- Let the form's error handler handle the error
  1837.       thisform.Error(laError[1])
  1838.     ENDIF
  1839.   ELSE
  1840.     *-- Force any relations to be updated
  1841.     GO (RECNO())
  1842.     WAIT WINDOW NOWAIT INFSAVED_LOC
  1843.   ENDIF
  1844. ENDIF
  1845. *- enable new button
  1846. oApp.oToolBar.cmdNew.Enabled = .T.
  1847. ACTIVATE MENU _msysmenu NOWAIT
  1848. RETURN !llError
  1849. ENDPROC
  1850. PROCEDURE delete
  1851. LOCAL lnRecNo, ;
  1852.       llRetVal
  1853. llRetVal = .T.
  1854. IF MESSAGEBOX(DELETEREC_LOC, ;
  1855.               MB_ICONQUESTION + MB_YESNO, ;
  1856.               DELETEWARN_LOC) = IDNO
  1857.   RETURN .F.
  1858. ENDIF
  1859. *-- If adding a new record, just revert it
  1860. IF "3" $ GETFLDSTATE(-1) OR "4" $ GETFLDSTATE(-1)
  1861.   thisform.Restore()
  1862.   RETURN .T.
  1863. ENDIF
  1864. lnRecNo = RECNO()
  1865. DELETE
  1866. *-- When buffering is in use, you need to move off the record to
  1867. *-- actually delete it. This may not be successful if the 
  1868. *-- delete trigger fails. 
  1869. IF EOF()
  1870.   SKIP -1
  1871.   IF !BOF()
  1872.     thisform.RefreshForm()
  1873.   ELSE
  1874.     *-- Ask to add a new record if user just deleted last record
  1875.     *-- in file
  1876.     IF (MESSAGEBOX(ADDNEWREC_LOC, ;
  1877.                    MB_ICONQUESTION + MB_YESNO, ;
  1878.                    TASTRADE_LOC)) = IDYES
  1879.       thisform.AddNew()
  1880.     ELSE
  1881.       *-- If user does not wish to add a new record, no sense keeping
  1882.       *-- the form around.
  1883.       thisform.Release()
  1884.     ENDIF        
  1885.   ENDIF
  1886.   IF lnRecNo = RECNO()
  1887.     llRetVal = .F.
  1888.   ELSE
  1889.     thisform.RefreshForm()
  1890.   ENDIF
  1891. ENDIF
  1892. RETURN llRetVal
  1893. ENDPROC
  1894. PROCEDURE addnew
  1895. *-- Add a blank record to the end of the table
  1896. IF thisform.WriteBuffer()
  1897.   IF thisform.IsNewAndEmpty()
  1898.     thisform.Restore()
  1899.   ELSE
  1900.     IF thisform.DataChanged() AND thisform.AskToSave() = IDCANCEL
  1901.       RETURN .F.
  1902.     ENDIF
  1903.   ENDIF
  1904.   *- disable new button
  1905.   oApp.oToolBar.cmdNew.Enabled = .F.
  1906.   ACTIVATE MENU _msysmenu NOWAIT
  1907.   APPEND BLANK
  1908.   thisform.RefreshForm()
  1909. ENDIF
  1910. ENDPROC
  1911. PROCEDURE restore
  1912. *-- Cancel all user changes
  1913. =TABLEREVERT(.T.)
  1914. IF EOF()
  1915.   SKIP -1
  1916.   IF BOF()
  1917.     thisform.Release()
  1918.   ENDIF
  1919. ENDIF
  1920. *- enable new button
  1921. oApp.oToolBar.cmdNew.Enabled = .T.
  1922. ACTIVATE MENU _msysmenu NOWAIT
  1923. thisform.RefreshForm()
  1924. ENDPROC
  1925. PROCEDURE writebuffer
  1926. LOCAL llRetval
  1927. llRetVal = .T.
  1928. *-- Code to save field value to buffer when
  1929. *-- clicking on toolbar without leaving the field
  1930. *-- Don't do this for a grid since a grid may change
  1931. *-- work areas unexpectedly
  1932. IF TYPE("thisform.ActiveControl") == "O" AND ;
  1933.     UPPER(thisform.ActiveControl.BaseClass) <> "GRID"
  1934.   IF TYPE("thisform.ActiveControl.ControlSource") <> "U" AND ;
  1935.       !EMPTY(thisform.ActiveControl.ControlSource)
  1936.     IF EVAL(thisform.ActiveControl.ControlSource) <> thisform.ActiveControl.Value
  1937.       REPLACE (thisform.ActiveControl.ControlSource) WITH thisform.ActiveControl.Value
  1938.       *-- We rely on the fact that we revert the field's value
  1939.       *-- in the error event method for the form. 
  1940.       llRetVal = (EVAL(thisform.ActiveControl.ControlSource) = thisform.ActiveControl.Value)
  1941.     ENDIF
  1942.   ENDIF
  1943. ENDIF
  1944. RETURN llRetVal
  1945. ENDPROC
  1946. PROCEDURE refreshform
  1947. *-- By providing a custom form refresh method such as this, 
  1948. *-- we are now able to lock the screen each time we refresh, as
  1949. *-- well as override this method for custom refresh processing
  1950. *-- in a subclass. (See the order history class).
  1951. thisform.LockScreen = .T.
  1952. thisform.Refresh()
  1953. thisform.LockScreen = .F.
  1954. ENDPROC
  1955. PROCEDURE waitmode
  1956. *-- Changes the mouse cursor for the form and all it's children based
  1957. *-- on the value of the tlWaitMode parameter
  1958. LPARAMETERS tlWaitMode
  1959. lnMousePointer = IIF(tlWaitMode, MOUSE_HOURGLASS, MOUSE_DEFAULT)
  1960. thisform.MousePointer = lnMousePointer
  1961. thisform.SetAll('MousePointer', lnMousePointer)
  1962. ENDPROC
  1963. PROCEDURE restorewindowpos
  1964. LPARAMETERS tcEntry
  1965. LOCAL  lcBuffer, ;
  1966.       lcOldError, ;
  1967.       lnTop, ;
  1968.       lnLeft, ;
  1969.       llError, ;
  1970.       lnCommaPos, ;
  1971.       lcEntry
  1972. IF PCOUNT() = 0
  1973.   lcEntry = thisform.Caption
  1974.   lcEntry = tcEntry
  1975. ENDIF
  1976. lcBuffer = SPACE(10) + CHR(0)
  1977. lcOldError = ON('ERROR')
  1978. *-- Read the window position from the INI file
  1979. IF GetPrivStr("WindowPositions", lcEntry, "", ;
  1980.                @lcBuffer, LEN(lcBuffer), ;
  1981.                CURDIR() + INIFILE) > 0
  1982.   *-- If an error occurs while parsing the string, 
  1983.   *-- just ignore the string and use the form's 
  1984.   *-- defaults
  1985.   ON ERROR llError = .T.
  1986.   lnCommaPos = AT(",", lcBuffer)
  1987.   lnTop  = VAL(LEFT(lcBuffer, lnCommaPos - 1))
  1988.   lnLeft = VAL(SUBSTR(lcBuffer, lnCommaPos + 1))
  1989.   ON ERROR &lcOldError
  1990.   IF !llError
  1991.     thisform.Top = lnTop
  1992.     thisform.Left = lnLeft
  1993.   ENDIF
  1994. ENDIF
  1995. ENDPROC
  1996. PROCEDURE savewindowpos
  1997. LPARAMETERS tcEntry
  1998. LOCAL lcValue, ;
  1999.       lcEntry
  2000. IF PCOUNT() = 0
  2001.   lcEntry = thisform.Caption
  2002.   lcEntry = tcEntry
  2003. ENDIF
  2004. lcValue = ALLT(STR(MAX(thisform.Top, 0))) + ',' + ;
  2005.           ALLT(STR(MAX(thisform.Left, 0)))
  2006. *-- Write the entry to the INI file
  2007. =WritePrivStr("WindowPositions", lcEntry, ;
  2008.               lcValue, CURDIR() + INIFILE)
  2009. ENDPROC
  2010. PROCEDURE addtomenu
  2011. *-- Add the form's caption to the Window menu popup
  2012. LOCAL lnBar
  2013. IF TYPE("oApp") == "O"
  2014.     IF !POPUP("Window")
  2015.         *- need to define Windows menu
  2016.         DO menus\window.mpr
  2017.     ENDIF
  2018.     *-- Find the next available bar number
  2019.     IF CNTBAR("Window") = 0 OR ;
  2020.         GETBAR("Window", CNTBAR("Window")) < 0     && At a Fox system BAR
  2021.         lnBar = CNTBAR("Window") + 1
  2022.     ELSE
  2023.         lnBar = GETBAR("Window", CNTBAR("Window")) + 1
  2024.     ENDIF
  2025.     DEFINE BAR lnBar OF Window PROMPT thisform.caption && AFTER _MLAST
  2026.     lcFormName = thisform.Name
  2027.     ON SELECTION BAR lnBar OF Window ACTIVATE Window &lcFormName
  2028. ENDIF
  2029. ENDPROC
  2030. PROCEDURE removefrommenu
  2031. LPARAMETERS tcCaption
  2032. LOCAL lnBar, ;
  2033.       lcCaption
  2034. IF PCOUNT() = 0
  2035.   lcCaption = thisform.Caption
  2036.   lcCaption = tcCaption
  2037. ENDIF
  2038. *-- Remove the form's caption from the Window menu popup.
  2039. *-- We check to see if the application object
  2040. *-- exists to prevent error messages when running
  2041. *-- the form outside the project
  2042. IF TYPE('oApp') == "O"
  2043.   FOR lnBar = CNTBAR("Window") TO 1 STEP -1
  2044.     IF PRMBAR("Window", GETBAR("Window", lnBar)) = lcCaption
  2045.       RELEASE BAR GETBAR("Window", lnBar) OF Window
  2046.       EXIT
  2047.     ENDIF
  2048.   ENDFOR
  2049.   IF CNTBAR("Window") = 0
  2050.       *- now menu is empty so remove it
  2051.       RELEASE POPUP window EXTENDED
  2052.       RELEASE PAD window OF _MSYSMENU
  2053.   ENDIF
  2054. ENDIF
  2055. ENDPROC
  2056. PROCEDURE datachanged
  2057. *-- Assumes table or view for current work area
  2058. *-- Returns .T. if any data has changed
  2059. IF ISNULL(GETFLDSTATE(-1))
  2060.   RETURN .F.
  2061.   RETURN ("2" $ GETFLDSTATE(-1) OR ;
  2062.           "4" $ GETFLDSTATE(-1))
  2063. ENDIF
  2064. ENDPROC
  2065. PROCEDURE asktosave
  2066. LOCAL lnAnswer
  2067. *-- Prompt user to save changes, and save or restore
  2068. *-- based on answer
  2069. lnAnswer = MESSAGEBOX(SAVECHANGES_LOC, ;
  2070.                       MB_ICONQUESTION + MB_YESNOCANCEL, ;
  2071.                       TASTRADE_LOC)
  2072. DO CASE
  2073.   CASE lnAnswer = IDYES
  2074.     IF !thisform.Save()
  2075.       lnAnswer = IDCANCEL
  2076.     ENDIF
  2077.   CASE lnAnswer = IDNO
  2078.     thisform.Restore()
  2079. ENDCASE
  2080. RETURN lnAnswer
  2081. ENDPROC
  2082. PROCEDURE isnewandempty
  2083. *-- Return .T. if user has added a new record but has not yet 
  2084. *-- made any changes.
  2085. RETURN (VAL(GETFLDSTATE(-1)) % VAL(REPLICATE("3", LEN(GETFLDSTATE(-1))))) = 0
  2086. ENDPROC
  2087. PROCEDURE QueryUnload
  2088. *-- If we don't have a toolbar, the we'll assume we're not doing any
  2089. *-- editing, so just return .T.
  2090. IF EMPTY(thisform.cToolBar)
  2091.   RETURN .T.
  2092. ENDIF
  2093. *-- Write out the contents current control
  2094. IF !thisform.WriteBuffer()
  2095.   NODEFAULT
  2096.   RETURN .F.
  2097. ENDIF
  2098. *-- If adding a new record but nothing entered yet
  2099. IF EMPTY(ALIAS())
  2100.     *- just in case
  2101.     SET DATASESSION TO (THIS.DataSessionID)
  2102.     IF EMPTY(ALIAS()) AND !EMPTY(THIS.DataEnvironment.InitialSelectedAlias) AND USED(THIS.DataEnvironment.InitialSelectedAlias)
  2103.         SELECT (THIS.DataEnvironment.InitialSelectedAlias)
  2104.     ENDIF
  2105. ENDIF
  2106. IF !EMPTY(ALIAS())
  2107.     IF thisform.IsNewAndEmpty()
  2108.       thisform.Restore()
  2109.     ELSE
  2110.       IF thisform.DataChanged() AND thisform.AskToSave() = IDCANCEL
  2111.         NODEFAULT
  2112.         RETURN .F.
  2113.       ENDIF
  2114.     ENDIF
  2115. ENDIF
  2116. RETURN .T.
  2117. ENDPROC
  2118. PROCEDURE Unload
  2119. SET MESSAGE TO
  2120. ENDPROC
  2121. PROCEDURE Init
  2122. *-- (c) Microsoft Corporation 1995
  2123. LOCAL lnMenuNum, ;
  2124.       lcFormName
  2125. *- this class can't be used independent of the application
  2126. IF TYPE("m.gTTrade") # 'L' OR !m.gTTrade
  2127.     =MESSAGEBOX(CLASSBROWERR_LOC)
  2128.     RETURN .F.
  2129. ENDIF
  2130. *-- Restore window's position from INI file
  2131. thisform.RestoreWindowPos()
  2132. IF !EMPTY(thisform.cToolBar) AND ;
  2133.     TYPE("oApp") == "O"
  2134.   *-- Add form's caption to the menu
  2135.   thisform.AddToMenu()
  2136.   *-- Put up the navigation toolbar
  2137.   oApp.ShowNavToolBar(thisform.cToolBar)
  2138. ENDIF
  2139. *-- Initialize default error message array
  2140. thisform.aErrorMsg[INSERTTRIG] = INSERTTRIGFAIL_LOC
  2141. thisform.aErrorMsg[UPDATETRIG] = UPDATETRIGFAIL_LOC
  2142. thisform.aErrorMsg[DELETETRIG] = DELETETRIGFAIL_LOC
  2143. ENDPROC
  2144. PROCEDURE Activate
  2145. LOCAL lcAlias
  2146. *-- Ensure the proper alias is selected whenver this form is
  2147. *-- activated
  2148. lcAlias = thisform.DataEnvironment.InitialSelectedAlias
  2149. IF !EMPTY(lcAlias)
  2150.   SELECT (lcAlias)
  2151. ENDIF
  2152. *-- If this form is using a toolbar, refresh it
  2153. IF !EMPTY(thisform.cToolBar) AND ;
  2154.     TYPE("oApp.oToolbar") == "O"
  2155.   oApp.oToolbar.Refresh()
  2156. ENDIF
  2157. *-- Force the menu to refresh
  2158. ACTIVATE MENU _MSYSMENU NOWAIT
  2159. *-- Update the status bar message
  2160. SET MESSAGE TO thisform.Caption
  2161. *-- If there are no records in the file, inform user that we
  2162. *-- are switching into add mode.
  2163. IF EOF()
  2164.   SKIP -1
  2165.   IF BOF()
  2166.     =MESSAGEBOX(ENTERADDMODE_LOC, ;
  2167.                 MB_ICONINFORMATION, ;
  2168.                 TASTRADE_LOC)
  2169.     thisform.AddNew()
  2170.   ENDIF
  2171. ENDIF
  2172. ENDPROC
  2173. PROCEDURE Destroy
  2174. *-- Make form disapper before doing anything else
  2175. thisform.Visible = .F.
  2176. IF TYPE('oApp') == "O"
  2177.   IF TYPE("this.ctoolbar") <> "U" AND ;
  2178.       !EMPTY(this.ctoolbar)
  2179.     *-- Remove the form's caption from the menu
  2180.     this.RemoveFromMenu()
  2181.     *-- Release the navigation toolbar
  2182.     oApp.ReleaseNavToolBar()
  2183.   ENDIF
  2184. ENDIF
  2185. *-- Save window's position to the INI file
  2186. thisform.SaveWindowPos()
  2187. ENDPROC
  2188. PROCEDURE Error
  2189. LPARAMETERS nError, cMethod, nLine
  2190. LOCAL llHandledError, ;
  2191.       laError[AERRORARRAY], ;
  2192.       lcMessage, ;
  2193.       lnAnswer
  2194. IF THISFORM.lSetErrorOff
  2195.     THIS.lHadError = .T.
  2196.     RETURN
  2197. ENDIF
  2198. *-- Load the laError with error information
  2199. =AERROR(laError)
  2200. DO CASE
  2201.   CASE nError = 1539    && Trigger failed
  2202.     ?? CHR(7)
  2203.     *-- Use form property array to retrieve appropriate error message, 
  2204.     *-- which was initialized in the form's Init() event method.
  2205.     =MESSAGEBOX(thisform.aErrorMsg[laError[5]], ;
  2206.                 MB_ICONEXCLAMATION, ;
  2207.                 TASTRADE_LOC)
  2208.     *-- Restore the form if the Delete trigger failed
  2209.     IF laError[5] = DELETETRIG
  2210.       thisform.Restore()
  2211.     ENDIF
  2212.     llHandledError = .T.
  2213.   CASE nError = 1583    && Table rule failed
  2214.     *-- We assume that the appropriate error message was
  2215.     *-- displayed within the table rule. Therefore,
  2216.     *-- there is no need to handle the error here.
  2217.     IF DEBUGMODE
  2218.       *-- If we are in debug mode, put up a wait window to indicate
  2219.       *-- when table rule fails. 
  2220.       WAIT WINDOW NOWAIT TABLERULEFAIL_LOC
  2221.     ENDIF
  2222.     llHandledError = .T.
  2223.   CASE nError = 1582    && Field rule violated
  2224.     ?? CHR(7)
  2225.     lcMessage = DBGETPROP(ALIAS() + "." + laError[3], "Field", "RuleText")
  2226.     lcMessage = STRTRAN(lcMessage, '"', '')
  2227.     =MESSAGEBOX(lcMessage, ;
  2228.                 MB_ICONEXCLAMATION, ;
  2229.                 TASTRADE_LOC)
  2230.   OTHERWISE
  2231.     ?? CHR(7)
  2232.     lcMessage = MESSAGE() + CR + ;
  2233.             METHOD_LOC + cMethod + CR + ;
  2234.             LINENUM_LOC + ALLT(STR(nLine))
  2235.     lnAnswer = MESSAGEBOX(lcMessage, ;
  2236.                           MB_ICONSTOP + MB_ABORTRETRYIGNORE, ;
  2237.                           ERRORTITLE_LOC)
  2238.     DO CASE
  2239.       CASE lnAnswer = IDABORT
  2240.           IF DEBUGMODE
  2241.             SUSPEND
  2242.         ELSE
  2243.             oApp.Cleanup
  2244.             CANCEL
  2245.             RETURN
  2246.         ENDIF
  2247.       CASE lnAnswer = IDRETRY
  2248.         RETRY
  2249.       OTHERWISE
  2250.         RETURN
  2251.     ENDCASE
  2252. ENDCASE
  2253. RETURN llHandledError
  2254. ENDPROC
  2255. PLATFORM
  2256. UNIQUEID
  2257. TIMESTAMP
  2258. CLASS
  2259. CLASSLOC
  2260. BASECLASS
  2261. OBJNAME
  2262. PARENT
  2263. PROPERTIES
  2264. PROTECTED
  2265. METHODS
  2266. OBJCODE
  2267. RESERVED1
  2268. RESERVED2
  2269. RESERVED3
  2270. RESERVED4
  2271. RESERVED5
  2272. RESERVED6
  2273. RESERVED7
  2274. RESERVED8
  2275.  COMMENT Screen              
  2276.  WINDOWS _R030WZ44S 5523543825
  2277.  WINDOWS _R030WZ452 552354382
  2278.  WINDOWS _QUZ0QVRLG 552354382
  2279.  WINDOWS _QY51ED1A9 509759778_
  2280.  WINDOWS _QY30MHCQZ 552354229
  2281.  WINDOWS _QY30MHCR9 512468469/*
  2282.  WINDOWS _QY30MHCS3 552354229
  2283.  WINDOWS _QY30MHCSD 512468469
  2284.  WINDOWS _QY30MHCT7 552354229z,
  2285.  WINDOWS _QY30MHCTH 552354229/-
  2286.  WINDOWS _QY30MHCUB 552354229
  2287.  WINDOWS _QY30MHCUL 552354229
  2288.  WINDOWS _QZ40XZQEC 552354229
  2289.  WINDOWS _QZ40XZQEW 552354229I0
  2290.  WINDOWS _QZ40XZQII 552354229
  2291.  WINDOWS _QZ40XZQIS 512468469
  2292.  WINDOWS _QZ40XZQK6 552354229
  2293.  WINDOWS _QZ40XZQKQ 512468469N3
  2294.  WINDOWS _QZ40XZQME 552354229
  2295.  WINDOWS _QZ40XZQMO 512468469
  2296.  WINDOWS _QZ40XZQO2 552354229
  2297.  WINDOWS _QZ40XZQOM 512468469A6
  2298.  WINDOWS _QZ40XZQQB 552354229
  2299.  WINDOWS _QZ40XZQQL 512468469
  2300.  WINDOWS _QZ40XZQS9 552354229n8
  2301.  WINDOWS _QZ40XZQSJ 51246846959
  2302.  WINDOWS _QZ40XZQU7 552354229
  2303.  WINDOWS _QZ40XZQUH 512468470
  2304.  WINDOWS _QZ40XZQW5 5523542299
  2305.  WINDOWS _QZ40XZQWP 512468470F)
  2306.  WINDOWS _QZA18IPCU 552354229
  2307.  WINDOWS _QZA18IPDE 552354229
  2308.  COMMENT RESERVED            
  2309. VERSION =   3.00
  2310. ..\include\tastrade.h
  2311. dataenvironment
  2312. dataenvironment
  2313. Dataenvironment
  2314. Left = 110
  2315. Top = 473
  2316. Width = 346
  2317. Height = 251
  2318. AutoCloseTables = .F.
  2319. InitialSelectedAlias = "Customer"
  2320. Name = "Dataenvironment"
  2321. cursor
  2322. cursor
  2323. cursor1
  2324. Dataenvironment
  2325. Left = 20
  2326. Top = 10
  2327. Width = 138
  2328. Height = 178
  2329. Alias = "Customer"
  2330. Order = "customer_i"
  2331. Database = ..\data\tastrade.dbc
  2332. CursorSource = "Customer"
  2333. Name = "cursor1"
  2334. tsmaintform
  2335. ..\libs\tsbase.vcx
  2336. frmcustomers
  2337. |DataSession = 2
  2338. ScaleMode = 3
  2339. Top = 3
  2340. Left = 12
  2341. Height = 352
  2342. Width = 604
  2343. DoCreate = .T.
  2344. AutoCenter = .F.
  2345. Caption = "Customers"
  2346. Icon = ..\bitmaps\cust.ico
  2347. Name = "frmcustomers"
  2348. pageframe1.ErasePage = .T.
  2349. pageframe1.page1.Name = "page1"
  2350. pageframe1.page2.grdlist.ColumnCount = 14
  2351. pageframe1.page2.grdlist.Column1.FontBold = .F.
  2352. pageframe1.page2.grdlist.Column1.FontSize = 8
  2353. pageframe1.page2.grdlist.Column1.ControlSource = "Customer.customer_id"
  2354. pageframe1.page2.grdlist.Column1.Width = 73
  2355. pageframe1.page2.grdlist.Column1.Name = "grcID"
  2356. pageframe1.page2.grdlist.Column2.FontBold = .F.
  2357. pageframe1.page2.grdlist.Column2.FontSize = 8
  2358. pageframe1.page2.grdlist.Column2.ControlSource = "Customer.company_name"
  2359. pageframe1.page2.grdlist.Column2.Width = 165
  2360. pageframe1.page2.grdlist.Column2.Name = "grcName"
  2361. pageframe1.page2.grdlist.Column3.FontSize = 8
  2362. pageframe1.page2.grdlist.Column3.ColumnOrder = 5
  2363. pageframe1.page2.grdlist.Column3.ControlSource = "Customer.address"
  2364. pageframe1.page2.grdlist.Column3.Width = 184
  2365. pageframe1.page2.grdlist.Column3.Name = "grcAddress"
  2366. pageframe1.page2.grdlist.Column4.FontSize = 8
  2367. pageframe1.page2.grdlist.Column4.ColumnOrder = 6
  2368. pageframe1.page2.grdlist.Column4.ControlSource = "Customer.city"
  2369. pageframe1.page2.grdlist.Column4.Width = 172
  2370. pageframe1.page2.grdlist.Column4.Name = "grcCity"
  2371. pageframe1.page2.grdlist.Column5.FontSize = 8
  2372. pageframe1.page2.grdlist.Column5.ColumnOrder = 4
  2373. pageframe1.page2.grdlist.Column5.ControlSource = "Customer.contact_title"
  2374. pageframe1.page2.grdlist.Column5.Width = 164
  2375. pageframe1.page2.grdlist.Column5.Name = "grcContactTitle"
  2376. pageframe1.page2.grdlist.Column6.FontBold = .F.
  2377. pageframe1.page2.grdlist.Column6.FontSize = 8
  2378. pageframe1.page2.grdlist.Column6.ColumnOrder = 7
  2379. pageframe1.page2.grdlist.Column6.ControlSource = "Customer.region"
  2380. pageframe1.page2.grdlist.Column6.Name = "grcRegion"
  2381. pageframe1.page2.grdlist.Column7.FontBold = .F.
  2382. pageframe1.page2.grdlist.Column7.FontSize = 8
  2383. pageframe1.page2.grdlist.Column7.ColumnOrder = 8
  2384. pageframe1.page2.grdlist.Column7.ControlSource = "Customer.postal_code"
  2385. pageframe1.page2.grdlist.Column7.Name = "grcPostalCode"
  2386. pageframe1.page2.grdlist.Column8.FontBold = .F.
  2387. pageframe1.page2.grdlist.Column8.FontSize = 8
  2388. pageframe1.page2.grdlist.Column8.ColumnOrder = 9
  2389. pageframe1.page2.grdlist.Column8.ControlSource = "Customer.country"
  2390. pageframe1.page2.grdlist.Column8.Width = 89
  2391. pageframe1.page2.grdlist.Column8.Name = "grcCountry"
  2392. pageframe1.page2.grdlist.Column9.FontBold = .F.
  2393. pageframe1.page2.grdlist.Column9.FontSize = 8
  2394. pageframe1.page2.grdlist.Column9.ColumnOrder = 10
  2395. pageframe1.page2.grdlist.Column9.ControlSource = "Customer.phone"
  2396. pageframe1.page2.grdlist.Column9.Width = 96
  2397. pageframe1.page2.grdlist.Column9.Name = "grcPhone"
  2398. pageframe1.page2.grdlist.Column10.FontBold = .F.
  2399. pageframe1.page2.grdlist.Column10.FontSize = 8
  2400. pageframe1.page2.grdlist.Column10.ColumnOrder = 11
  2401. pageframe1.page2.grdlist.Column10.ControlSource = "Customer.fax"
  2402. pageframe1.page2.grdlist.Column10.Width = 101
  2403. pageframe1.page2.grdlist.Column10.Name = "grcFax"
  2404. pageframe1.page2.grdlist.Column11.FontBold = .F.
  2405. pageframe1.page2.grdlist.Column11.FontSize = 8
  2406. pageframe1.page2.grdlist.Column11.ColumnOrder = 12
  2407. pageframe1.page2.grdlist.Column11.ControlSource = "Customer.max_order_amt"
  2408. pageframe1.page2.grdlist.Column11.Width = 107
  2409. pageframe1.page2.grdlist.Column11.InputMask = "$$9,999,999,999.99"
  2410. pageframe1.page2.grdlist.Column11.Name = "grcMaxOrderAmt"
  2411. pageframe1.page2.grdlist.Column12.FontBold = .F.
  2412. pageframe1.page2.grdlist.Column12.FontSize = 8
  2413. pageframe1.page2.grdlist.Column12.ColumnOrder = 13
  2414. pageframe1.page2.grdlist.Column12.ControlSource = "Customer.min_order_amt"
  2415. pageframe1.page2.grdlist.Column12.Width = 103
  2416. pageframe1.page2.grdlist.Column12.InputMask = "$$9,999,999,999.99"
  2417. pageframe1.page2.grdlist.Column12.Name = "grcMinOrderAmt"
  2418. pageframe1.page2.grdlist.Column13.FontBold = .F.
  2419. pageframe1.page2.grdlist.Column13.FontSize = 8
  2420. pageframe1.page2.grdlist.Column13.ColumnOrder = 14
  2421. pageframe1.page2.grdlist.Column13.ControlSource = "Customer.discount"
  2422. pageframe1.page2.grdlist.Column13.InputMask = "99.99%"
  2423. pageframe1.page2.grdlist.Column13.Name = "grcDiscount"
  2424. pageframe1.page2.grdlist.Column14.FontBold = .F.
  2425. pageframe1.page2.grdlist.Column14.FontSize = 8
  2426. pageframe1.page2.grdlist.Column14.ColumnOrder = 3
  2427. pageframe1.page2.grdlist.Column14.ControlSource = "Customer.contact_name"
  2428. pageframe1.page2.grdlist.Column14.Width = 173
  2429. pageframe1.page2.grdlist.Column14.Name = "grcContactName"
  2430. pageframe1.page2.grdlist.Height = 322
  2431. pageframe1.page2.grdlist.Left = 0
  2432. pageframe1.page2.grdlist.Panel = 1
  2433. pageframe1.page2.grdlist.TabIndex = 1
  2434. pageframe1.page2.grdlist.Top = 0
  2435. pageframe1.page2.grdlist.Width = 598
  2436. pageframe1.page2.grdlist.Name = "grdlist"
  2437. pageframe1.page2.Name = "page2"
  2438. pageframe1.Top = 0
  2439. pageframe1.Left = 0
  2440. pageframe1.Width = 603
  2441. pageframe1.Height = 351
  2442. pageframe1.Name = "pageframe1"
  2443. PROCEDURE addnew
  2444. tsMaintForm::AddNew()
  2445. thisform.pageframe1.page1.cntCustomerInfo.txtCustomer_ID.SetFocus()
  2446. ENDPROC
  2447. PROCEDURE Init
  2448. *-- (c) Microsoft Corporation 1995
  2449. tsBaseForm::Init()
  2450. this.aErrorMsg[DELETETRIG] = DELCUSTOMER_LOC
  2451. ENDPROC
  2452. PROCEDURE Error
  2453. LPARAMETERS nError, cMethod, nLine
  2454. DO CASE
  2455.   CASE nError = 1884    && Primary key violated
  2456.     thisform.pageframe1.page1.cntCustomerInfo.Error(nError, cMethod, nLine)
  2457.   CASE nError = 1582    && Field rule violated
  2458.     thisform.pageframe1.page1.cntCustomerInfo.Error(nError, cMethod, nLine)
  2459.   OTHERWISE
  2460.     tsMaintForm::Error(nError, cMethod, nLine)
  2461. ENDCASE
  2462. ENDPROC
  2463. ..\include\tastrade.h
  2464. ..\..\..\dev\foxpro.h
  2465. ..\include\strings.h
  2466. IFontSize = 8
  2467. Alignment = 2
  2468. Caption = "Discount"
  2469. Name = "grhDiscount"
  2470. grhDiscount
  2471. header
  2472. header
  2473. \FontBold = .F.
  2474. FontSize = 8
  2475. BorderStyle = 0
  2476. Margin = 2
  2477. ColorSource = 0
  2478. Name = "Text1"
  2479. 4frmcustomers.pageframe1.page2.grdlist.grcMinOrderAmt
  2480. !Arial, 0, 8, 5, 14, 11, 20, 3, 0
  2481. LFontSize = 8
  2482. BorderStyle = 0
  2483. Margin = 2
  2484. ColorSource = 0
  2485. Name = "Text1"
  2486. 4frmcustomers.pageframe1.page2.grdlist.grcContactName
  2487. Text1
  2488. textbox
  2489. textbox
  2490. PFontSize = 8
  2491. Alignment = 2
  2492. Caption = "Contact Name"
  2493. Name = "grhContactName"
  2494. 4frmcustomers.pageframe1.page2.grdlist.grcContactName
  2495. customerinfo
  2496. ..\libs\tsgen.vcx
  2497.     container
  2498. cntCustomerInfo
  2499. frmcustomers.pageframe1.page1
  2500.     {Top = -1
  2501. Left = -3
  2502. Width = 616
  2503. Height = 327
  2504. Name = "cntCustomerInfo"
  2505. txtCompany_Name.TabIndex = 2
  2506. txtCompany_Name.Name = "txtCompany_Name"
  2507. txtContact_Name.TabIndex = 3
  2508. txtContact_Name.Name = "txtContact_Name"
  2509. txtContact_Title.TabIndex = 4
  2510. txtContact_Title.Name = "txtContact_Title"
  2511. txtAddress.TabIndex = 5
  2512. txtAddress.Name = "txtAddress"
  2513. txtCity.TabIndex = 6
  2514. txtCity.Name = "txtCity"
  2515. txtRegion.TabIndex = 7
  2516. txtRegion.Name = "txtRegion"
  2517. txtPostal_Code.TabIndex = 8
  2518. txtPostal_Code.Name = "txtPostal_Code"
  2519. txtCountry.TabIndex = 9
  2520. txtCountry.Name = "txtCountry"
  2521. txtPhone.TabIndex = 10
  2522. txtPhone.Name = "txtPhone"
  2523. Tslabel12.Height = 22
  2524. Tslabel12.Width = 121
  2525. Tslabel12.TabIndex = 15
  2526. Tslabel12.Name = "Tslabel12"
  2527. Tslabel13.Height = 17
  2528. Tslabel13.Width = 121
  2529. Tslabel13.TabIndex = 16
  2530. Tslabel13.Name = "Tslabel13"
  2531. Tslabel14.Height = 17
  2532. Tslabel14.Width = 121
  2533. Tslabel14.TabIndex = 17
  2534. Tslabel14.Name = "Tslabel14"
  2535. Tslabel15.Height = 17
  2536. Tslabel15.Width = 121
  2537. Tslabel15.TabIndex = 18
  2538. Tslabel15.Name = "Tslabel15"
  2539. Tslabel16.Height = 17
  2540. Tslabel16.Width = 121
  2541. Tslabel16.TabIndex = 21
  2542. Tslabel16.Name = "Tslabel16"
  2543. Tslabel17.Height = 17
  2544. Tslabel17.Width = 121
  2545. Tslabel17.TabIndex = 23
  2546. Tslabel17.Name = "Tslabel17"
  2547. Tslabel18.Height = 17
  2548. Tslabel18.Width = 121
  2549. Tslabel18.TabIndex = 24
  2550. Tslabel18.Name = "Tslabel18"
  2551. Tslabel19.Height = 17
  2552. Tslabel19.Width = 121
  2553. Tslabel19.TabIndex = 25
  2554. Tslabel19.Name = "Tslabel19"
  2555. Tslabel20.Height = 17
  2556. Tslabel20.Width = 121
  2557. Tslabel20.TabIndex = 26
  2558. Tslabel20.Name = "Tslabel20"
  2559. Tslabel21.Height = 17
  2560. Tslabel21.Width = 121
  2561. Tslabel21.TabIndex = 27
  2562. Tslabel21.Name = "Tslabel21"
  2563. Tslabel1.Height = 22
  2564. Tslabel1.Width = 121
  2565. Tslabel1.TabIndex = 28
  2566. Tslabel1.Name = "Tslabel1"
  2567. txtCustomer_ID.TabIndex = 1
  2568. txtCustomer_ID.Name = "txtCustomer_ID"
  2569. Ts3dshape1.Height = 95
  2570. Ts3dshape1.Width = 200
  2571. Ts3dshape1.Name = "Ts3dshape1"
  2572. txtMax_Ord_Amt.TabIndex = 12
  2573. txtMax_Ord_Amt.Name = "txtMax_Ord_Amt"
  2574. txtMin_Ord_Amt.TabIndex = 13
  2575. txtMin_Ord_Amt.Name = "txtMin_Ord_Amt"
  2576. txtDiscount.TabIndex = 14
  2577. txtDiscount.Name = "txtDiscount"
  2578. lblMaximum.Height = 22
  2579. lblMaximum.Width = 77
  2580. lblMaximum.TabIndex = 19
  2581. lblMaximum.Name = "lblMaximum"
  2582. Tslabel2.Height = 22
  2583. Tslabel2.Width = 77
  2584. Tslabel2.TabIndex = 20
  2585. Tslabel2.Name = "Tslabel2"
  2586. Tslabel3.Height = 22
  2587. Tslabel3.Width = 77
  2588. Tslabel3.TabIndex = 22
  2589. Tslabel3.Name = "Tslabel3"
  2590. txtFax.TabIndex = 11
  2591. txtFax.Name = "txtFax"
  2592. PROCEDURE txtCustomer_ID.Refresh
  2593. *-- Only allow change to customer ID if we're adding a new record.
  2594. this.Enabled = IIF(ISNULL(GETFLDSTATE(-1, "customer")),.F.,("3" $ GETFLDSTATE(-1, "customer") OR "4" $ GETFLDSTATE(-1, "customer")))
  2595. ENDPROC
  2596. grhContactName
  2597. header
  2598. header
  2599. \FontBold = .F.
  2600. FontSize = 8
  2601. BorderStyle = 0
  2602. Margin = 2
  2603. ColorSource = 0
  2604. Name = "Text1"
  2605. 1frmcustomers.pageframe1.page2.grdlist.grcDiscount
  2606. Text1
  2607. textbox
  2608. textbox
  2609. 1frmcustomers.pageframe1.page2.grdlist.grcDiscount
  2610. header
  2611. header
  2612. grhID
  2613. +frmcustomers.pageframe1.page2.grdlist.grcID
  2614. =FontSize = 8
  2615. Alignment = 2
  2616. Caption = "ID"
  2617. Name = "grhID"
  2618. textbox
  2619. textbox
  2620. Text1
  2621. +frmcustomers.pageframe1.page2.grdlist.grcID
  2622. jFontBold = .F.
  2623. FontSize = 8
  2624. BorderStyle = 0
  2625. Margin = 2
  2626. TabIndex = 1
  2627. ColorSource = 0
  2628. Name = "Text1"
  2629. header
  2630. header
  2631. grhName
  2632. -frmcustomers.pageframe1.page2.grdlist.grcName
  2633. AFontSize = 8
  2634. Alignment = 2
  2635. Caption = "Name"
  2636. Name = "grhName"
  2637. textbox
  2638. textbox
  2639. Text1
  2640. -frmcustomers.pageframe1.page2.grdlist.grcName
  2641. jFontBold = .F.
  2642. FontSize = 8
  2643. BorderStyle = 0
  2644. Margin = 2
  2645. TabIndex = 1
  2646. ColorSource = 0
  2647. Name = "Text1"
  2648. header
  2649. header
  2650. grhAddress
  2651. 0frmcustomers.pageframe1.page2.grdlist.grcAddress
  2652. GFontSize = 8
  2653. Alignment = 2
  2654. Caption = "Address"
  2655. Name = "grhAddress"
  2656. textbox
  2657. textbox
  2658. Text1
  2659. 0frmcustomers.pageframe1.page2.grdlist.grcAddress
  2660. jFontBold = .F.
  2661. FontSize = 8
  2662. BorderStyle = 0
  2663. Margin = 2
  2664. TabIndex = 1
  2665. ColorSource = 0
  2666. Name = "Text1"
  2667. header
  2668. header
  2669. grhCity
  2670. -frmcustomers.pageframe1.page2.grdlist.grcCity
  2671. AFontSize = 8
  2672. Alignment = 2
  2673. Caption = "City"
  2674. Name = "grhCity"
  2675. textbox
  2676. textbox
  2677. Text1
  2678. -frmcustomers.pageframe1.page2.grdlist.grcCity
  2679. jFontBold = .F.
  2680. FontSize = 8
  2681. BorderStyle = 0
  2682. Margin = 2
  2683. TabIndex = 1
  2684. ColorSource = 0
  2685. Name = "Text1"
  2686. header
  2687. header
  2688. grhContactTitle
  2689. 5frmcustomers.pageframe1.page2.grdlist.grcContactTitle
  2690. RFontSize = 8
  2691. Alignment = 2
  2692. Caption = "Contact Title"
  2693. Name = "grhContactTitle"
  2694. textbox
  2695. textbox
  2696. Text1
  2697. 5frmcustomers.pageframe1.page2.grdlist.grcContactTitle
  2698. \FontBold = .F.
  2699. FontSize = 8
  2700. BorderStyle = 0
  2701. Margin = 2
  2702. ColorSource = 0
  2703. Name = "Text1"
  2704. header
  2705. header
  2706.     grhRegion
  2707. /frmcustomers.pageframe1.page2.grdlist.grcRegion
  2708. EFontSize = 8
  2709. Alignment = 2
  2710. Caption = "Region"
  2711. Name = "grhRegion"
  2712. textbox
  2713. textbox
  2714. Text1
  2715. /frmcustomers.pageframe1.page2.grdlist.grcRegion
  2716. \FontBold = .F.
  2717. FontSize = 8
  2718. BorderStyle = 0
  2719. Margin = 2
  2720. ColorSource = 0
  2721. Name = "Text1"
  2722. header
  2723. header
  2724. grhPostalCode
  2725. 3frmcustomers.pageframe1.page2.grdlist.grcPostalCode
  2726. NFontSize = 8
  2727. Alignment = 2
  2728. Caption = "Postal Code"
  2729. Name = "grhPostalCode"
  2730. textbox
  2731. textbox
  2732. Text1
  2733. 3frmcustomers.pageframe1.page2.grdlist.grcPostalCode
  2734. \FontBold = .F.
  2735. FontSize = 8
  2736. BorderStyle = 0
  2737. Margin = 2
  2738. ColorSource = 0
  2739. Name = "Text1"
  2740. header
  2741. header
  2742. grhCountry
  2743. 0frmcustomers.pageframe1.page2.grdlist.grcCountry
  2744. GFontSize = 8
  2745. Alignment = 2
  2746. Caption = "Country"
  2747. Name = "grhCountry"
  2748. textbox
  2749. textbox
  2750. Text1
  2751. 0frmcustomers.pageframe1.page2.grdlist.grcCountry
  2752. \FontBold = .F.
  2753. FontSize = 8
  2754. BorderStyle = 0
  2755. Margin = 2
  2756. ColorSource = 0
  2757. Name = "Text1"
  2758. header
  2759. header
  2760. grhPhone
  2761. .frmcustomers.pageframe1.page2.grdlist.grcPhone
  2762. CFontSize = 8
  2763. Alignment = 2
  2764. Caption = "Phone"
  2765. Name = "grhPhone"
  2766. textbox
  2767. textbox
  2768. Text1
  2769. .frmcustomers.pageframe1.page2.grdlist.grcPhone
  2770. \FontBold = .F.
  2771. FontSize = 8
  2772. BorderStyle = 0
  2773. Margin = 2
  2774. ColorSource = 0
  2775. Name = "Text1"
  2776. header
  2777. header
  2778. grhFax
  2779. ,frmcustomers.pageframe1.page2.grdlist.grcFax
  2780. ?FontSize = 8
  2781. Alignment = 2
  2782. Caption = "Fax"
  2783. Name = "grhFax"
  2784. textbox
  2785. textbox
  2786. Text1
  2787. ,frmcustomers.pageframe1.page2.grdlist.grcFax
  2788. \FontBold = .F.
  2789. FontSize = 8
  2790. BorderStyle = 0
  2791. Margin = 2
  2792. ColorSource = 0
  2793. Name = "Text1"
  2794. header
  2795. header
  2796. grhMaxOrderAmt
  2797. 4frmcustomers.pageframe1.page2.grdlist.grcMaxOrderAmt
  2798. QFontSize = 8
  2799. Alignment = 2
  2800. Caption = "Max Order Amt"
  2801. Name = "grhMaxOrderAmt"
  2802. textbox
  2803. textbox
  2804. Text1
  2805. 4frmcustomers.pageframe1.page2.grdlist.grcMaxOrderAmt
  2806. \FontBold = .F.
  2807. FontSize = 8
  2808. BorderStyle = 0
  2809. Margin = 2
  2810. ColorSource = 0
  2811. Name = "Text1"
  2812. header
  2813. header
  2814. grhMinOrderAmt
  2815. 4frmcustomers.pageframe1.page2.grdlist.grcMinOrderAmt
  2816. QFontSize = 8
  2817. Alignment = 2
  2818. Caption = "Min Order Amt"
  2819. Name = "grhMinOrderAmt"
  2820. textbox
  2821. textbox
  2822. Text1
  2823. customer
  2824. customer
  2825. customer
  2826. ENABLED
  2827. txtCustomer_ID.Refresh,
  2828. TSMAINTFORM
  2829. ADDNEW
  2830. THISFORM
  2831. PAGEFRAME1
  2832. PAGE1
  2833. CNTCUSTOMERINFO
  2834. TXTCUSTOMER_ID
  2835. SETFOCUSJ
  2836. Customer has orders. Cannot delete!
  2837. TSBASEFORM
  2838. THIS    
  2839. AERRORMSG
  2840. NERROR
  2841. CMETHOD
  2842. NLINE
  2843. THISFORM
  2844. PAGEFRAME1
  2845. PAGE1
  2846. CNTCUSTOMERINFO
  2847. ERROR
  2848. TSMAINTFORM
  2849. addnew,
  2850. Error(
  2851. PLATFORM
  2852. UNIQUEID
  2853. TIMESTAMP
  2854. CLASS
  2855. CLASSLOC
  2856. BASECLASS
  2857. OBJNAME
  2858. PARENT
  2859. PROPERTIES
  2860. PROTECTED
  2861. METHODS
  2862. OBJCODE
  2863. RESERVED1
  2864. RESERVED2
  2865. RESERVED3
  2866. RESERVED4
  2867. RESERVED5
  2868. RESERVED6
  2869. RESERVED7
  2870. RESERVED8
  2871.  COMMENT Screen              
  2872.  WINDOWS _R0O0TN7NO 5158620745
  2873.  WINDOWS _R0O0TN7NP 552753658
  2874.  WINDOWS _QUZ0RTZUG 552753658
  2875.  WINDOWS _QYP1AHJ4C 511028523
  2876.  WINDOWS _QYP1AHJ5Q 511028523~
  2877.  WINDOWS _QYP1AHJ6A 511028523f
  2878.  WINDOWS _QYP1AHJ7E 511028523e
  2879.  WINDOWS _QYP1AHJ88 511028523M
  2880.  WINDOWS _QYP1AHJ9C 511028523O
  2881.  WINDOWS _QYP1AHJ9W 5110285235
  2882.  WINDOWS _QYP1AHJB0 511028523%
  2883.  WINDOWS _QYP1AHJBV 511028523
  2884.  WINDOWS _QYP1AHJCZ 511028523
  2885.  WINDOWS _QYP1AHJDT 511028523
  2886.  WINDOWS _QYP1AHJEN 511028523
  2887.  WINDOWS _QYP1AHJFH 511028523
  2888.  WINDOWS _QYP1AHJGL 511028523
  2889.  WINDOWS _QYP1AHJHF 511028523
  2890.  WINDOWS _QYP1AHJIJ 511028523
  2891.  WINDOWS _QYP1AHJJ3 511028523u&
  2892.  WINDOWS _QYP1AHJK7 511028523`'
  2893.  WINDOWS _QYP1AHJL1 511028523G(
  2894.  WINDOWS _QYP1AHJM5 511028523-)
  2895.  WINDOWS _QY31CJ4F1 512120996
  2896.  WINDOWS _QY31CJ4FB 512120996
  2897.  WINDOWS _QY31CJ4G5 512120996
  2898.  WINDOWS _QY31CJ4GF 512120996d,
  2899.  WINDOWS _QY31CJ4GZ 5121209969-
  2900.  WINDOWS _QY31CJ4H9 512120996
  2901.  WINDOWS _QY31CJ4I3 512120996
  2902.  WINDOWS _QY31CJ4ID 512120996
  2903.  WINDOWS _QZ413X3BY 512120996Y0
  2904.  WINDOWS _QZ413X3C8 512120996/1
  2905.  WINDOWS _QZ413X3DM 512120996
  2906.  WINDOWS _QZ413X3DW 512120996
  2907.  WINDOWS _QZ413X3FA 512120996
  2908.  WINDOWS _QZ413X3FU 512120996r4
  2909.  WINDOWS _QZ413X3GY 512120996<5
  2910.  WINDOWS _QZ413X3HI 512120996
  2911.  WINDOWS _QZ413X3IW 512120996
  2912.  WINDOWS _QZ413X3J7 512120996
  2913.  WINDOWS _QZ413X3KL 512120996
  2914.  WINDOWS _QZ413X3KV 512120996e
  2915.  COMMENT RESERVED            
  2916. VERSION =   3.00
  2917. ..\include\tastrade.h
  2918. dataenvironment
  2919. dataenvironment
  2920. Dataenvironment
  2921. Left = 128
  2922. Top = 231
  2923. Width = 219
  2924. Height = 191
  2925. AutoCloseTables = .F.
  2926. InitialSelectedAlias = "Supplier"
  2927. Name = "Dataenvironment"
  2928. cursor
  2929. cursor
  2930. cursor1
  2931. Dataenvironment
  2932. Left = 20
  2933. Top = 10
  2934. Width = 110
  2935. Height = 130
  2936. Alias = "Supplier"
  2937. Order = "company_na"
  2938. Database = ..\data\tastrade.dbc
  2939. CursorSource = "Supplier"
  2940. Name = "cursor1"
  2941. tsmaintform
  2942. ..\libs\tsbase.vcx
  2943. frmsuppliers
  2944. DataSession = 2
  2945. ScaleMode = 3
  2946. Top = 17
  2947. Left = 21
  2948. Height = 326
  2949. Width = 529
  2950. DoCreate = .T.
  2951. AutoCenter = .F.
  2952. BorderStyle = 2
  2953. Caption = "Suppliers"
  2954. Icon = ..\bitmaps\spplrs.ico
  2955. Name = "frmsuppliers"
  2956. pageframe1.ErasePage = .T.
  2957. pageframe1.page1.Name = "page1"
  2958. pageframe1.page2.grdlist.ColumnCount = 10
  2959. pageframe1.page2.grdlist.Column1.FontBold = .F.
  2960. pageframe1.page2.grdlist.Column1.FontSize = 8
  2961. pageframe1.page2.grdlist.Column1.ControlSource = "Supplier.company_name"
  2962. pageframe1.page2.grdlist.Column1.Width = 160
  2963. pageframe1.page2.grdlist.Column1.Name = "grcName"
  2964. pageframe1.page2.grdlist.Column2.FontBold = .F.
  2965. pageframe1.page2.grdlist.Column2.FontSize = 8
  2966. pageframe1.page2.grdlist.Column2.ControlSource = "Supplier.address"
  2967. pageframe1.page2.grdlist.Column2.Width = 143
  2968. pageframe1.page2.grdlist.Column2.Name = "grcAddress"
  2969. pageframe1.page2.grdlist.Column3.FontBold = .F.
  2970. pageframe1.page2.grdlist.Column3.FontSize = 8
  2971. pageframe1.page2.grdlist.Column3.ControlSource = "Supplier.city"
  2972. pageframe1.page2.grdlist.Column3.Width = 110
  2973. pageframe1.page2.grdlist.Column3.Name = "grcCity"
  2974. pageframe1.page2.grdlist.Column4.FontBold = .F.
  2975. pageframe1.page2.grdlist.Column4.FontSize = 8
  2976. pageframe1.page2.grdlist.Column4.ControlSource = "Supplier.region"
  2977. pageframe1.page2.grdlist.Column4.Width = 87
  2978. pageframe1.page2.grdlist.Column4.Name = "grcRegion"
  2979. pageframe1.page2.grdlist.Column5.FontBold = .F.
  2980. pageframe1.page2.grdlist.Column5.FontSize = 8
  2981. pageframe1.page2.grdlist.Column5.ControlSource = "Supplier.contact_name"
  2982. pageframe1.page2.grdlist.Column5.Width = 145
  2983. pageframe1.page2.grdlist.Column5.Name = "grcContactName"
  2984. pageframe1.page2.grdlist.Column6.FontBold = .F.
  2985. pageframe1.page2.grdlist.Column6.FontSize = 8
  2986. pageframe1.page2.grdlist.Column6.ControlSource = "Supplier.contact_title"
  2987. pageframe1.page2.grdlist.Column6.Width = 144
  2988. pageframe1.page2.grdlist.Column6.Name = "grcContactTitle"
  2989. pageframe1.page2.grdlist.Column7.FontBold = .F.
  2990. pageframe1.page2.grdlist.Column7.FontSize = 8
  2991. pageframe1.page2.grdlist.Column7.ControlSource = "Supplier.postal_code"
  2992. pageframe1.page2.grdlist.Column7.Name = "grcPostalCode"
  2993. pageframe1.page2.grdlist.Column8.FontBold = .F.
  2994. pageframe1.page2.grdlist.Column8.FontSize = 8
  2995. pageframe1.page2.grdlist.Column8.ControlSource = "Supplier.country"
  2996. pageframe1.page2.grdlist.Column8.Width = 87
  2997. pageframe1.page2.grdlist.Column8.Name = "grcCountry"
  2998. pageframe1.page2.grdlist.Column9.FontBold = .F.
  2999. pageframe1.page2.grdlist.Column9.FontSize = 8
  3000. pageframe1.page2.grdlist.Column9.ControlSource = "Supplier.phone"
  3001. pageframe1.page2.grdlist.Column9.Width = 93
  3002. pageframe1.page2.grdlist.Column9.Name = "grcPhone"
  3003. pageframe1.page2.grdlist.Column10.FontBold = .F.
  3004. pageframe1.page2.grdlist.Column10.FontSize = 8
  3005. pageframe1.page2.grdlist.Column10.ControlSource = "Supplier.fax"
  3006. pageframe1.page2.grdlist.Column10.Width = 91
  3007. pageframe1.page2.grdlist.Column10.Name = "grcFax"
  3008. pageframe1.page2.grdlist.Height = 296
  3009. pageframe1.page2.grdlist.Left = 0
  3010. pageframe1.page2.grdlist.Panel = 1
  3011. pageframe1.page2.grdlist.TabIndex = 1
  3012. pageframe1.page2.grdlist.Top = 0
  3013. pageframe1.page2.grdlist.Width = 523
  3014. pageframe1.page2.grdlist.Name = "grdlist"
  3015. pageframe1.page2.Name = "page2"
  3016. pageframe1.Top = 0
  3017. pageframe1.Left = 0
  3018. pageframe1.Width = 528
  3019. pageframe1.Height = 325
  3020. pageframe1.Name = "pageframe1"
  3021. PROCEDURE Error
  3022. LPARAMETERS nError, cMethod, nLine
  3023. LOCAL laError[AERRORARRAY], ;
  3024.       lcMessage
  3025. =AERROR(laError)
  3026. DO CASE
  3027.   CASE nError = 1582        && Field rule violated
  3028.     tsMaintForm::Error(nError, cMethod, nLine)
  3029.     DO CASE
  3030.       CASE UPPER(laError[3]) = "COMPANY_NAME"
  3031.         this.Pageframe1.Page1.txtCompany_Name.SetFocus()
  3032.     ENDCASE
  3033.   OTHERWISE
  3034.     tsMaintForm::Error(nError, cMethod, nLine)
  3035. ENDCASE
  3036. ENDPROC
  3037. PROCEDURE Init
  3038. *-- (c) Microsoft Corporation 1995
  3039. tsBaseForm::Init()
  3040. this.aErrorMsg[DELETETRIG] = DELSUPPLIER_LOC
  3041. ENDPROC
  3042. PROCEDURE addnew
  3043. tsMaintForm::AddNew()
  3044. thisform.pageframe1.page1.txtCompany_Name.SetFocus()
  3045. ENDPROC
  3046. ..\include\tastrade.h
  3047. ..\..\..\dev\foxpro.h
  3048. ..\include\strings.h"
  3049. !Arial, 0, 8, 5, 14, 11, 20, 3, 0
  3050. \FontBold = .F.
  3051. FontSize = 8
  3052. BorderStyle = 0
  3053. Margin = 2
  3054. ColorSource = 0
  3055. Name = "Text1"
  3056. ,frmsuppliers.pageframe1.page2.grdlist.grcFax
  3057. Text1
  3058. textbox
  3059. textbox
  3060. OFontBold = .F.
  3061. FontSize = 8
  3062. Alignment = 2
  3063. Caption = "Fax"
  3064. Name = "grhFax"
  3065. ,frmsuppliers.pageframe1.page2.grdlist.grcFax
  3066. grhFax
  3067. header
  3068. header
  3069. \FontBold = .F.
  3070. FontSize = 8
  3071. BorderStyle = 0
  3072. Margin = 2
  3073. ColorSource = 0
  3074. Name = "Text1"
  3075. .frmsuppliers.pageframe1.page2.grdlist.grcPhone
  3076. Text1
  3077. textbox
  3078. textbox
  3079. SFontBold = .F.
  3080. FontSize = 8
  3081. Alignment = 2
  3082. Caption = "Phone"
  3083. Name = "grhPhone"
  3084. .frmsuppliers.pageframe1.page2.grdlist.grcPhone
  3085.     tstextbox
  3086. ..\libs\tsbase.vcx
  3087. textbox
  3088. txtCompany_Name
  3089. frmsuppliers.pageframe1.page1
  3090. ControlSource = "supplier.company_name"
  3091. Height = 24
  3092. Left = 142
  3093. TabIndex = 1
  3094. Top = 10
  3095. Width = 296
  3096. Name = "txtCompany_Name"
  3097. tslabel
  3098. ..\libs\tsbase.vcx
  3099. label
  3100. Tslabel1
  3101. frmsuppliers.pageframe1.page1
  3102. uAlignment = 1
  3103. Caption = "Company"
  3104. Height = 17
  3105. Left = 10
  3106. Top = 10
  3107. Width = 121
  3108. TabIndex = 11
  3109. Name = "Tslabel1"
  3110.     tstextbox
  3111. ..\libs\tsbase.vcx
  3112. textbox
  3113. txtContact_Name
  3114. frmsuppliers.pageframe1.page1
  3115. ControlSource = "supplier.contact_name"
  3116. Height = 24
  3117. Left = 142
  3118. TabIndex = 2
  3119. Top = 38
  3120. Width = 251
  3121. Name = "txtContact_Name"
  3122. tslabel
  3123. ..\libs\tsbase.vcx
  3124. label
  3125. Tslabel2
  3126. frmsuppliers.pageframe1.page1
  3127. uAlignment = 1
  3128. Caption = "Contact"
  3129. Height = 17
  3130. Left = 10
  3131. Top = 38
  3132. Width = 121
  3133. TabIndex = 12
  3134. Name = "Tslabel2"
  3135.     tstextbox
  3136. ..\libs\tsbase.vcx
  3137. textbox
  3138. txtContact_Title
  3139. frmsuppliers.pageframe1.page1
  3140. ControlSource = "supplier.contact_title"
  3141. Height = 24
  3142. Left = 142
  3143. TabIndex = 3
  3144. Top = 66
  3145. Width = 251
  3146. Name = "txtContact_Title"
  3147. tslabel
  3148. ..\libs\tsbase.vcx
  3149. label
  3150. Tslabel3
  3151. frmsuppliers.pageframe1.page1
  3152. sAlignment = 1
  3153. Caption = "Title"
  3154. Height = 17
  3155. Left = 10
  3156. Top = 66
  3157. Width = 121
  3158. TabIndex = 13
  3159. Name = "Tslabel3"
  3160.     tstextbox
  3161. ..\libs\tsbase.vcx
  3162. textbox
  3163. txtAddress
  3164. frmsuppliers.pageframe1.page1
  3165. wControlSource = "supplier.address"
  3166. Height = 24
  3167. Left = 142
  3168. TabIndex = 4
  3169. Top = 94
  3170. Width = 361
  3171. Name = "txtAddress"
  3172. tslabel
  3173. ..\libs\tsbase.vcx
  3174. label
  3175. Tslabel4
  3176. frmsuppliers.pageframe1.page1
  3177. uAlignment = 1
  3178. Caption = "Address"
  3179. Height = 17
  3180. Left = 10
  3181. Top = 94
  3182. Width = 121
  3183. TabIndex = 14
  3184. Name = "Tslabel4"
  3185.     tstextbox
  3186. ..\libs\tsbase.vcx
  3187. textbox
  3188. txtCity
  3189. frmsuppliers.pageframe1.page1
  3190. rControlSource = "supplier.city"
  3191. Height = 24
  3192. Left = 142
  3193. TabIndex = 5
  3194. Top = 122
  3195. Width = 171
  3196. Name = "txtCity"
  3197. tslabel
  3198. ..\libs\tsbase.vcx
  3199. label
  3200. Tslabel5
  3201. frmsuppliers.pageframe1.page1
  3202. sAlignment = 1
  3203. Caption = "City"
  3204. Height = 17
  3205. Left = 10
  3206. Top = 122
  3207. Width = 121
  3208. TabIndex = 15
  3209. Name = "Tslabel5"
  3210.     tstextbox
  3211. ..\libs\tsbase.vcx
  3212. textbox
  3213.     txtRegion
  3214. frmsuppliers.pageframe1.page1
  3215. vControlSource = "supplier.region"
  3216. Height = 24
  3217. Left = 142
  3218. TabIndex = 6
  3219. Top = 150
  3220. Width = 104
  3221. Name = "txtRegion"
  3222. tslabel
  3223. ..\libs\tsbase.vcx
  3224. label
  3225. Tslabel6
  3226. frmsuppliers.pageframe1.page1
  3227. uAlignment = 1
  3228. Caption = "Region"
  3229. Height = 17
  3230. Left = 10
  3231. Top = 150
  3232. Width = 121
  3233. TabIndex = 16
  3234. Name = "Tslabel6"
  3235.     tstextbox
  3236. ..\libs\tsbase.vcx
  3237. textbox
  3238. txtPostal_Code
  3239. frmsuppliers.pageframe1.page1
  3240. ControlSource = "supplier.postal_code"
  3241. Height = 24
  3242. Left = 142
  3243. TabIndex = 7
  3244. Top = 178
  3245. Width = 104
  3246. Name = "txtPostal_Code"
  3247. tslabel
  3248. ..\libs\tsbase.vcx
  3249. label
  3250. Tslabel7
  3251. frmsuppliers.pageframe1.page1
  3252. zAlignment = 1
  3253. Caption = "Postal Code"
  3254. Height = 17
  3255. Left = 10
  3256. Top = 178
  3257. Width = 121
  3258. TabIndex = 17
  3259. Name = "Tslabel7"
  3260.     tstextbox
  3261. ..\libs\tsbase.vcx
  3262. textbox
  3263. txtCountry
  3264. frmsuppliers.pageframe1.page1
  3265. xControlSource = "supplier.country"
  3266. Height = 24
  3267. Left = 142
  3268. TabIndex = 8
  3269. Top = 206
  3270. Width = 146
  3271. Name = "txtCountry"
  3272. tslabel
  3273. ..\libs\tsbase.vcx
  3274. label
  3275. Tslabel8
  3276. frmsuppliers.pageframe1.page1
  3277. vAlignment = 1
  3278. Caption = "Country"
  3279. Height = 17
  3280. Left = 10
  3281. Top = 206
  3282. Width = 121
  3283. TabIndex = 18
  3284. Name = "Tslabel8"
  3285.     tstextbox
  3286. ..\libs\tsbase.vcx
  3287. textbox
  3288. txtPhone
  3289. frmsuppliers.pageframe1.page1
  3290. tControlSource = "supplier.phone"
  3291. Height = 24
  3292. Left = 141
  3293. TabIndex = 9
  3294. Top = 234
  3295. Width = 122
  3296. Name = "txtPhone"
  3297. tslabel
  3298. ..\libs\tsbase.vcx
  3299. label
  3300. Tslabel9
  3301. frmsuppliers.pageframe1.page1
  3302. tAlignment = 1
  3303. Caption = "Phone"
  3304. Height = 17
  3305. Left = 10
  3306. Top = 234
  3307. Width = 121
  3308. TabIndex = 19
  3309. Name = "Tslabel9"
  3310.     tstextbox
  3311. ..\libs\tsbase.vcx
  3312. textbox
  3313. txtFax
  3314. frmsuppliers.pageframe1.page1
  3315. qControlSource = "supplier.fax"
  3316. Height = 24
  3317. Left = 141
  3318. TabIndex = 10
  3319. Top = 262
  3320. Width = 122
  3321. Name = "txtFax"
  3322. tslabel
  3323. ..\libs\tsbase.vcx
  3324. label
  3325.     Tslabel10
  3326. frmsuppliers.pageframe1.page1
  3327. sAlignment = 1
  3328. Caption = "Fax"
  3329. Height = 17
  3330. Left = 10
  3331. Top = 262
  3332. Width = 121
  3333. TabIndex = 20
  3334. Name = "Tslabel10"
  3335. header
  3336. header
  3337. grhName
  3338. -frmsuppliers.pageframe1.page2.grdlist.grcName
  3339. QFontBold = .F.
  3340. FontSize = 8
  3341. Alignment = 2
  3342. Caption = "Name"
  3343. Name = "grhName"
  3344. textbox
  3345. textbox
  3346. Text1
  3347. -frmsuppliers.pageframe1.page2.grdlist.grcName
  3348. jFontBold = .F.
  3349. FontSize = 8
  3350. BorderStyle = 0
  3351. Margin = 2
  3352. TabIndex = 1
  3353. ColorSource = 0
  3354. Name = "Text1"
  3355. header
  3356. header
  3357. grhAddress
  3358. 0frmsuppliers.pageframe1.page2.grdlist.grcAddress
  3359. WFontBold = .F.
  3360. FontSize = 8
  3361. Alignment = 2
  3362. Caption = "Address"
  3363. Name = "grhAddress"
  3364. textbox
  3365. textbox
  3366. Text1
  3367. 0frmsuppliers.pageframe1.page2.grdlist.grcAddress
  3368. jFontBold = .F.
  3369. FontSize = 8
  3370. BorderStyle = 0
  3371. Margin = 2
  3372. TabIndex = 1
  3373. ColorSource = 0
  3374. Name = "Text1"
  3375. header
  3376. header
  3377. grhCity
  3378. -frmsuppliers.pageframe1.page2.grdlist.grcCity
  3379. QFontBold = .F.
  3380. FontSize = 8
  3381. Alignment = 2
  3382. Caption = "City"
  3383. Name = "grhCity"
  3384. textbox
  3385. textbox
  3386. Text1
  3387. -frmsuppliers.pageframe1.page2.grdlist.grcCity
  3388. jFontBold = .F.
  3389. FontSize = 8
  3390. BorderStyle = 0
  3391. Margin = 2
  3392. TabIndex = 1
  3393. ColorSource = 0
  3394. Name = "Text1"
  3395. header
  3396. header
  3397.     grhRegion
  3398. /frmsuppliers.pageframe1.page2.grdlist.grcRegion
  3399. UFontBold = .F.
  3400. FontSize = 8
  3401. Alignment = 2
  3402. Caption = "Region"
  3403. Name = "grhRegion"
  3404. textbox
  3405. textbox
  3406. Text1
  3407. /frmsuppliers.pageframe1.page2.grdlist.grcRegion
  3408. jFontBold = .F.
  3409. FontSize = 8
  3410. BorderStyle = 0
  3411. Margin = 2
  3412. TabIndex = 1
  3413. ColorSource = 0
  3414. Name = "Text1"
  3415. header
  3416. header
  3417. grhContactName
  3418. 4frmsuppliers.pageframe1.page2.grdlist.grcContactName
  3419. `FontBold = .F.
  3420. FontSize = 8
  3421. Alignment = 2
  3422. Caption = "Contact Name"
  3423. Name = "grhContactName"
  3424. textbox
  3425. textbox
  3426. Text1
  3427. 4frmsuppliers.pageframe1.page2.grdlist.grcContactName
  3428. \FontBold = .F.
  3429. FontSize = 8
  3430. BorderStyle = 0
  3431. Margin = 2
  3432. ColorSource = 0
  3433. Name = "Text1"
  3434. header
  3435. header
  3436. grhContactTitle
  3437. 5frmsuppliers.pageframe1.page2.grdlist.grcContactTitle
  3438. bFontBold = .F.
  3439. FontSize = 8
  3440. Alignment = 2
  3441. Caption = "Contact Title"
  3442. Name = "grhContactTitle"
  3443. textbox
  3444. textbox
  3445. Text1
  3446. 5frmsuppliers.pageframe1.page2.grdlist.grcContactTitle
  3447. \FontBold = .F.
  3448. FontSize = 8
  3449. BorderStyle = 0
  3450. Margin = 2
  3451. ColorSource = 0
  3452. Name = "Text1"
  3453. header
  3454. header
  3455. grhPostalCode
  3456. 3frmsuppliers.pageframe1.page2.grdlist.grcPostalCode
  3457. ^FontBold = .F.
  3458. FontSize = 8
  3459. Alignment = 2
  3460. Caption = "Postal Code"
  3461. Name = "grhPostalCode"
  3462. textbox
  3463. textbox
  3464. Text1
  3465. 3frmsuppliers.pageframe1.page2.grdlist.grcPostalCode
  3466. \FontBold = .F.
  3467. FontSize = 8
  3468. BorderStyle = 0
  3469. Margin = 2
  3470. ColorSource = 0
  3471. Name = "Text1"
  3472. header
  3473. header
  3474. grhCountry
  3475. 0frmsuppliers.pageframe1.page2.grdlist.grcCountry
  3476. WFontBold = .F.
  3477. FontSize = 8
  3478. Alignment = 2
  3479. Caption = "Country"
  3480. Name = "grhCountry"
  3481. textbox
  3482. textbox
  3483. Text1
  3484. 0frmsuppliers.pageframe1.page2.grdlist.grcCountry
  3485. \FontBold = .F.
  3486. FontSize = 8
  3487. BorderStyle = 0
  3488. Margin = 2
  3489. ColorSource = 0
  3490. Name = "Text1"
  3491. header
  3492. header
  3493. grhPhone
  3494. COMPANY_NAME
  3495. NERROR
  3496. CMETHOD
  3497. NLINE
  3498. LAERROR    
  3499. LCMESSAGE
  3500. TSMAINTFORM
  3501. ERROR
  3502. PAGEFRAME1
  3503. PAGE1
  3504. TXTCOMPANY_NAME
  3505. SETFOCUS]
  3506. Products are supplied by this supplier. Cannot delete!
  3507. TSBASEFORM
  3508. THIS    
  3509. AERRORMSG'
  3510. TSMAINTFORM
  3511. ADDNEW
  3512. THISFORM
  3513. PAGEFRAME1
  3514. PAGE1
  3515. TXTCOMPANY_NAME
  3516. SETFOCUS
  3517. Error,
  3518. Init~
  3519. addnew
  3520. PLATFORM
  3521. UNIQUEID
  3522. TIMESTAMP
  3523. CLASS
  3524. CLASSLOC
  3525. BASECLASS
  3526. OBJNAME
  3527. PARENT
  3528. PROPERTIES
  3529. PROTECTED
  3530. METHODS
  3531. OBJCODE
  3532. RESERVED1
  3533. RESERVED2
  3534. RESERVED3
  3535. RESERVED4
  3536. RESERVED5
  3537. RESERVED6
  3538. RESERVED7
  3539. RESERVED8
  3540.  COMMENT Screen              
  3541.  WINDOWS _R0O0TMLK3 5158620605
  3542.  WINDOWS _R0O0TMLK4 515862060
  3543.  WINDOWS _QUZ0SCXE0 515862060
  3544.  WINDOWS _QUZ0SCXFE 511445416-
  3545.  WINDOWS _QUZ0SV7RL 511445416k
  3546.  WINDOWS _QY31C7J5Z 512120988c
  3547.  WINDOWS _QY31C7J69 512120988
  3548.  COMMENT FONTINFO            
  3549. VERSION =   3.00
  3550. ..\include\tastrade.h
  3551. dataenvironment
  3552. dataenvironment
  3553. Dataenvironment
  3554. Left = 123
  3555. Top = 191
  3556. Width = 191
  3557. Height = 207
  3558. AutoCloseTables = .F.
  3559. InitialSelectedAlias = "Shippers"
  3560. Name = "Dataenvironment"
  3561. cursor
  3562. cursor
  3563. cursor1
  3564. Dataenvironment
  3565. Left = 20
  3566. Top = 10
  3567. Width = 110
  3568. Height = 130
  3569. Alias = "Shippers"
  3570. Order = "company_na"
  3571. Database = ..\data\tastrade.dbc
  3572. CursorSource = "Shippers"
  3573. Name = "cursor1"
  3574. tsmaintform
  3575. ..\libs\tsbase.vcx
  3576. frmshippers
  3577. ScaleMode = 3
  3578. Top = 111
  3579. Left = 61
  3580. Height = 121
  3581. Width = 520
  3582. DoCreate = .T.
  3583. AutoCenter = .F.
  3584. Caption = "Shippers"
  3585. Icon = ..\bitmaps\shpprs1.ico
  3586. WindowState = 0
  3587. Name = "frmshippers"
  3588. pageframe1.ErasePage = .T.
  3589. pageframe1.page1.Name = "page1"
  3590. pageframe1.page2.grdlist.ColumnCount = 1
  3591. pageframe1.page2.grdlist.Column1.FontBold = .F.
  3592. pageframe1.page2.grdlist.Column1.FontSize = 8
  3593. pageframe1.page2.grdlist.Column1.ControlSource = "Shippers.company_name"
  3594. pageframe1.page2.grdlist.Column1.Width = 493
  3595. pageframe1.page2.grdlist.Column1.Name = "grcName"
  3596. pageframe1.page2.grdlist.Height = 91
  3597. pageframe1.page2.grdlist.Left = 0
  3598. pageframe1.page2.grdlist.Panel = 1
  3599. pageframe1.page2.grdlist.ScrollBars = 2
  3600. pageframe1.page2.grdlist.TabIndex = 1
  3601. pageframe1.page2.grdlist.Top = 0
  3602. pageframe1.page2.grdlist.Width = 514
  3603. pageframe1.page2.grdlist.Name = "grdlist"
  3604. pageframe1.page2.Name = "page2"
  3605. pageframe1.Top = 0
  3606. pageframe1.Left = 0
  3607. pageframe1.Width = 519
  3608. pageframe1.Height = 120
  3609. pageframe1.Name = "pageframe1"
  3610. txtCompany_Name
  3611. textbox
  3612. ..\libs\tsbase.vcx
  3613. PROCEDURE addnew
  3614. tsMaintForm::AddNew()
  3615. thisform.pageframe1.page1.txtCompany_Name.SetFocus()
  3616. ENDPROC
  3617. PROCEDURE Init
  3618. *-- (c) Microsoft Corporation 1995
  3619. tsBaseForm::Init()
  3620. this.aErrorMsg[DELETETRIG] = DELSHIPPER_LOC
  3621. ENDPROC
  3622. PROCEDURE Error
  3623. LPARAMETERS nError, cMethod, nLine
  3624. LOCAL laError[AERRORARRAY], ;
  3625.       lcMessage
  3626. =AERROR(laError)
  3627. DO CASE
  3628.   CASE nError = 1582        && Field rule violated
  3629.     tsMaintForm::Error(nError, cMethod, nLine)
  3630.     DO CASE
  3631.       CASE UPPER(laError[3]) = "COMPANY_NAME"
  3632.         this.Pageframe1.Page1.txtCompany_Name.SetFocus()
  3633.     ENDCASE
  3634.   OTHERWISE
  3635.     tsMaintForm::Error(nError, cMethod, nLine)
  3636. ENDCASE
  3637. ENDPROC
  3638. ..\libs\tsbase.vcx
  3639. tslabel
  3640. frmshippers.pageframe1.page1
  3641. BArial, 1, 8, 5, 14, 11, 14, 3, 0
  3642. Arial, 0, 8, 5, 14, 11, 20, 3, 0
  3643. jFontBold = .F.
  3644. FontSize = 8
  3645. BorderStyle = 0
  3646. Margin = 2
  3647. TabIndex = 1
  3648. ColorSource = 0
  3649. Name = "Text1"
  3650. ,frmshippers.pageframe1.page2.grdlist.grcName
  3651. Text1
  3652. textbox
  3653. textbox
  3654. QFontBold = .F.
  3655. FontSize = 8
  3656. Alignment = 2
  3657. Caption = "Name"
  3658. Name = "grhName"
  3659. ,frmshippers.pageframe1.page2.grdlist.grcName
  3660. grhName
  3661. header
  3662. header
  3663. sAlignment = 1
  3664. Caption = "Company"
  3665. Height = 17
  3666. Left = 9
  3667. Top = 22
  3668. Width = 121
  3669. TabIndex = 2
  3670. Name = "Tslabel1"
  3671. frmshippers.pageframe1.page1
  3672. Tslabel1
  3673. label
  3674.     tstextbox
  3675. ControlSource = "shippers.company_name"
  3676. Height = 24
  3677. Left = 141
  3678. TabIndex = 1
  3679. Top = 22
  3680. Width = 337
  3681. Name = "txtCompany_Name"
  3682. ..\include\tastrade.h
  3683. ..\..\..\dev\foxpro.h
  3684. ..\include\strings.h
  3685. TSMAINTFORM
  3686. ADDNEW
  3687. THISFORM
  3688. PAGEFRAME1
  3689. PAGE1
  3690. TXTCOMPANY_NAME
  3691. SETFOCUSO
  3692. Shipper exists on orders. Cannot delete!
  3693. TSBASEFORM
  3694. THIS    
  3695. AERRORMSG
  3696. COMPANY_NAME
  3697. NERROR
  3698. CMETHOD
  3699. NLINE
  3700. LAERROR    
  3701. LCMESSAGE
  3702. TSMAINTFORM
  3703. ERROR
  3704. PAGEFRAME1
  3705. PAGE1
  3706. TXTCOMPANY_NAME
  3707. SETFOCUS
  3708. addnew,
  3709. Error
  3710. PLATFORM
  3711. UNIQUEID
  3712. TIMESTAMP
  3713. CLASS
  3714. CLASSLOC
  3715. BASECLASS
  3716. OBJNAME
  3717. PARENT
  3718. PROPERTIES
  3719. PROTECTED
  3720. METHODS
  3721. OBJCODE
  3722. RESERVED1
  3723. RESERVED2
  3724. RESERVED3
  3725. RESERVED4
  3726. RESERVED5
  3727. RESERVED6
  3728. RESERVED7
  3729. RESERVED8
  3730.  COMMENT Screen              
  3731.  WINDOWS _R0O0U04RH 5523735215
  3732.  WINDOWS _R0O0U05CW 552373833m
  3733.  WINDOWS _R0O0U05D6 552373833_
  3734.  WINDOWS _R0O0U05DG 552373833G
  3735.  WINDOWS _R0O0U05DQ 515862396/
  3736.  WINDOWS _R0O0U05DR 515862396
  3737.  WINDOWS _QUZ0ZKS1X 552373833
  3738.  WINDOWS _QYP184UP9 511445360
  3739.  WINDOWS _QYP184UQN 511445360
  3740.  WINDOWS _QYP184URR 511026287
  3741.  WINDOWS _QYP184UTF 511026287
  3742.  WINDOWS _QYP184UU9 511026287
  3743.  WINDOWS _QYP184UVY 511445360
  3744.  WINDOWS _QYP184UX2 511026287
  3745.  WINDOWS _QYP184UYG 511445360
  3746.  WINDOWS _QYP184UZK 511026287
  3747.  WINDOWS _QYP184V0Y 511445360z(
  3748.  WINDOWS _QYP184V22 511026287d)
  3749.  WINDOWS _QYP184V3G 512063537
  3750.  WINDOWS _QYP184V4A 552373521j+
  3751.  WINDOWS _QYP184VM3 512063537
  3752.  WINDOWS _QYP184VN7 552373521
  3753.  WINDOWS _QYP184W4Q 511445361
  3754.  WINDOWS _QYP184W6E 511445361
  3755.  WINDOWS _QYP184W7I 511445361
  3756.  WINDOWS _QYP184W8W 511445361
  3757.  WINDOWS _QYP184WA0 511445361
  3758.  WINDOWS _QYP184WB4 511026288}8
  3759.  WINDOWS _QY31CE2QS 512123578v9
  3760.  WINDOWS _QY31CE2QT 552373833K:
  3761.  WINDOWS _QY31CE2RM 512123578#;
  3762.  WINDOWS _QY31CE2RW 512123578
  3763.  WINDOWS _QY31CE2SQ 512123578
  3764.  WINDOWS _QY31CE2T0 512123578
  3765.  WINDOWS _QY31CE2TU 512123578s>
  3766.  WINDOWS _QY31CE2U4 512123578M?
  3767.  WINDOWS _QZ413MS7N 512123578&@
  3768.  WINDOWS _QZ413MS7W 512123578
  3769.  WINDOWS _QZ413MS8R 512123578
  3770.  WINDOWS _QZ413MS91 512123579
  3771.  WINDOWS _QZ413MS9V 512123579LC
  3772.  WINDOWS _QZ413MSA5 512123579&D
  3773.  WINDOWS _QZ413MSAY 512123579
  3774.  WINDOWS _QZ413MSB9 512123579
  3775.  WINDOWS _QZ413MSC3 512123579
  3776.  WINDOWS _QZ413MSCD 512123579mG
  3777.  WINDOWS _QZ50M5NBJ 512123579+H
  3778.  WINDOWS _QZ50QI1SH 51212357973
  3779.  WINDOWS _QZ50QI1SR 512123579y/
  3780.  WINDOWS _QZ50QI1TB 512123579
  3781.  WINDOWS _QZ50QI1TL 512123579
  3782.  COMMENT RESERVED            
  3783. VERSION =   3.00
  3784. ..\include\tastrade.h
  3785. dataenvironment
  3786. dataenvironment
  3787. Dataenvironment
  3788. Left = 81
  3789. Top = 57
  3790. Width = 580
  3791. Height = 337
  3792. AutoCloseTables = .F.
  3793. InitialSelectedAlias = "Products"
  3794. Name = "Dataenvironment"
  3795. rPROCEDURE BeforeOpenTables
  3796. SET TALK OFF
  3797. SET EXCLUSIVE OFF
  3798. SET DELETED ON
  3799. SET DATABASE TO TASTRADE
  3800. ENDPROC
  3801. ..\include\tastrade.h
  3802. ..\..\..\dev\foxpro.h
  3803. ..\include\strings.h
  3804. !Arial, 0, 8, 5, 14, 11, 20, 3, 0
  3805. \FontBold = .F.
  3806. FontSize = 8
  3807. BorderStyle = 0
  3808. Margin = 2
  3809. ColorSource = 0
  3810. Name = "Text1"
  3811. cursor
  3812. cursor
  3813. Cursor1
  3814. Dataenvironment
  3815. Left = 20
  3816. Top = 10
  3817. Width = 134
  3818. Height = 279
  3819. Alias = "Products"
  3820. Order = "product_na"
  3821. Database = ..\data\tastrade.dbc
  3822. CursorSource = "Products"
  3823. Name = "Cursor1"
  3824. cursor
  3825. cursor
  3826. Cursor2
  3827. Dataenvironment
  3828. Left = 225
  3829. Top = 8
  3830. Width = 137
  3831. Height = 256
  3832. Alias = "Supplier"
  3833. Order = ""
  3834. Database = ..\data\tastrade.dbc
  3835. CursorSource = "Supplier"
  3836. Name = "Cursor2"
  3837. cursor
  3838. cursor
  3839. Cursor3
  3840. Dataenvironment
  3841. Left = 424
  3842. Top = 9
  3843. Width = 131
  3844. Height = 127
  3845. Alias = "Category"
  3846. Order = ""
  3847. Database = ..\data\tastrade.dbc
  3848. CursorSource = "Category"
  3849. Name = "Cursor3"
  3850. relation
  3851. relation
  3852.     Relation1
  3853. Dataenvironment
  3854. ParentAlias = "Products"
  3855. RelationalExpr = "supplier_id"
  3856. ChildAlias = "Supplier"
  3857. ChildOrder = "supplier_i"
  3858. Name = "Relation1"
  3859. relation
  3860. relation
  3861.     Relation2
  3862. Dataenvironment
  3863. ParentAlias = "Products"
  3864. RelationalExpr = "category_id"
  3865. ChildAlias = "Category"
  3866. ChildOrder = "category_i"
  3867. Name = "Relation2"
  3868. tsmaintform
  3869. ..\libs\tsbase.vcx
  3870. frmproducts
  3871. DataSession = 2
  3872. ScaleMode = 3
  3873. Top = 34
  3874. Left = 21
  3875. Height = 236
  3876. Width = 581
  3877. DoCreate = .T.
  3878. AutoCenter = .F.
  3879. Caption = "Products"
  3880. Icon = ..\bitmaps\prod1.ico
  3881. Name = "frmproducts"
  3882. pageframe1.ErasePage = .T.
  3883. pageframe1.page1.Name = "page1"
  3884. pageframe1.page2.grdlist.ColumnCount = 11
  3885. pageframe1.page2.grdlist.Column1.FontBold = .F.
  3886. pageframe1.page2.grdlist.Column1.FontSize = 8
  3887. pageframe1.page2.grdlist.Column1.ControlSource = "Products.product_name"
  3888. pageframe1.page2.grdlist.Column1.Width = 226
  3889. pageframe1.page2.grdlist.Column1.Name = "grcProductName"
  3890. pageframe1.page2.grdlist.Column2.FontBold = .F.
  3891. pageframe1.page2.grdlist.Column2.FontSize = 8
  3892. pageframe1.page2.grdlist.Column2.ControlSource = "Products.english_name"
  3893. pageframe1.page2.grdlist.Column2.Width = 227
  3894. pageframe1.page2.grdlist.Column2.Name = "grcEnglishName"
  3895. pageframe1.page2.grdlist.Column3.FontBold = .F.
  3896. pageframe1.page2.grdlist.Column3.FontSize = 8
  3897. pageframe1.page2.grdlist.Column3.ColumnOrder = 4
  3898. pageframe1.page2.grdlist.Column3.ControlSource = "Products.unit_price"
  3899. pageframe1.page2.grdlist.Column3.Width = 100
  3900. pageframe1.page2.grdlist.Column3.Name = "grcUnitPrice"
  3901. pageframe1.page2.grdlist.Column4.FontBold = .F.
  3902. pageframe1.page2.grdlist.Column4.FontSize = 8
  3903. pageframe1.page2.grdlist.Column4.ColumnOrder = 6
  3904. pageframe1.page2.grdlist.Column4.ControlSource = "Products.units_in_stock"
  3905. pageframe1.page2.grdlist.Column4.Name = "grcUnitsInStock"
  3906. pageframe1.page2.grdlist.Column5.FontBold = .F.
  3907. pageframe1.page2.grdlist.Column5.FontSize = 8
  3908. pageframe1.page2.grdlist.Column5.ColumnOrder = 5
  3909. pageframe1.page2.grdlist.Column5.ControlSource = "Products.quantity_in_unit"
  3910. pageframe1.page2.grdlist.Column5.Width = 131
  3911. pageframe1.page2.grdlist.Column5.Name = "grcQtyInUnit"
  3912. pageframe1.page2.grdlist.Column6.FontBold = .F.
  3913. pageframe1.page2.grdlist.Column6.FontSize = 8
  3914. pageframe1.page2.grdlist.Column6.ColumnOrder = 3
  3915. pageframe1.page2.grdlist.Column6.ControlSource = "Products.unit_cost"
  3916. pageframe1.page2.grdlist.Column6.Width = 100
  3917. pageframe1.page2.grdlist.Column6.Name = "grcUnitCost"
  3918. pageframe1.page2.grdlist.Column7.FontBold = .F.
  3919. pageframe1.page2.grdlist.Column7.FontSize = 8
  3920. pageframe1.page2.grdlist.Column7.ControlSource = "Products.units_on_order"
  3921. pageframe1.page2.grdlist.Column7.Name = "grcUnitsOnOrder"
  3922. pageframe1.page2.grdlist.Column8.FontBold = .F.
  3923. pageframe1.page2.grdlist.Column8.FontSize = 8
  3924. pageframe1.page2.grdlist.Column8.ControlSource = "Products.reorder_level"
  3925. pageframe1.page2.grdlist.Column8.Name = "grcReorderLevel"
  3926. pageframe1.page2.grdlist.Column9.FontBold = .F.
  3927. pageframe1.page2.grdlist.Column9.FontSize = 8
  3928. pageframe1.page2.grdlist.Column9.ControlSource = "Products.discontinued"
  3929. pageframe1.page2.grdlist.Column9.CurrentControl = "Text1"
  3930. pageframe1.page2.grdlist.Column9.Sparse = .F.
  3931. pageframe1.page2.grdlist.Column9.Name = "grcDiscontinued"
  3932. pageframe1.page2.grdlist.Column10.FontBold = .F.
  3933. pageframe1.page2.grdlist.Column10.FontSize = 8
  3934. pageframe1.page2.grdlist.Column10.ControlSource = "Supplier.company_name"
  3935. pageframe1.page2.grdlist.Column10.Width = 201
  3936. pageframe1.page2.grdlist.Column10.Name = "grcSupplier"
  3937. pageframe1.page2.grdlist.Column11.FontBold = .F.
  3938. pageframe1.page2.grdlist.Column11.FontSize = 8
  3939. pageframe1.page2.grdlist.Column11.ControlSource = "Category.category_name"
  3940. pageframe1.page2.grdlist.Column11.Width = 197
  3941. pageframe1.page2.grdlist.Column11.Name = "grcCategory"
  3942. pageframe1.page2.grdlist.Height = 206
  3943. pageframe1.page2.grdlist.Left = 0
  3944. pageframe1.page2.grdlist.Panel = 1
  3945. pageframe1.page2.grdlist.TabIndex = 1
  3946. pageframe1.page2.grdlist.Top = 0
  3947. pageframe1.page2.grdlist.Width = 575
  3948. pageframe1.page2.grdlist.Name = "grdlist"
  3949. pageframe1.page2.Name = "page2"
  3950. pageframe1.Top = 0
  3951. pageframe1.Left = 0
  3952. pageframe1.Width = 580
  3953. pageframe1.Height = 235
  3954. pageframe1.Name = "pageframe1"
  3955. YPROCEDURE Error
  3956. LPARAMETERS nError, cMethod, nLine
  3957. LOCAL laError[AERRORARRAY], ;
  3958.       lcMessage
  3959. =AERROR(laError)
  3960. DO CASE
  3961.   CASE nError = 1582        && Field rule violated
  3962.     tsMaintForm::Error(nError, cMethod, nLine)
  3963.     DO CASE
  3964.       CASE UPPER(laError[3]) = "PRODUCT_NAME"
  3965.         this.Pageframe1.Page1.txtProduct_Name.SetFocus()
  3966.     ENDCASE
  3967.   OTHERWISE
  3968.     tsMaintForm::Error(nError, cMethod, nLine)
  3969. ENDCASE
  3970. ENDPROC
  3971. PROCEDURE Init
  3972. *-- (c) Microsoft Corporation 1995
  3973. tsBaseForm::Init()
  3974. this.aErrorMsg[DELETETRIG] = DELPRODUCT_LOC
  3975. this.aErrorMsg[INSERTTRIG] = INSPRODUCT_LOC
  3976. ENDPROC
  3977. PROCEDURE addnew
  3978. tsMaintForm::AddNew()
  3979. thisform.pageframe1.page1.txtProduct_Name.SetFocus()
  3980. ENDPROC
  3981. PROCEDURE Destroy
  3982. tsMaintForm::Destroy()
  3983. IF USED("products")
  3984.   SELECT products
  3985.   SET RELATION TO
  3986. ENDIF
  3987. ENDPROC
  3988. cCategory
  3989. CCATEGORY
  3990. Destroy,
  3991. products.supplier_id
  3992. select company_name, supplier_id from supplier order by company_name into cursor cSupplier
  3993. CONTROLSOURCE    
  3994. ROWSOURCE'
  3995. cSupplier
  3996. CSUPPLIER
  3997. Init,
  3998. Destroy
  3999. TASTRADE
  4000. TASTRADE
  4001. BeforeOpenTables,
  4002. 0frmproducts.pageframe1.page2.grdlist.grcCategory
  4003. Text1
  4004. textbox
  4005. textbox
  4006. 0frmproducts.pageframe1.page2.grdlist.grcCategory
  4007.     tstextbox
  4008. ..\libs\tsbase.vcx
  4009. textbox
  4010. txtProduct_Name
  4011. frmproducts.pageframe1.page1
  4012. ControlSource = "Products.product_name"
  4013. Height = 24
  4014. Left = 142
  4015. TabIndex = 1
  4016. Top = 18
  4017. Width = 196
  4018. Name = "txtProduct_Name"
  4019. tslabel
  4020. ..\libs\tsbase.vcx
  4021. label
  4022. Tslabel1
  4023. frmproducts.pageframe1.page1
  4024. yAlignment = 1
  4025. Caption = "Product Name"
  4026. Height = 17
  4027. Left = 10
  4028. Top = 18
  4029. Width = 121
  4030. TabIndex = 7
  4031. Name = "Tslabel1"
  4032.     tstextbox
  4033. ..\libs\tsbase.vcx
  4034. textbox
  4035. txtEnglish_Name
  4036. frmproducts.pageframe1.page1
  4037. ControlSource = "Products.english_name"
  4038. Height = 24
  4039. Left = 142
  4040. TabIndex = 2
  4041. Top = 46
  4042. Width = 196
  4043. Name = "txtEnglish_Name"
  4044. tslabel
  4045. ..\libs\tsbase.vcx
  4046. label
  4047. Tslabel2
  4048. frmproducts.pageframe1.page1
  4049. yAlignment = 1
  4050. Caption = "English Name"
  4051. Height = 17
  4052. Left = 12
  4053. Top = 46
  4054. Width = 121
  4055. TabIndex = 8
  4056. Name = "Tslabel2"
  4057.     tstextbox
  4058. ..\libs\tsbase.vcx
  4059. textbox
  4060. txtQuantity_In_Unit
  4061. frmproducts.pageframe1.page1
  4062. ControlSource = "Products.quantity_in_unit"
  4063. Height = 24
  4064. Left = 142
  4065. TabIndex = 3
  4066. Top = 74
  4067. Width = 146
  4068. Name = "txtQuantity_In_Unit"
  4069. tslabel
  4070. ..\libs\tsbase.vcx
  4071. label
  4072. Tslabel3
  4073. frmproducts.pageframe1.page1
  4074. zAlignment = 1
  4075. Caption = "Number In Unit"
  4076. Height = 17
  4077. Left = 8
  4078. Top = 74
  4079. Width = 123
  4080. TabIndex = 9
  4081. Name = "Tslabel3"
  4082.     tstextbox
  4083. ..\libs\tsbase.vcx
  4084. textbox
  4085. txtUnit_Price
  4086. frmproducts.pageframe1.page1
  4087. ~ControlSource = "Products.unit_price"
  4088. Height = 24
  4089. Left = 142
  4090. TabIndex = 4
  4091. Top = 102
  4092. Width = 121
  4093. Name = "txtUnit_Price"
  4094. tslabel
  4095. ..\libs\tsbase.vcx
  4096. label
  4097. Tslabel4
  4098. frmproducts.pageframe1.page1
  4099. yAlignment = 1
  4100. Caption = "Unit Price"
  4101. Height = 17
  4102. Left = 10
  4103. Top = 102
  4104. Width = 121
  4105. TabIndex = 10
  4106. Name = "Tslabel4"
  4107.     tstextbox
  4108. ..\libs\tsbase.vcx
  4109. textbox
  4110. txtUnit_Cost
  4111. frmproducts.pageframe1.page1
  4112. |ControlSource = "Products.unit_cost"
  4113. Height = 24
  4114. Left = 142
  4115. TabIndex = 5
  4116. Top = 130
  4117. Width = 121
  4118. Name = "txtUnit_Cost"
  4119. tslabel
  4120. ..\libs\tsbase.vcx
  4121. label
  4122. Tslabel5
  4123. frmproducts.pageframe1.page1
  4124. xAlignment = 1
  4125. Caption = "Unit Cost"
  4126. Height = 17
  4127. Left = 10
  4128. Top = 130
  4129. Width = 121
  4130. TabIndex = 11
  4131. Name = "Tslabel5"
  4132. tscheckbox
  4133. ..\libs\tsbase.vcx
  4134. checkbox
  4135. chkDiscontinued
  4136. frmproducts.pageframe1.page1
  4137. Top = 162
  4138. Left = 142
  4139. Height = 16
  4140. Width = 185
  4141. Caption = "\<Discontinued"
  4142. ControlSource = "Products.discontinued"
  4143. TabIndex = 6
  4144. Name = "chkDiscontinued"
  4145. tslabel
  4146. ..\libs\tsbase.vcx
  4147. label
  4148. Tslabel6
  4149. frmproducts.pageframe1.page1
  4150. wAlignment = 0
  4151. Caption = "Supplier"
  4152. Height = 17
  4153. Left = 367
  4154. Top = 14
  4155. Width = 176
  4156. TabIndex = 12
  4157. Name = "Tslabel6"
  4158. tscombobox
  4159. ..\libs\tsbase.vcx
  4160. combobox
  4161. cboSupply_ID
  4162. frmproducts.pageframe1.page1
  4163. BoundColumn = 2
  4164. RowSourceType = 3
  4165. RowSource = "select company_name, supplier_id from supplier order by company_name into cursor cSupplier"
  4166. Value = 
  4167. ControlSource = "products.supplier_id"
  4168. Left = 367
  4169. Style = 2
  4170. TabIndex = 7
  4171. Top = 29
  4172. Name = "cboSupply_ID"
  4173. =PROCEDURE Init
  4174. THIS.ControlSource = "products.supplier_id"
  4175. THIS.RowSource = "select company_name, supplier_id from supplier order by company_name into cursor cSupplier"
  4176. ENDPROC
  4177. PROCEDURE Destroy
  4178. *-- Destroy the alias created in the RowSource property
  4179. IF USED("cSupplier")
  4180.   USE IN cSupplier
  4181. ENDIF
  4182. ENDPROC
  4183. YFontBold = .F.
  4184. FontSize = 8
  4185. Alignment = 2
  4186. Caption = "Category"
  4187. Name = "grhCategory"
  4188. grhCategory
  4189. header
  4190. header
  4191. \FontBold = .F.
  4192. FontSize = 8
  4193. BorderStyle = 0
  4194. Margin = 2
  4195. ColorSource = 0
  4196. Name = "Text1"
  4197. 0frmproducts.pageframe1.page2.grdlist.grcSupplier
  4198. Text1
  4199. textbox
  4200. textbox
  4201. YFontBold = .F.
  4202. FontSize = 8
  4203. Alignment = 2
  4204. Caption = "Supplier"
  4205. Name = "grhSupplier"
  4206. tslabel
  4207. ..\libs\tsbase.vcx
  4208. label
  4209. Tslabel7
  4210. frmproducts.pageframe1.page1
  4211. wAlignment = 0
  4212. Caption = "Category"
  4213. Height = 17
  4214. Left = 367
  4215. Top = 59
  4216. Width = 176
  4217. TabIndex = 13
  4218. Name = "Tslabel7"
  4219. tscombobox
  4220. ..\libs\tsbase.vcx
  4221. combobox
  4222. cboCategory_ID
  4223. frmproducts.pageframe1.page1
  4224. BoundColumn = 2
  4225. RowSourceType = 3
  4226. RowSource = "select category_name, category_id from category order by category_name into cursor cCategory"
  4227. ControlSource = "Products.category_id"
  4228. Left = 367
  4229. Style = 2
  4230. TabIndex = 8
  4231. Top = 74
  4232. Name = "cboCategory_ID"
  4233. PROCEDURE Destroy
  4234. *-- Destroy the alias created in the RowSource property
  4235. IF USED("cCategory")
  4236.   USE IN cCategory
  4237. ENDIF
  4238. ENDPROC
  4239. 0frmproducts.pageframe1.page2.grdlist.grcSupplier
  4240. grhSupplier
  4241. header
  4242. header
  4243. OFontBold = .F.
  4244. FontSize = 8
  4245. Caption = ""
  4246. Value = .F.
  4247. Name = "Tscheckbox1"
  4248. Tscheckbox1
  4249. checkbox
  4250. Text1
  4251.     tstextbox
  4252. ..\libs\tsbase.vcx
  4253. textbox
  4254. txtReorder_Level
  4255. frmproducts.pageframe1.page1
  4256. ControlSource = "Products.reorder_level"
  4257. Height = 24
  4258. Left = 462
  4259. TabIndex = 9
  4260. Top = 114
  4261. Width = 104
  4262. Name = "txtReorder_Level"
  4263. tslabel
  4264. ..\libs\tsbase.vcx
  4265. label
  4266. Tslabel8
  4267. frmproducts.pageframe1.page1
  4268. }Alignment = 1
  4269. Caption = "Reorder Level"
  4270. Height = 17
  4271. Left = 311
  4272. Top = 114
  4273. Width = 143
  4274. TabIndex = 14
  4275. Name = "Tslabel8"
  4276.     tstextbox
  4277. ..\libs\tsbase.vcx
  4278. textbox
  4279. txtUnits_On_Order
  4280. frmproducts.pageframe1.page1
  4281. ControlSource = "Products.units_on_order"
  4282. Height = 24
  4283. Left = 462
  4284. TabIndex = 10
  4285. Top = 144
  4286. Width = 104
  4287. Name = "txtUnits_On_Order"
  4288. tslabel
  4289. ..\libs\tsbase.vcx
  4290. label
  4291. Tslabel9
  4292. frmproducts.pageframe1.page1
  4293. xAlignment = 1
  4294. Caption = "On Order"
  4295. Height = 17
  4296. Left = 334
  4297. Top = 144
  4298. Width = 121
  4299. TabIndex = 15
  4300. Name = "Tslabel9"
  4301. tslabel
  4302. ..\libs\tsbase.vcx
  4303. label
  4304.     Tslabel10
  4305. frmproducts.pageframe1.page1
  4306. ]Caption = "In Stock"
  4307. Height = 17
  4308. Left = 380
  4309. Top = 174
  4310. TabIndex = 16
  4311. Name = "Tslabel10"
  4312.     tstextbox
  4313. ..\libs\tsbase.vcx
  4314. textbox
  4315. txtUnits_In_Stock
  4316. frmproducts.pageframe1.page1
  4317. zControlSource = "Products.units_in_stock"
  4318. Left = 462
  4319. TabIndex = 11
  4320. Top = 174
  4321. Width = 104
  4322. Name = "txtUnits_In_Stock"
  4323. header
  4324. header
  4325. grhProductName
  4326. 3frmproducts.pageframe1.page2.grdlist.grcProductName
  4327. `FontBold = .F.
  4328. FontSize = 8
  4329. Alignment = 2
  4330. Caption = "Product Name"
  4331. Name = "grhProductName"
  4332. textbox
  4333. textbox
  4334. Text1
  4335. 3frmproducts.pageframe1.page2.grdlist.grcProductName
  4336. jFontBold = .F.
  4337. FontSize = 8
  4338. BorderStyle = 0
  4339. Margin = 2
  4340. TabIndex = 1
  4341. ColorSource = 0
  4342. Name = "Text1"
  4343. header
  4344. header
  4345. grhEnglishName
  4346. 3frmproducts.pageframe1.page2.grdlist.grcEnglishName
  4347. `FontBold = .F.
  4348. FontSize = 8
  4349. Alignment = 2
  4350. Caption = "English Name"
  4351. Name = "grhEnglishName"
  4352. textbox
  4353. textbox
  4354. Text1
  4355. 3frmproducts.pageframe1.page2.grdlist.grcEnglishName
  4356. jFontBold = .F.
  4357. FontSize = 8
  4358. BorderStyle = 0
  4359. Margin = 2
  4360. TabIndex = 1
  4361. ColorSource = 0
  4362. Name = "Text1"
  4363. header
  4364. header
  4365. grhUnitPrice
  4366. 1frmproducts.pageframe1.page2.grdlist.grcUnitPrice
  4367. \FontBold = .F.
  4368. FontSize = 8
  4369. Alignment = 2
  4370. Caption = "Unit Price"
  4371. Name = "grhUnitPrice"
  4372. textbox
  4373. textbox
  4374. Text1
  4375. 1frmproducts.pageframe1.page2.grdlist.grcUnitPrice
  4376. jFontBold = .F.
  4377. FontSize = 8
  4378. BorderStyle = 0
  4379. Margin = 2
  4380. TabIndex = 1
  4381. ColorSource = 0
  4382. Name = "Text1"
  4383. header
  4384. header
  4385. grhUnitsInStock
  4386. 4frmproducts.pageframe1.page2.grdlist.grcUnitsInStock
  4387. cFontBold = .F.
  4388. FontSize = 8
  4389. Alignment = 2
  4390. Caption = "Units In Stock"
  4391. Name = "grhUnitsInStock"
  4392. textbox
  4393. textbox
  4394. Text1
  4395. 4frmproducts.pageframe1.page2.grdlist.grcUnitsInStock
  4396. jFontBold = .F.
  4397. FontSize = 8
  4398. BorderStyle = 0
  4399. Margin = 2
  4400. TabIndex = 1
  4401. ColorSource = 0
  4402. Name = "Text1"
  4403. header
  4404. header
  4405. grhQtyInUnit
  4406. 1frmproducts.pageframe1.page2.grdlist.grcQtyInUnit
  4407. ]FontBold = .F.
  4408. FontSize = 8
  4409. Alignment = 2
  4410. Caption = "Qty In Unit"
  4411. Name = "grhQtyInUnit"
  4412. textbox
  4413. textbox
  4414. Text1
  4415. 1frmproducts.pageframe1.page2.grdlist.grcQtyInUnit
  4416. \FontBold = .F.
  4417. FontSize = 8
  4418. BorderStyle = 0
  4419. Margin = 2
  4420. ColorSource = 0
  4421. Name = "Text1"
  4422. header
  4423. header
  4424. grhUnitCost
  4425. 0frmproducts.pageframe1.page2.grdlist.grcUnitCost
  4426. ZFontBold = .F.
  4427. FontSize = 8
  4428. Alignment = 2
  4429. Caption = "Unit Cost"
  4430. Name = "grhUnitCost"
  4431. textbox
  4432. textbox
  4433. Text1
  4434. 0frmproducts.pageframe1.page2.grdlist.grcUnitCost
  4435. \FontBold = .F.
  4436. FontSize = 8
  4437. BorderStyle = 0
  4438. Margin = 2
  4439. ColorSource = 0
  4440. Name = "Text1"
  4441. header
  4442. header
  4443. grhUnitsOnOrder
  4444. 4frmproducts.pageframe1.page2.grdlist.grcUnitsOnOrder
  4445. cFontBold = .F.
  4446. FontSize = 8
  4447. Alignment = 2
  4448. Caption = "Units On Order"
  4449. Name = "grhUnitsOnOrder"
  4450. textbox
  4451. textbox
  4452. Text1
  4453. 4frmproducts.pageframe1.page2.grdlist.grcUnitsOnOrder
  4454. \FontBold = .F.
  4455. FontSize = 8
  4456. BorderStyle = 0
  4457. Margin = 2
  4458. ColorSource = 0
  4459. Name = "Text1"
  4460. header
  4461. header
  4462. grhReorderLevel
  4463. 4frmproducts.pageframe1.page2.grdlist.grcReorderLevel
  4464. bFontBold = .F.
  4465. FontSize = 8
  4466. Alignment = 2
  4467. Caption = "Reorder Level"
  4468. Name = "grhReorderLevel"
  4469. textbox
  4470. textbox
  4471. Text1
  4472. 4frmproducts.pageframe1.page2.grdlist.grcReorderLevel
  4473. \FontBold = .F.
  4474. FontSize = 8
  4475. BorderStyle = 0
  4476. Margin = 2
  4477. ColorSource = 0
  4478. Name = "Text1"
  4479. header
  4480. header
  4481. grhDiscontinued
  4482. 4frmproducts.pageframe1.page2.grdlist.grcDiscontinued
  4483. aFontBold = .F.
  4484. FontSize = 8
  4485. Alignment = 2
  4486. Caption = "Discontinued"
  4487. Name = "grhDiscontinued"
  4488. textbox
  4489. textbox
  4490. 4frmproducts.pageframe1.page2.grdlist.grcDiscontinued
  4491. \FontBold = .F.
  4492. FontSize = 8
  4493. BorderStyle = 0
  4494. Margin = 2
  4495. ColorSource = 0
  4496. Name = "Text1"
  4497. tscheckbox
  4498. ..\libs\tsbase.vcx
  4499. 4frmproducts.pageframe1.page2.grdlist.grcDiscontinued
  4500. PRODUCT_NAME
  4501. NERROR
  4502. CMETHOD
  4503. NLINE
  4504. LAERROR    
  4505. LCMESSAGE
  4506. TSMAINTFORM
  4507. ERROR
  4508. PAGEFRAME1
  4509. PAGE1
  4510. TXTPRODUCT_NAME
  4511. SETFOCUS
  4512. Product exists on order line items. Cannot delete!
  4513. All products must be assigned a supplier and a category.
  4514. TSBASEFORM
  4515. THIS    
  4516. AERRORMSG'
  4517. TSMAINTFORM
  4518. ADDNEW
  4519. THISFORM
  4520. PAGEFRAME1
  4521. PAGE1
  4522. TXTPRODUCT_NAME
  4523. SETFOCUS9
  4524. products
  4525. TSMAINTFORM
  4526. DESTROY
  4527. PRODUCTS
  4528. Error,
  4529. Init~
  4530. addnewL
  4531. Destroy
  4532. PLATFORM
  4533. UNIQUEID
  4534. TIMESTAMP
  4535. CLASS
  4536. CLASSLOC
  4537. BASECLASS
  4538. OBJNAME
  4539. PARENT
  4540. PROPERTIES
  4541. PROTECTED
  4542. METHODS
  4543. OBJCODE
  4544. RESERVED1
  4545. RESERVED2
  4546. RESERVED3
  4547. RESERVED4
  4548. RESERVED5
  4549. RESERVED6
  4550. RESERVED7
  4551. RESERVED8
  4552.  COMMENT Screen              
  4553.  WINDOWS _R480MK7UW 5247027065
  4554.  WINDOWS _R480MK7VQ 552753666
  4555.  WINDOWS _R480MK7WU 552753666
  4556.  WINDOWS _R480MK7XO 524702706
  4557.  WINDOWS _QV00H03XB 552753666
  4558.  WINDOWS _QYP18RGT8 5124667284&
  4559.  WINDOWS _QYP18RGTS 512466728('
  4560.  WINDOWS _QYP18RGUC 512466728
  4561.  WINDOWS _QYP18RGUW 512466728
  4562.  WINDOWS _QYP18RGVG 512466728
  4563.  WINDOWS _QYP18RGWB 512466728
  4564.  WINDOWS _QYP18RGWL 512466728
  4565.  WINDOWS _QYP18RGXF 512466728
  4566.  WINDOWS _QYP18RGXZ 512466728
  4567.  WINDOWS _QYP18RGYJ 512466728
  4568.  WINDOWS _QYP18RGZ3 512466728z/
  4569.  WINDOWS _QYP18RGZN 512466728j0
  4570.  WINDOWS _QYP18RH07 512466728R1
  4571.  WINDOWS _QYP18RH11 51246672892
  4572.  WINDOWS _QYP18RH1B 512466728
  4573.  WINDOWS _QYP18RH25 512466728
  4574.  WINDOWS _QYP18RH2F 512466728
  4575.  WINDOWS _QYP18RH39 512466728
  4576.  WINDOWS _QYP18RH3T 512466728
  4577.  WINDOWS _QYP18RH4D 512466728
  4578.  WINDOWS _QYP18RH4X 512466728
  4579.  WINDOWS _QYP18RH5H 512466728
  4580.  WINDOWS _QYP18RH61 512466728
  4581.  WINDOWS _QYP18RH6L 512466729
  4582.  WINDOWS _QYP18RH75 512466729{<
  4583.  WINDOWS _QYP18RH7P 512466729d=
  4584.  WINDOWS _QY30OT0QY 5121224681@
  4585.  WINDOWS _QY30OT0R8 512122468
  4586.  WINDOWS _QY30OT0S2 512122468
  4587.  WINDOWS _QY30OT0SC 512122468
  4588.  WINDOWS _QY30OT0TG 512122468]C
  4589.  WINDOWS _QY30OT0TQ 512122468!D
  4590.  WINDOWS _QY30OT0UK 512122468
  4591.  WINDOWS _QY30OT0UU 512122468
  4592.  WINDOWS _QZ4129JYK 512122468~F
  4593.  WINDOWS _QZ4129JYU 512122468KG
  4594.  WINDOWS _QZ4129JZE 512122468
  4595.  WINDOWS _QZ4129JZO 512122468
  4596.  WINDOWS _QZ4129K08 512122468
  4597.  WINDOWS _QZ4129K0I 512122468qJ
  4598.  WINDOWS _QZ4129K12 5121224688K
  4599.  WINDOWS _QZ4129K13 512122468
  4600.  WINDOWS _QZ4129K1M 512122468
  4601.  WINDOWS _QZ4129K1W 512122468
  4602.  WINDOWS _QZ4129K2G 512122468WN
  4603.  WINDOWS _QZ4129K2Q 512122468
  4604.  WINDOWS _QZ4129K3A 512122468
  4605.  WINDOWS _QZ4129K3K 512122468
  4606.  WINDOWS _QZ4129K44 512122468vQ
  4607.  WINDOWS _QZ4129K45 512122468BR
  4608.  WINDOWS _QZ4129K5I 512122469
  4609.  WINDOWS _QZ4129K5S 512122469
  4610.  WINDOWS _QZ50PEIZP 512122469
  4611.  WINDOWS _QZ50PEIZZ 512122469fU
  4612.  WINDOWS _QZ4111UWI 512068135.V
  4613.  WINDOWS _QZ4111UY6 512068135
  4614.  WINDOWS _QZ4111UYG 524646413
  4615.  WINDOWS _R470W5XI4 524646441
  4616.  COMMENT RESERVED            
  4617. VERSION =   3.00
  4618. ..\include\tastrade.h
  4619. dataenvironment
  4620. dataenvironment
  4621. Dataenvironment
  4622. Left = 133
  4623. Top = 61
  4624. Width = 501
  4625. Height = 447
  4626. AutoCloseTables = .F.
  4627. InitialSelectedAlias = "Employee"
  4628. Name = "Dataenvironment"
  4629. cursor
  4630. cursor
  4631. Cursor1
  4632. Dataenvironment
  4633. Left = 20
  4634. Top = 10
  4635. Width = 192
  4636. Height = 397
  4637. Alias = "Employee"
  4638. Order = "last_name"
  4639. Database = ..\data\tastrade.dbc
  4640. CursorSource = "Employee"
  4641. Name = "Cursor1"
  4642. cursor
  4643. cursor
  4644. Cursor2
  4645. Dataenvironment
  4646. Left = 311
  4647. Top = 13
  4648. Width = 147
  4649. Height = 209
  4650. Alias = "User_Level"
  4651. Database = ..\data\tastrade.dbc
  4652. CursorSource = "User_Level"
  4653. Name = "Cursor2"
  4654. relation
  4655. relation
  4656.     Relation1
  4657. Dataenvironment
  4658. ParentAlias = "Employee"
  4659. RelationalExpr = "group_id"
  4660. ChildAlias = "User_Level"
  4661. ChildOrder = "group_id"
  4662. Name = "Relation1"
  4663. tsmaintform
  4664. ..\libs\tsbase.vcx
  4665. frmemployee
  4666. DataSession = 2
  4667. ScaleMode = 3
  4668. Top = 3
  4669. Left = 34
  4670. Height = 321
  4671. Width = 556
  4672. DoCreate = .T.
  4673. AutoCenter = .F.
  4674. BorderStyle = 2
  4675. Caption = "Employees"
  4676. Icon = ..\bitmaps\emply.ico
  4677. Name = "frmemployee"
  4678. pageframe1.ErasePage = .T.
  4679. pageframe1.PageCount = 3
  4680. pageframe1.page1.Name = "page1"
  4681. pageframe1.page2.grdlist.ColumnCount = 14
  4682. pageframe1.page2.grdlist.Column1.FontBold = .F.
  4683. pageframe1.page2.grdlist.Column1.FontSize = 8
  4684. pageframe1.page2.grdlist.Column1.ColumnOrder = 1
  4685. pageframe1.page2.grdlist.Column1.ControlSource = "Employee.last_name"
  4686. pageframe1.page2.grdlist.Column1.Width = 140
  4687. pageframe1.page2.grdlist.Column1.Name = "grcLastName"
  4688. pageframe1.page2.grdlist.Column2.FontBold = .F.
  4689. pageframe1.page2.grdlist.Column2.FontSize = 8
  4690. pageframe1.page2.grdlist.Column2.ColumnOrder = 3
  4691. pageframe1.page2.grdlist.Column2.ControlSource = "Employee.title"
  4692. pageframe1.page2.grdlist.Column2.Width = 129
  4693. pageframe1.page2.grdlist.Column2.Name = "grcTitle"
  4694. pageframe1.page2.grdlist.Column3.FontBold = .F.
  4695. pageframe1.page2.grdlist.Column3.FontSize = 8
  4696. pageframe1.page2.grdlist.Column3.ColumnOrder = 4
  4697. pageframe1.page2.grdlist.Column3.ControlSource = "Employee.address"
  4698. pageframe1.page2.grdlist.Column3.Width = 135
  4699. pageframe1.page2.grdlist.Column3.Name = "grcAddress"
  4700. pageframe1.page2.grdlist.Column4.FontBold = .F.
  4701. pageframe1.page2.grdlist.Column4.FontSize = 8
  4702. pageframe1.page2.grdlist.Column4.ColumnOrder = 5
  4703. pageframe1.page2.grdlist.Column4.ControlSource = "Employee.city"
  4704. pageframe1.page2.grdlist.Column4.Width = 125
  4705. pageframe1.page2.grdlist.Column4.Name = "grcCity"
  4706. pageframe1.page2.grdlist.Column5.FontBold = .F.
  4707. pageframe1.page2.grdlist.Column5.FontSize = 8
  4708. pageframe1.page2.grdlist.Column5.ColumnOrder = 2
  4709. pageframe1.page2.grdlist.Column5.ControlSource = "Employee.first_name"
  4710. pageframe1.page2.grdlist.Column5.Width = 123
  4711. pageframe1.page2.grdlist.Column5.Name = "grcFirstName"
  4712. pageframe1.page2.grdlist.Column6.FontBold = .F.
  4713. pageframe1.page2.grdlist.Column6.FontSize = 8
  4714. pageframe1.page2.grdlist.Column6.ControlSource = "Employee.birth_date"
  4715. pageframe1.page2.grdlist.Column6.Name = "grcBirthDate"
  4716. pageframe1.page2.grdlist.Column7.FontBold = .F.
  4717. pageframe1.page2.grdlist.Column7.FontSize = 8
  4718. pageframe1.page2.grdlist.Column7.ControlSource = "Employee.hire_date"
  4719. pageframe1.page2.grdlist.Column7.Name = "grcHireDate"
  4720. pageframe1.page2.grdlist.Column8.FontBold = .F.
  4721. pageframe1.page2.grdlist.Column8.FontSize = 8
  4722. pageframe1.page2.grdlist.Column8.ControlSource = "Employee.region"
  4723. pageframe1.page2.grdlist.Column8.Name = "grcRegion"
  4724. pageframe1.page2.grdlist.Column9.FontBold = .F.
  4725. pageframe1.page2.grdlist.Column9.FontSize = 8
  4726. pageframe1.page2.grdlist.Column9.ControlSource = "Employee.postal_code"
  4727. pageframe1.page2.grdlist.Column9.Name = "grcPostalCode"
  4728. pageframe1.page2.grdlist.Column10.FontBold = .F.
  4729. pageframe1.page2.grdlist.Column10.FontSize = 8
  4730. pageframe1.page2.grdlist.Column10.ControlSource = "Employee.country"
  4731. pageframe1.page2.grdlist.Column10.Name = "grcCountry"
  4732. pageframe1.page2.grdlist.Column11.FontBold = .F.
  4733. pageframe1.page2.grdlist.Column11.FontSize = 8
  4734. pageframe1.page2.grdlist.Column11.ControlSource = "Employee.home_phone"
  4735. pageframe1.page2.grdlist.Column11.Name = "grcHomePhone"
  4736. pageframe1.page2.grdlist.Column12.FontBold = .F.
  4737. pageframe1.page2.grdlist.Column12.FontSize = 8
  4738. pageframe1.page2.grdlist.Column12.ControlSource = "Employee.extension"
  4739. pageframe1.page2.grdlist.Column12.Name = "grcExtension"
  4740. pageframe1.page2.grdlist.Column13.FontBold = .F.
  4741. pageframe1.page2.grdlist.Column13.FontSize = 8
  4742. pageframe1.page2.grdlist.Column13.ControlSource = "Employee.password"
  4743. pageframe1.page2.grdlist.Column13.Name = "grcPassword"
  4744. pageframe1.page2.grdlist.Column14.FontBold = .F.
  4745. pageframe1.page2.grdlist.Column14.FontSize = 8
  4746. pageframe1.page2.grdlist.Column14.ControlSource = "User_Level.description"
  4747. pageframe1.page2.grdlist.Column14.Width = 165
  4748. pageframe1.page2.grdlist.Column14.Name = "grcUserLevel"
  4749. pageframe1.page2.grdlist.Height = 291
  4750. pageframe1.page2.grdlist.Left = 0
  4751. pageframe1.page2.grdlist.Panel = 1
  4752. pageframe1.page2.grdlist.TabIndex = 1
  4753. pageframe1.page2.grdlist.Top = 0
  4754. pageframe1.page2.grdlist.Width = 550
  4755. pageframe1.page2.grdlist.Name = "grdlist"
  4756. pageframe1.page2.Name = "page2"
  4757. pageframe1.Page3.FontSize = 8
  4758. pageframe1.Page3.Caption = "Additional \<Information"
  4759. pageframe1.Page3.Name = "Page3"
  4760. pageframe1.Top = 0
  4761. pageframe1.Left = 0
  4762. pageframe1.Width = 555
  4763. pageframe1.Height = 320
  4764. pageframe1.Name = "pageframe1"
  4765. PROCEDURE refreshform
  4766. LOCAL lcFile
  4767. IF FILE(employee.photo_file)
  4768.     lcFile = employee.photo_file
  4769.     lcFile = ''
  4770. ENDIF
  4771. this.pageframe1.page3.imgPhoto.Picture = lcFile
  4772. tsBaseForm::RefreshForm()
  4773. ENDPROC
  4774. PROCEDURE Destroy
  4775. tsMaintForm::Destroy()
  4776. IF USED("employee")
  4777.   SELECT employee
  4778.   SET RELATION TO
  4779. ENDIF
  4780. ENDPROC
  4781. PROCEDURE Refresh
  4782. LOCAL lcEmployeeID
  4783. lcEmployeeID = ""
  4784. IF TYPE("oApp") == "O"
  4785.   lcEmployeeID = oApp.GetEmployeeID()
  4786. ENDIF
  4787. *-- Do not allow deletion of employee who is currently
  4788. *-- logged in.
  4789. IF !EMPTY(lcEmployeeID) AND employee.employee_id = lcEmployeeID
  4790.   thisform.lAllowDelete = .F.
  4791.   thisform.lAllowDelete = .T.
  4792. ENDIF
  4793. ENDPROC
  4794. PROCEDURE addnew
  4795. tsMaintForm::AddNew()
  4796. thisform.pageframe1.page1.txtLast_Name.SetFocus()
  4797. ENDPROC
  4798. PROCEDURE Init
  4799. *-- (c) Microsoft Corporation 1995
  4800. tsBaseForm::Init()
  4801. this.aErrorMsg[DELETETRIG] = DELEMPLOYEE_LOC
  4802. this.aErrorMsg[INSERTTRIG] = INSEMPLOYEE_LOC
  4803. ENDPROC
  4804. PROCEDURE Error
  4805. LPARAMETERS nError, cMethod, nLine
  4806. LOCAL laError[AERRORARRAY], ;
  4807.       lcMessage
  4808. =AERROR(laError)
  4809. DO CASE
  4810.   CASE nError = 1582        && Field rule violated
  4811.     tsMaintForm::Error(nError, cMethod, nLine)
  4812.     DO CASE
  4813.       CASE UPPER(laError[3]) = "LAST_NAME"
  4814.         this.Pageframe1.Page1.txtLast_Name.SetFocus()
  4815.     ENDCASE
  4816.   OTHERWISE
  4817.     tsMaintForm::Error(nError, cMethod, nLine)
  4818. ENDCASE
  4819. ENDPROC
  4820. PROCEDURE pageframe1.Page3.Refresh
  4821. this.txtEmployeeName.Value = ALLT( Employee.first_name) + ;
  4822.                               " " +  Employee.last_name
  4823. ENDPROC
  4824. PROCEDURE pageframe1.Page3.Activate
  4825. LOCAL lcAlias
  4826. lcAlias = thisform.DataEnvironment.InitialSelectedAlias
  4827. IF !EMPTY(lcAlias)
  4828.   SELECT (lcAlias)
  4829. ENDIF
  4830. thisform.RefreshForm()
  4831. ENDPROC
  4832. ..\include\tastrade.h
  4833. ..\..\..\dev\foxpro.h
  4834. ..\include\strings.h
  4835. Select
  4836. LCFILENAME
  4837. CAPTION
  4838. THISFORM
  4839. PAGEFRAME1
  4840. PAGE3
  4841. IMGPHOTO
  4842. PICTURE
  4843. EMPLOYEE
  4844. PHOTO_FILE
  4845. REFRESHn
  4846. Add Picture
  4847. Change Picture
  4848. CAPTION
  4849. Click,
  4850. Refresh
  4851. cUserLevels
  4852. CUSERLEVELS
  4853. Destroy,
  4854. !Arial, 0, 8, 5, 14, 11, 20, 3, 0
  4855. PStretch = 2
  4856. Height = 216
  4857. Left = 22
  4858. Top = 74
  4859. Width = 205
  4860. Name = "imgPhoto"
  4861. frmemployee.pageframe1.Page3
  4862. imgPhoto
  4863. image
  4864. image
  4865. PROCEDURE Click
  4866. LOCAL lcFileName
  4867. lcFileName = GETFILE("BMP", ;
  4868.                     this.Caption, ;
  4869.                     SELECTBUTTON_LOC)
  4870. IF !EMPTY(lcFileName)
  4871.   thisform.pageframe1.page3.imgPhoto.Picture = lcFileName
  4872.   REPLACE employee.photo_file WITH lcFileName
  4873.   thisform.Refresh()
  4874. ENDIF
  4875. ENDPROC
  4876. PROCEDURE Refresh
  4877. IF "3" $ GETFLDSTATE(-1) OR "4" $ GETFLDSTATE(-1)
  4878.   this.Caption = ADDPICTURE_LOC
  4879.   this.Caption = CHANGEPICTURE_LOC
  4880. ENDIF
  4881. ENDPROC
  4882. nTop = 49
  4883. Left = 22
  4884. Height = 22
  4885. Width = 201
  4886. Caption = "Change Picture"
  4887. TabIndex = 2
  4888. Name = "cmdPicture"
  4889. frmemployee.pageframe1.Page3
  4890. cmdPicture
  4891. commandbutton
  4892. ..\libs\tsbase.vcx
  4893. tscommandbutton
  4894. frmemployee.pageframe1.Page3
  4895. txtEmployeeName
  4896. textbox
  4897. ..\libs\tsbase.vcx
  4898.     tstextbox
  4899. ..\libs\tsbase.vcx
  4900. textbox
  4901. txtLast_Name
  4902. frmemployee.pageframe1.page1
  4903. zControlSource = "Employee.last_name"
  4904. Height = 24
  4905. Left = 152
  4906. TabIndex = 1
  4907. Top = 6
  4908. Width = 291
  4909. Name = "txtLast_Name"
  4910. tslabel
  4911. ..\libs\tsbase.vcx
  4912. label
  4913. Tslabel1
  4914. frmemployee.pageframe1.page1
  4915. vAlignment = 1
  4916. Caption = "Last Name"
  4917. Height = 17
  4918. Left = 20
  4919. Top = 6
  4920. Width = 121
  4921. TabIndex = 13
  4922. Name = "Tslabel1"
  4923.     tstextbox
  4924. ..\libs\tsbase.vcx
  4925. textbox
  4926. txtFirst_Name
  4927. frmemployee.pageframe1.page1
  4928. }ControlSource = "Employee.first_name"
  4929. Height = 24
  4930. Left = 152
  4931. TabIndex = 2
  4932. Top = 34
  4933. Width = 186
  4934. Name = "txtFirst_Name"
  4935. tslabel
  4936. ..\libs\tsbase.vcx
  4937. label
  4938. Tslabel2
  4939. frmemployee.pageframe1.page1
  4940. xAlignment = 1
  4941. Caption = "First Name"
  4942. Height = 17
  4943. Left = 20
  4944. Top = 34
  4945. Width = 121
  4946. TabIndex = 16
  4947. Name = "Tslabel2"
  4948.     tstextbox
  4949. ..\libs\tsbase.vcx
  4950. textbox
  4951. txtTitle
  4952. frmemployee.pageframe1.page1
  4953. sControlSource = "Employee.title"
  4954. Height = 24
  4955. Left = 152
  4956. TabIndex = 3
  4957. Top = 62
  4958. Width = 291
  4959. Name = "txtTitle"
  4960. tslabel
  4961. ..\libs\tsbase.vcx
  4962. label
  4963. Tslabel3
  4964. frmemployee.pageframe1.page1
  4965. sAlignment = 1
  4966. Caption = "Title"
  4967. Height = 17
  4968. Left = 20
  4969. Top = 62
  4970. Width = 121
  4971. TabIndex = 17
  4972. Name = "Tslabel3"
  4973.     tstextbox
  4974. ..\libs\tsbase.vcx
  4975. textbox
  4976. txtBirth_Date
  4977. frmemployee.pageframe1.page1
  4978. }ControlSource = "Employee.birth_date"
  4979. Height = 24
  4980. Left = 152
  4981. TabIndex = 4
  4982. Top = 90
  4983. Width = 104
  4984. Name = "txtBirth_Date"
  4985. tslabel
  4986. ..\libs\tsbase.vcx
  4987. label
  4988. Tslabel4
  4989. frmemployee.pageframe1.page1
  4990. xAlignment = 1
  4991. Caption = "Birth Date"
  4992. Height = 17
  4993. Left = 20
  4994. Top = 90
  4995. Width = 121
  4996. TabIndex = 18
  4997. Name = "Tslabel4"
  4998.     tstextbox
  4999. ..\libs\tsbase.vcx
  5000. textbox
  5001. hiredate
  5002. frmemployee.pageframe1.page1
  5003. xControlSource = "Employee.hire_date"
  5004. Height = 24
  5005. Left = 152
  5006. TabIndex = 5
  5007. Top = 118
  5008. Width = 104
  5009. Name = "hiredate"
  5010. tslabel
  5011. ..\libs\tsbase.vcx
  5012. label
  5013. Tslabel5
  5014. frmemployee.pageframe1.page1
  5015. xAlignment = 1
  5016. Caption = "Hire Date"
  5017. Height = 17
  5018. Left = 20
  5019. Top = 118
  5020. Width = 121
  5021. TabIndex = 19
  5022. Name = "Tslabel5"
  5023.     tstextbox
  5024. ..\libs\tsbase.vcx
  5025. textbox
  5026. txtAddress
  5027. frmemployee.pageframe1.page1
  5028. xControlSource = "Employee.address"
  5029. Height = 24
  5030. Left = 152
  5031. TabIndex = 6
  5032. Top = 146
  5033. Width = 376
  5034. Name = "txtAddress"
  5035. tslabel
  5036. ..\libs\tsbase.vcx
  5037. label
  5038. Tslabel6
  5039. frmemployee.pageframe1.page1
  5040. vAlignment = 1
  5041. Caption = "Address"
  5042. Height = 17
  5043. Left = 20
  5044. Top = 146
  5045. Width = 121
  5046. TabIndex = 20
  5047. Name = "Tslabel6"
  5048.     tstextbox
  5049. ..\libs\tsbase.vcx
  5050. textbox
  5051. txtCity
  5052. frmemployee.pageframe1.page1
  5053. rControlSource = "Employee.city"
  5054. Height = 24
  5055. Left = 152
  5056. TabIndex = 7
  5057. Top = 174
  5058. Width = 104
  5059. Name = "txtCity"
  5060. tslabel
  5061. ..\libs\tsbase.vcx
  5062. label
  5063. Tslabel7
  5064. frmemployee.pageframe1.page1
  5065. sAlignment = 1
  5066. Caption = "City"
  5067. Height = 17
  5068. Left = 20
  5069. Top = 174
  5070. Width = 121
  5071. TabIndex = 21
  5072. Name = "Tslabel7"
  5073.     tstextbox
  5074. ..\libs\tsbase.vcx
  5075. textbox
  5076.     txtRegion
  5077. frmemployee.pageframe1.page1
  5078. vControlSource = "Employee.region"
  5079. Height = 24
  5080. Left = 152
  5081. TabIndex = 8
  5082. Top = 202
  5083. Width = 104
  5084. Name = "txtRegion"
  5085. tslabel
  5086. ..\libs\tsbase.vcx
  5087. label
  5088. Tslabel8
  5089. frmemployee.pageframe1.page1
  5090. uAlignment = 1
  5091. Caption = "Region"
  5092. Height = 17
  5093. Left = 21
  5094. Top = 202
  5095. Width = 121
  5096. TabIndex = 22
  5097. Name = "Tslabel8"
  5098.     tstextbox
  5099. ..\libs\tsbase.vcx
  5100. textbox
  5101. txtPostal_Code
  5102. frmemployee.pageframe1.page1
  5103. ControlSource = "Employee.postal_code"
  5104. Height = 24
  5105. Left = 152
  5106. TabIndex = 9
  5107. Top = 230
  5108. Width = 104
  5109. Name = "txtPostal_Code"
  5110. tslabel
  5111. ..\libs\tsbase.vcx
  5112. label
  5113. Tslabel9
  5114. frmemployee.pageframe1.page1
  5115. zAlignment = 1
  5116. Caption = "Postal Code"
  5117. Height = 17
  5118. Left = 20
  5119. Top = 230
  5120. Width = 121
  5121. TabIndex = 23
  5122. Name = "Tslabel9"
  5123.     tstextbox
  5124. ..\libs\tsbase.vcx
  5125. textbox
  5126. txtCountry
  5127. frmemployee.pageframe1.page1
  5128. yControlSource = "Employee.country"
  5129. Height = 24
  5130. Left = 152
  5131. TabIndex = 10
  5132. Top = 258
  5133. Width = 104
  5134. Name = "txtCountry"
  5135. tslabel
  5136. ..\libs\tsbase.vcx
  5137. label
  5138.     Tslabel10
  5139. frmemployee.pageframe1.page1
  5140. wAlignment = 1
  5141. Caption = "Country"
  5142. Height = 17
  5143. Left = 20
  5144. Top = 258
  5145. Width = 121
  5146. TabIndex = 24
  5147. Name = "Tslabel10"
  5148.     tstextbox
  5149. ..\libs\tsbase.vcx
  5150. textbox
  5151. txtHome_Phone
  5152. frmemployee.pageframe1.page1
  5153. ControlSource = "Employee.home_phone"
  5154. Height = 24
  5155. Left = 423
  5156. TabIndex = 11
  5157. Top = 174
  5158. Width = 104
  5159. Name = "txtHome_Phone"
  5160. tslabel
  5161. ..\libs\tsbase.vcx
  5162. label
  5163.     Tslabel11
  5164. frmemployee.pageframe1.page1
  5165. {Alignment = 1
  5166. Caption = "Home Phone"
  5167. Height = 17
  5168. Left = 291
  5169. Top = 174
  5170. Width = 121
  5171. TabIndex = 25
  5172. Name = "Tslabel11"
  5173.     tstextbox
  5174. ..\libs\tsbase.vcx
  5175. textbox
  5176.     extension
  5177. frmemployee.pageframe1.page1
  5178. zControlSource = "Employee.extension"
  5179. Height = 24
  5180. Left = 423
  5181. TabIndex = 12
  5182. Top = 202
  5183. Width = 104
  5184. Name = "extension"
  5185. tslabel
  5186. ..\libs\tsbase.vcx
  5187. label
  5188.     Tslabel12
  5189. frmemployee.pageframe1.page1
  5190. zAlignment = 1
  5191. Caption = "Extension"
  5192. Height = 17
  5193. Left = 291
  5194. Top = 202
  5195. Width = 121
  5196. TabIndex = 26
  5197. Name = "Tslabel12"
  5198. tslabel
  5199. ..\libs\tsbase.vcx
  5200. label
  5201. lblGroup
  5202. frmemployee.pageframe1.page1
  5203. wAlignment = 0
  5204. Caption = "\<Group"
  5205. Height = 17
  5206. Left = 287
  5207. Top = 244
  5208. Width = 121
  5209. TabIndex = 14
  5210. Name = "lblGroup"
  5211. tscombobox
  5212. ..\libs\tsbase.vcx
  5213. combobox
  5214. cboGroup_ID
  5215. frmemployee.pageframe1.page1
  5216. BoundColumn = 2
  5217. RowSourceType = 3
  5218. RowSource = "select description, group_id from user_level order by description into cursor cUserLevels"
  5219. ControlSource = "Employee.group_id"
  5220. Left = 288
  5221. Style = 2
  5222. TabIndex = 15
  5223. Top = 258
  5224. Width = 241
  5225. Name = "cboGroup_ID"
  5226. QPROCEDURE Destroy
  5227. IF USED("cUserLevels")
  5228.   USE IN cUserLevels
  5229. ENDIF
  5230. ENDPROC
  5231. Value = (ALLTRIM( Employee.first_name) + " " +  Employee.last_name)
  5232. Enabled = .F.
  5233. Height = 22
  5234. Left = 21
  5235. ReadOnly = .T.
  5236. TabIndex = 4
  5237. Top = 22
  5238. Width = 481
  5239. Name = "txtEmployeeName"
  5240.     tstextbox
  5241. edtNotes
  5242. editbox
  5243. header
  5244. header
  5245. grhLastName
  5246. 0frmemployee.pageframe1.page2.grdlist.grcLastName
  5247. ZFontBold = .F.
  5248. FontSize = 8
  5249. Alignment = 2
  5250. Caption = "Last Name"
  5251. Name = "grhLastName"
  5252. textbox
  5253. textbox
  5254. Text1
  5255. 0frmemployee.pageframe1.page2.grdlist.grcLastName
  5256. jFontBold = .F.
  5257. FontSize = 8
  5258. BorderStyle = 0
  5259. Margin = 2
  5260. TabIndex = 1
  5261. ColorSource = 0
  5262. Name = "Text1"
  5263. header
  5264. header
  5265. grhTitle
  5266. -frmemployee.pageframe1.page2.grdlist.grcTitle
  5267. SFontBold = .F.
  5268. FontSize = 8
  5269. Alignment = 2
  5270. Caption = "Title"
  5271. Name = "grhTitle"
  5272. textbox
  5273. textbox
  5274. Text1
  5275. -frmemployee.pageframe1.page2.grdlist.grcTitle
  5276. jFontBold = .F.
  5277. FontSize = 8
  5278. BorderStyle = 0
  5279. Margin = 2
  5280. TabIndex = 1
  5281. ColorSource = 0
  5282. Name = "Text1"
  5283. header
  5284. header
  5285. grhAddress
  5286. /frmemployee.pageframe1.page2.grdlist.grcAddress
  5287. WFontBold = .F.
  5288. FontSize = 8
  5289. Alignment = 2
  5290. Caption = "Address"
  5291. Name = "grhAddress"
  5292. textbox
  5293. textbox
  5294. Text1
  5295. /frmemployee.pageframe1.page2.grdlist.grcAddress
  5296. jFontBold = .F.
  5297. FontSize = 8
  5298. BorderStyle = 0
  5299. Margin = 2
  5300. TabIndex = 1
  5301. ColorSource = 0
  5302. Name = "Text1"
  5303. header
  5304. header
  5305. grhCity
  5306. ,frmemployee.pageframe1.page2.grdlist.grcCity
  5307. QFontBold = .F.
  5308. FontSize = 8
  5309. Alignment = 2
  5310. Caption = "City"
  5311. Name = "grhCity"
  5312. textbox
  5313. textbox
  5314. Text1
  5315. ,frmemployee.pageframe1.page2.grdlist.grcCity
  5316. jFontBold = .F.
  5317. FontSize = 8
  5318. BorderStyle = 0
  5319. Margin = 2
  5320. TabIndex = 1
  5321. ColorSource = 0
  5322. Name = "Text1"
  5323. header
  5324. header
  5325. grhFirstName
  5326. 1frmemployee.pageframe1.page2.grdlist.grcFirstName
  5327. \FontBold = .F.
  5328. FontSize = 8
  5329. Alignment = 2
  5330. Caption = "First Name"
  5331. Name = "grhFirstName"
  5332. textbox
  5333. textbox
  5334. Text1
  5335. 1frmemployee.pageframe1.page2.grdlist.grcFirstName
  5336. \FontBold = .F.
  5337. FontSize = 8
  5338. BorderStyle = 0
  5339. Margin = 2
  5340. ColorSource = 0
  5341. Name = "Text1"
  5342. header
  5343. header
  5344. grhBirthDate
  5345. 1frmemployee.pageframe1.page2.grdlist.grcBirthDate
  5346. \FontBold = .F.
  5347. FontSize = 8
  5348. Alignment = 2
  5349. Caption = "Birth Date"
  5350. Name = "grhBirthDate"
  5351. textbox
  5352. textbox
  5353. Text1
  5354. 1frmemployee.pageframe1.page2.grdlist.grcBirthDate
  5355. \FontBold = .F.
  5356. FontSize = 8
  5357. BorderStyle = 0
  5358. Margin = 2
  5359. ColorSource = 0
  5360. Name = "Text1"
  5361. header
  5362. header
  5363. grhHireDate
  5364. 0frmemployee.pageframe1.page2.grdlist.grcHireDate
  5365. ZFontBold = .F.
  5366. FontSize = 8
  5367. Alignment = 2
  5368. Caption = "Hire Date"
  5369. Name = "grhHireDate"
  5370. textbox
  5371. textbox
  5372. Text1
  5373. 0frmemployee.pageframe1.page2.grdlist.grcHireDate
  5374. \FontBold = .F.
  5375. FontSize = 8
  5376. BorderStyle = 0
  5377. Margin = 2
  5378. ColorSource = 0
  5379. Name = "Text1"
  5380. header
  5381. header
  5382.     grhRegion
  5383. .frmemployee.pageframe1.page2.grdlist.grcRegion
  5384. UFontBold = .F.
  5385. FontSize = 8
  5386. Alignment = 2
  5387. Caption = "Region"
  5388. Name = "grhRegion"
  5389. textbox
  5390. textbox
  5391. Text1
  5392. .frmemployee.pageframe1.page2.grdlist.grcRegion
  5393. \FontBold = .F.
  5394. FontSize = 8
  5395. BorderStyle = 0
  5396. Margin = 2
  5397. ColorSource = 0
  5398. Name = "Text1"
  5399. header
  5400. header
  5401. grhPostalCode
  5402. 2frmemployee.pageframe1.page2.grdlist.grcPostalCode
  5403. ^FontBold = .F.
  5404. FontSize = 8
  5405. Alignment = 2
  5406. Caption = "Postal Code"
  5407. Name = "grhPostalCode"
  5408. textbox
  5409. textbox
  5410. Text1
  5411. 2frmemployee.pageframe1.page2.grdlist.grcPostalCode
  5412. \FontBold = .F.
  5413. FontSize = 8
  5414. BorderStyle = 0
  5415. Margin = 2
  5416. ColorSource = 0
  5417. Name = "Text1"
  5418. header
  5419. header
  5420. grhCountry
  5421. /frmemployee.pageframe1.page2.grdlist.grcCountry
  5422. WFontBold = .F.
  5423. FontSize = 8
  5424. Alignment = 2
  5425. Caption = "Country"
  5426. Name = "grhCountry"
  5427. textbox
  5428. textbox
  5429. Text1
  5430. /frmemployee.pageframe1.page2.grdlist.grcCountry
  5431. \FontBold = .F.
  5432. FontSize = 8
  5433. BorderStyle = 0
  5434. Margin = 2
  5435. ColorSource = 0
  5436. Name = "Text1"
  5437. header
  5438. header
  5439. grhHomePhone
  5440. 1frmemployee.pageframe1.page2.grdlist.grcHomePhone
  5441. \FontBold = .F.
  5442. FontSize = 8
  5443. Alignment = 2
  5444. Caption = "Home Phone"
  5445. Name = "grhHomePhone"
  5446. textbox
  5447. textbox
  5448. Text1
  5449. 1frmemployee.pageframe1.page2.grdlist.grcHomePhone
  5450. \FontBold = .F.
  5451. FontSize = 8
  5452. BorderStyle = 0
  5453. Margin = 2
  5454. ColorSource = 0
  5455. Name = "Text1"
  5456. header
  5457. header
  5458. grhExtension
  5459. 1frmemployee.pageframe1.page2.grdlist.grcExtension
  5460. [FontBold = .F.
  5461. FontSize = 8
  5462. Alignment = 2
  5463. Caption = "Extension"
  5464. Name = "grhExtension"
  5465. textbox
  5466. textbox
  5467. Text1
  5468. 1frmemployee.pageframe1.page2.grdlist.grcExtension
  5469. \FontBold = .F.
  5470. FontSize = 8
  5471. BorderStyle = 0
  5472. Margin = 2
  5473. ColorSource = 0
  5474. Name = "Text1"
  5475. header
  5476. header
  5477. grhPassword
  5478. 0frmemployee.pageframe1.page2.grdlist.grcPassword
  5479. YFontBold = .F.
  5480. FontSize = 8
  5481. Alignment = 2
  5482. Caption = "Password"
  5483. Name = "grhPassword"
  5484. textbox
  5485. textbox
  5486. Text1
  5487. 0frmemployee.pageframe1.page2.grdlist.grcPassword
  5488. \FontBold = .F.
  5489. FontSize = 8
  5490. BorderStyle = 0
  5491. Margin = 2
  5492. ColorSource = 0
  5493. Name = "Text1"
  5494. header
  5495. header
  5496. grhUserLevel
  5497. 1frmemployee.pageframe1.page2.grdlist.grcUserLevel
  5498. \FontBold = .F.
  5499. FontSize = 8
  5500. Alignment = 2
  5501. Caption = "User Level"
  5502. Name = "grhUserLevel"
  5503. textbox
  5504. textbox
  5505. Text1
  5506. 1frmemployee.pageframe1.page2.grdlist.grcUserLevel
  5507. \FontBold = .F.
  5508. FontSize = 8
  5509. BorderStyle = 0
  5510. Margin = 2
  5511. ColorSource = 0
  5512. Name = "Text1"
  5513.     tseditbox
  5514. ..\libs\tsbase.vcx
  5515. frmemployee.pageframe1.Page3
  5516. tHeight = 241
  5517. Left = 272
  5518. TabIndex = 1
  5519. Top = 49
  5520. Width = 229
  5521. ControlSource = "Employee.notes"
  5522. Name = "edtNotes"
  5523. LCFILE
  5524. EMPLOYEE
  5525. PHOTO_FILE
  5526. PAGEFRAME1
  5527. PAGE3
  5528. IMGPHOTO
  5529. PICTURE
  5530. TSBASEFORM
  5531. REFRESHFORM9
  5532. employee
  5533. TSMAINTFORM
  5534. DESTROY
  5535. EMPLOYEE
  5536. oAppb
  5537. LCEMPLOYEEID
  5538. GETEMPLOYEEID
  5539. EMPLOYEE
  5540. EMPLOYEE_ID
  5541. THISFORM
  5542. LALLOWDELETE'
  5543. TSMAINTFORM
  5544. ADDNEW
  5545. THISFORM
  5546. PAGEFRAME1
  5547. PAGE1
  5548. TXTLAST_NAME
  5549. SETFOCUS
  5550. Employee exists on orders. Cannot delete!
  5551. All employees must be assigned to a group.
  5552. TSBASEFORM
  5553. THIS    
  5554. AERRORMSG
  5555. LAST_NAME
  5556. NERROR
  5557. CMETHOD
  5558. NLINE
  5559. LAERROR    
  5560. LCMESSAGE
  5561. TSMAINTFORM
  5562. ERROR
  5563. PAGEFRAME1
  5564. PAGE1
  5565. TXTLAST_NAME
  5566. SETFOCUS'
  5567. TXTEMPLOYEENAME
  5568. VALUE
  5569. EMPLOYEE
  5570. FIRST_NAME    
  5571. LAST_NAMEH
  5572. LCALIAS
  5573. THISFORM
  5574. DATAENVIRONMENT
  5575. INITIALSELECTEDALIAS
  5576. REFRESHFORM
  5577. refreshform,
  5578. Destroy
  5579. Refresh\
  5580. addnew<
  5581. Errorh
  5582. pageframe1.Page3.Refresh
  5583. pageframe1.Page3.Activate
  5584. PLATFORM
  5585. UNIQUEID
  5586. TIMESTAMP
  5587. CLASS
  5588. CLASSLOC
  5589. BASECLASS
  5590. OBJNAME
  5591. PARENT
  5592. PROPERTIES
  5593. PROTECTED
  5594. METHODS
  5595. OBJCODE
  5596. RESERVED1
  5597. RESERVED2
  5598. RESERVED3
  5599. RESERVED4
  5600. RESERVED5
  5601. RESERVED6
  5602. RESERVED7
  5603. RESERVED8
  5604.  COMMENT Screen              
  5605.  WINDOWS _R480MIS70 5523557065
  5606.  WINDOWS _R480MIS7A 552753709
  5607.  WINDOWS _QV00IKJGH 552753709
  5608.  WINDOWS _QV00IKJKE 507342601m
  5609.  WINDOWS _QV00IKJL8 507342601O
  5610.  WINDOWS _QV40YVDBD 5073426019
  5611.  WINDOWS _QV80RCAW5 5120011009
  5612.  WINDOWS _QXW0OI1M2 5246449474
  5613.  WINDOWS _R440UXRPU 524645275
  5614.  WINDOWS _QY30OIGRU 512120939
  5615.  WINDOWS _QY30OIGS4 512120939>
  5616.  WINDOWS _QY30OIGT8 512120939n
  5617.  WINDOWS _QY30OIGTI 512120939
  5618.  COMMENT RESERVED            
  5619. VERSION =   3.00
  5620. ..\include\tastrade.h
  5621. dataenvironment
  5622. dataenvironment
  5623. Dataenvironment
  5624. Left = 59
  5625. Top = 398
  5626. Width = 263
  5627. Height = 268
  5628. AutoCloseTables = .F.
  5629. InitialSelectedAlias = "Category"
  5630. Name = "Dataenvironment"
  5631. cursor
  5632. cursor
  5633. Cursor1
  5634. Dataenvironment
  5635. Left = 20
  5636. Top = 10
  5637. Width = 193
  5638. Height = 193
  5639. Alias = "Category"
  5640. Order = "category_n"
  5641. Database = ..\data\tastrade.dbc
  5642. CursorSource = "Category"
  5643. Name = "Cursor1"
  5644. tsmaintform
  5645. ..\libs\tsbase.vcx
  5646. frmcategory
  5647. DataSession = 2
  5648. ScaleMode = 3
  5649. Top = 7
  5650. Left = 10
  5651. Height = 250
  5652. Width = 456
  5653. DoCreate = .T.
  5654. AutoCenter = .F.
  5655. Caption = "Categories"
  5656. Icon = ..\bitmaps\catgry.ico
  5657. Name = "frmcategory"
  5658. pageframe1.ErasePage = .T.
  5659. pageframe1.page1.Name = "page1"
  5660. pageframe1.page2.grdlist.ColumnCount = 2
  5661. pageframe1.page2.grdlist.Column1.FontBold = .F.
  5662. pageframe1.page2.grdlist.Column1.FontSize = 8
  5663. pageframe1.page2.grdlist.Column1.ControlSource = "Category.category_name"
  5664. pageframe1.page2.grdlist.Column1.Width = 181
  5665. pageframe1.page2.grdlist.Column1.Name = "grcName"
  5666. pageframe1.page2.grdlist.Column2.FontBold = .F.
  5667. pageframe1.page2.grdlist.Column2.FontSize = 8
  5668. pageframe1.page2.grdlist.Column2.ControlSource = "LEFT(Category.description, 60)"
  5669. pageframe1.page2.grdlist.Column2.Width = 248
  5670. pageframe1.page2.grdlist.Column2.Name = "grcDescription"
  5671. pageframe1.page2.grdlist.Height = 220
  5672. pageframe1.page2.grdlist.Left = 0
  5673. pageframe1.page2.grdlist.Panel = 1
  5674. pageframe1.page2.grdlist.ScrollBars = 2
  5675. pageframe1.page2.grdlist.TabIndex = 1
  5676. pageframe1.page2.grdlist.Top = 0
  5677. pageframe1.page2.grdlist.Width = 450
  5678. pageframe1.page2.grdlist.Name = "grdlist"
  5679. pageframe1.page2.Name = "page2"
  5680. pageframe1.Top = 0
  5681. pageframe1.Left = 0
  5682. pageframe1.Width = 455
  5683. pageframe1.Height = 249
  5684. pageframe1.Name = "pageframe1"
  5685. PROCEDURE addnew
  5686. *-- (c) Microsoft Corporation 1995
  5687. tsMaintForm::AddNew()
  5688. this.pageframe1.page1.txtCategory_Name.SetFocus()
  5689. ENDPROC
  5690. PROCEDURE Init
  5691. tsBaseForm::Init()
  5692. this.aErrorMsg[DELETETRIG] = DELCATEGORY_LOC
  5693. ENDPROC
  5694. PROCEDURE Error
  5695. LPARAMETERS nError, cMethod, nLine
  5696. LOCAL laError[AERRORARRAY], ;
  5697.       lcMessage
  5698. =AERROR(laError)
  5699. DO CASE
  5700.   CASE nError = 1582        && Field rule violated
  5701.     tsMaintForm::Error(nError, cMethod, nLine)
  5702.     DO CASE
  5703.       CASE UPPER(laError[3]) = "CATEGORY_NAME"
  5704.         this.Pageframe1.Page1.txtCategory_Name.SetFocus()
  5705.     ENDCASE
  5706.   OTHERWISE
  5707.     tsMaintForm::Error(nError, cMethod, nLine)
  5708. ENDCASE
  5709. ENDPROC
  5710. PROCEDURE refreshform
  5711. LOCAL lcFile
  5712. IF FILE(category.picture_file)
  5713.     lcFile = category.picture_file
  5714.     lcFile = ''
  5715. ENDIF
  5716. this.pageframe1.page1.imgPicture.Picture = lcFile
  5717. tsBaseForm::RefreshForm()
  5718. ENDPROC
  5719. ..\include\tastrade.h
  5720. ..\..\..\dev\foxpro.h
  5721. ..\include\strings.h
  5722. Select
  5723. LCFILENAME
  5724. CAPTION
  5725. THISFORM
  5726. PAGEFRAME1
  5727. PAGE1
  5728. IMGPICTURE
  5729. PICTURE
  5730. CATEGORY
  5731. PICTURE_FILE
  5732. REFRESH
  5733. category
  5734. category
  5735. Add Picture
  5736. Change Picture
  5737. CAPTION
  5738. Click,
  5739. Refresh
  5740. BArial, 0, 8, 5, 14, 11, 20, 3, 0
  5741. Arial, 1, 8, 5, 14, 11, 14, 3, 0
  5742. jFontBold = .F.
  5743. FontSize = 8
  5744. BorderStyle = 0
  5745. Margin = 2
  5746. TabIndex = 1
  5747. ColorSource = 0
  5748. Name = "Text1"
  5749. 3frmcategory.pageframe1.page2.grdlist.grcDescription
  5750. Text1
  5751. textbox
  5752. textbox
  5753. _FontBold = .F.
  5754. FontSize = 8
  5755. Alignment = 2
  5756. Caption = "Description"
  5757. Name = "grhDescription"
  5758. grhDescription
  5759. tslabel
  5760. ..\libs\tsbase.vcx
  5761. label
  5762. Tslabel1
  5763. frmcategory.pageframe1.page1
  5764. pAlignment = 0
  5765. Caption = "Name"
  5766. Height = 17
  5767. Left = 57
  5768. Top = 9
  5769. Width = 121
  5770. TabIndex = 1
  5771. Name = "Tslabel1"
  5772. tslabel
  5773. ..\libs\tsbase.vcx
  5774. label
  5775. Tslabel2
  5776. frmcategory.pageframe1.page1
  5777. xAlignment = 0
  5778. Caption = "Description"
  5779. Height = 17
  5780. Left = 57
  5781. Top = 54
  5782. Width = 121
  5783. TabIndex = 2
  5784. Name = "Tslabel2"
  5785.     tstextbox
  5786. ..\libs\tsbase.vcx
  5787. textbox
  5788. txtCategory_Name
  5789. frmcategory.pageframe1.page1
  5790. ControlSource = "Category.category_name"
  5791. Height = 22
  5792. Left = 57
  5793. TabIndex = 1
  5794. Top = 24
  5795. Width = 196
  5796. Name = "txtCategory_Name"
  5797.     tseditbox
  5798. ..\libs\tsbase.vcx
  5799. editbox
  5800. edtDescription
  5801. frmcategory.pageframe1.page1
  5802. Height = 133
  5803. Left = 57
  5804. TabIndex = 2
  5805. Top = 69
  5806. Width = 196
  5807. ControlSource = "Category.description"
  5808. Name = "edtDescription"
  5809. tscommandbutton
  5810. ..\libs\tsbase.vcx
  5811. commandbutton
  5812. cmdPicture
  5813. frmcategory.pageframe1.page1
  5814. oTop = 24
  5815. Left = 267
  5816. Height = 22
  5817. Width = 146
  5818. Caption = "Change Picture"
  5819. TabIndex = 3
  5820. Name = "cmdPicture"
  5821. PROCEDURE Click
  5822. LOCAL lcFileName
  5823. lcFileName = GETFILE("BMP", ;
  5824.                     this.Caption, ;
  5825.                     SELECTBUTTON_LOC)
  5826. IF !EMPTY(lcFileName)
  5827.   thisform.pageframe1.page1.imgPicture.Picture = lcFileName
  5828.   REPLACE category.picture_file WITH lcFileName
  5829.   thisform.Refresh()
  5830. ENDIF
  5831. ENDPROC
  5832. PROCEDURE Refresh
  5833. IF "3" $ GETFLDSTATE(-1, "category") OR "4" $ GETFLDSTATE(-1, "category")
  5834.   this.Caption = ADDPICTURE_LOC
  5835.   this.Caption = CHANGEPICTURE_LOC
  5836. ENDIF
  5837. ENDPROC
  5838. 3frmcategory.pageframe1.page2.grdlist.grcDescription
  5839. header
  5840. header
  5841. jFontBold = .F.
  5842. FontSize = 8
  5843. BorderStyle = 0
  5844. Margin = 2
  5845. TabIndex = 1
  5846. ColorSource = 0
  5847. Name = "Text1"
  5848. ,frmcategory.pageframe1.page2.grdlist.grcName
  5849. Text1
  5850. textbox
  5851. textbox
  5852. QFontBold = .F.
  5853. FontSize = 8
  5854. Alignment = 2
  5855. Caption = "Name"
  5856. Name = "grhName"
  5857. ,frmcategory.pageframe1.page2.grdlist.grcName
  5858. grhName
  5859. header
  5860. header
  5861. SStretch = 2
  5862. Height = 136
  5863. Left = 267
  5864. Top = 69
  5865. Width = 146
  5866. Name = "imgPicture"
  5867. frmcategory.pageframe1.page1
  5868. image
  5869. image
  5870. imgPicture
  5871. TSMAINTFORM
  5872. ADDNEW
  5873. PAGEFRAME1
  5874. PAGE1
  5875. TXTCATEGORY_NAME
  5876. SETFOCUSW
  5877. Products belong to this category. Cannot delete!
  5878. TSBASEFORM
  5879. THIS    
  5880. AERRORMSG
  5881. CATEGORY_NAME
  5882. NERROR
  5883. CMETHOD
  5884. NLINE
  5885. LAERROR    
  5886. LCMESSAGE
  5887. TSMAINTFORM
  5888. ERROR
  5889. PAGEFRAME1
  5890. PAGE1
  5891. TXTCATEGORY_NAME
  5892. SETFOCUSl
  5893. LCFILE
  5894. CATEGORY
  5895. PICTURE_FILE
  5896. PAGEFRAME1
  5897. PAGE1
  5898. IMGPICTURE
  5899. PICTURE
  5900. TSBASEFORM
  5901. REFRESHFORM
  5902. addnew,
  5903. Error
  5904. refreshforms
  5905. GetPrivateProfileString
  5906. Win32APIQ
  5907. GetPrivStr
  5908. WritePrivateProfileString
  5909. Win32APIQ
  5910. WritePrivStr
  5911. RegOpenKeyEx
  5912. Win32API
  5913. RegQueryValueEx
  5914. Win32API
  5915. RegCloseKey
  5916. Win32API
  5917. GetProfileString
  5918. Win32APIQ
  5919. GetProStr
  5920. Project Manager
  5921. TALKv
  5922. ESCAPEv
  5923. PATHv
  5924. CLASSLIBv
  5925. TasTrade
  5926. oAppb
  5927. GETPRIVATEPROFILESTRING
  5928. WIN32API
  5929. GETPRIVSTR
  5930. WRITEPRIVATEPROFILESTRING
  5931. WRITEPRIVSTR
  5932. REGOPENKEYEX
  5933. REGQUERYVALUEEX
  5934. REGCLOSEKEY
  5935. GETPROFILESTRING    
  5936. GETPROSTR    
  5937. GCOLDTALK
  5938. GCOLDDIR    
  5939. GCOLDPATH
  5940. GCOLDCLASSLIB
  5941. GCOLDESCAPE
  5942. GTTRADE
  5943. SETPATH
  5944. PROGS, FORMS, LIBS,  MENUS, DATA, OTHER,  REPORTS, INCLUDE, HELP,  BITMAPS
  5945. TSGEN
  5946. LCSYS16    
  5947. LCPROGRAM
  5948. PROGS
  5949. TSGEN
  5950. SetPath
  5951. \<File
  5952. Create, save, delete, and restore records, close forms, print reports, or quit Tastrade
  5953. ALT+F
  5954. ALT+F
  5955. \<Edit
  5956. Edits text or current selection
  5957. ALT+E
  5958. ALT+E
  5959. \<Orders
  5960. Access to Order Entry and Order History forms
  5961. ALT+O
  5962. ALT+O
  5963. \<Administration
  5964. Login, change password, and access to all maintenance forms
  5965. ALT+A
  5966. ALT+A
  5967. \<Utilities
  5968. Trace, debug, and view windows, suspend, resume, and cancel programs
  5969. ALT+U
  5970. ALT+U
  5971. \<Help
  5972. Displays help on Tastrade
  5973. ALT+H
  5974. ALT+H
  5975. \<New
  5976. Creates a new record in the active form
  5977. cmdNew
  5978. CTRL+N
  5979. Ctrl+N
  5980. \<Close
  5981. Closes the active form
  5982. cmdClose
  5983. \<Save
  5984. Saves the current record in the active form
  5985. cmdSave
  5986. CTRL+S
  5987. Ctrl+S
  5988. \<Restore
  5989. Restores the original values of the current record in the active form
  5990. cmdRestore
  5991. CTRL+E
  5992. Ctrl+E
  5993. \<Delete
  5994. Deletes the current record in the active form
  5995. oApp.oToolBarb
  5996. \<Print Reports ...
  5997. Runs the report and list selection form
  5998. CTRL+P
  5999. Ctrl+P
  6000. Print Set\<up
  6001. Changes the page layout and printer settings
  6002. Return to Visual Fo\<xPro
  6003. oApp.oToolbar.cmdNew.Click()
  6004. oApp.oToolbar.cmdClose.Click()
  6005. oApp.oToolbar.cmdSave.Click()
  6006. oApp.oToolbar.cmdRestore.Click()
  6007. _screen.activeform.delete()
  6008. DO FORM Reports
  6009. DO _rcn0i47db  IN LOCFILE("XPIECES\TASTRADE\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
  6010. DO _rcn0i47dl  IN LOCFILE("XPIECES\TASTRADE\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
  6011. \<Undo
  6012. Undoes the last change made to the current control of the active form
  6013. CTRL+Z
  6014. Ctrl+Z
  6015. \<Redo
  6016. Repeats the last change made to the current control of the active form
  6017. CTRL+R
  6018. Ctrl+R
  6019. Cu\<t
  6020. Removes the selection and places it onto the clipboard
  6021. CTRL+X
  6022. Ctrl+X
  6023. \<Copy
  6024. Copies the selection onto the clipboard
  6025. CTRL+C
  6026. Ctrl+C
  6027. \<Paste
  6028. Pastes the contents of the clipboard
  6029. CTRL+V
  6030. Ctrl+V
  6031. Select \<All
  6032. Selects all text in the current control of the active form
  6033. CTRL+A
  6034. Ctrl+A
  6035. Order \<Entry
  6036. Runs the Order Entry form
  6037. frmOrderEntry
  6038. Order \<History
  6039. Runs the Order History form
  6040. oApp.DoForm("ordentry")
  6041. oApp.DoForm("ordhist")
  6042. \<Login
  6043. Log in as another user
  6044. C\<hange Password
  6045. Changes the password for the current user
  6046. \<Customers
  6047. Add, edit, or delete customers
  6048. frmCustomers
  6049. C\<ategories
  6050. Add, edit, or delete categories
  6051. frmCategory
  6052. \<Employees
  6053. Add, edit, or delete employees
  6054. frmEmployee
  6055. \<Shippers
  6056. Add, edit, or delete shippers
  6057. frmShippers
  6058. S\<uppliers
  6059. Add, edit, or delete suppliers
  6060. frmSuppliers
  6061. \<Products
  6062. Add, edit, or delete products
  6063. frmProducts
  6064. \<Behind the Scenes
  6065. Find out how this application was created
  6066. frmBehindSC
  6067. DO _rcn0i47gd  IN LOCFILE("XPIECES\TASTRADE\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
  6068. DO FORM chngpswd
  6069. oApp.DoForm("customer")
  6070. oApp.DoForm("category")
  6071. oApp.DoForm("employee")
  6072. oApp.DoForm("shipper")
  6073. oApp.DoForm("supplier")
  6074. oApp.DoForm("product")
  6075. oApp.DoForm("behindsc")
  6076. \<Trace
  6077. Displays the trace window
  6078. De\<bug
  6079. Displays the debug window
  6080. \<View
  6081. Displays the view window
  6082. \<Command
  6083. Displays the command window
  6084. CTRL+F2
  6085. Ctrl+F2
  6086. \<Suspend
  6087. Suspends the currently running program
  6088. \<Resume
  6089. Resumes running the current suspended program
  6090. C\<ancel
  6091. Stops running the current program
  6092. Rebuild \<DBC/Reindex
  6093. Rebuilds the database and reindexes all tables
  6094. suspend
  6095. DO FORM rebuild
  6096. \<Contents
  6097. Displays Help table of contents
  6098. \<Search for Help on...
  6099. Searches for Help topics by keyword
  6100. \<About Tasmanian Traders...
  6101. Displays information about this application and the system configuration
  6102. DO _rcn0i47iw  IN LOCFILE("XPIECES\TASTRADE\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
  6103. *-- (c) Microsoft Corporation 1995
  6104. APPLICATIONS DEVELOPER
  6105. APPLICATIONS DEVELOPER
  6106. OPERATIONS MANAGER
  6107. Administration
  6108. Administration
  6109. Administration
  6110. ORDERS    
  6111. UTILITIES
  6112. _QX713DAX1
  6113. _QX713DSUS
  6114. FORMISOBJECT
  6115. TOOLBARENABLED
  6116. ACTIVEFORM
  6117. LALLOWDELETE
  6118. GETUSERLEVELL
  6119. ERROR
  6120. ON ERROR &lcOldError
  6121. LCOLDERROR
  6122. LCUSERLEVEL
  6123. GETUSERLEVEL
  6124. LOGIN
  6125. DOMENU
  6126. about
  6127. AboutBox
  6128. Tasmanian Traders
  6129. Copyright 1996 Microsoft Corporation
  6130. All rights reserved
  6131. BITMAPS\TTRADESM.BMP
  6132. about.vcx
  6133. LOABOUTBOX
  6134. ABOUT
  6135. _rcn0i47db~
  6136. _rcn0i47dl
  6137. _rcn0i47gd
  6138. _rcn0i47iwh
  6139. TCTAGNAME
  6140. TCALIAS
  6141. LLISTAG
  6142. LCTAGFOUND
  6143. LNTAGNUM(
  6144. Under Construction
  6145. COMPATIBLEv
  6146. SET COMPATIBLE &lcSetCompatible
  6147. TCFILENAME
  6148. LCSETCOMPATIBLE
  6149. LNFILESIZE<
  6150. _screen.activeformb
  6151. ACTIVEFORM    
  6152. BASECLASSn
  6153. oApp.oToolBar.
  6154. .enabled
  6155. OOBJECT
  6156. OTOOLOBJY
  6157. Cannot quit Visual FoxPro within Tasmanian Traders.
  6158. Tasmanian Traders
  6159. IsTag,
  6160. NotYetZ
  6161. FileSize
  6162. FormIsObject"
  6163. ToolBarEnabledy
  6164. OnShutdown
  6165. PLATFORM
  6166. UNIQUEID
  6167. TIMESTAMP
  6168. CLASS
  6169. CLASSLOC
  6170. BASECLASS
  6171. OBJNAME
  6172. PARENT
  6173. PROPERTIES
  6174. PROTECTED
  6175. METHODS
  6176. OBJCODE
  6177. RESERVED1
  6178. RESERVED2
  6179. RESERVED3
  6180. RESERVED4
  6181. RESERVED5
  6182. RESERVED6
  6183. RESERVED7
  6184. RESERVED8
  6185.  COMMENT Class              0
  6186.  WINDOWS _R4J0W1JF3 552290344
  6187.  WINDOWS _R4J0W1ISA 547513216?
  6188.  WINDOWS _R4J0W1IVC 547513216T
  6189.  WINDOWS _R4J0W1IYO 547513216f
  6190.  WINDOWS _R4J0W1J2K 552290344
  6191.  WINDOWS _R4J0W1J52 552290344
  6192.  WINDOWS _R4J0W1J7U 552290344
  6193.  WINDOWS _R4J0W1JAC 547513216
  6194.  WINDOWS _R4J0W1JD5 552290344
  6195.  COMMENT RESERVED            
  6196.  WINDOWS _QZ90UO74C 552372025
  6197.  WINDOWS _QZ90UO4ZA 552290444r
  6198.  WINDOWS _QZ90UO5NH 552290444_
  6199.  WINDOWS _QZ90UO6C8 552372025Q
  6200.  WINDOWS _QZ90UO6DD 552372025I
  6201.  WINDOWS _QZ90UO6EH 512389715+
  6202.  WINDOWS _QZ90UO6FL 552290444$
  6203.  COMMENT RESERVED            
  6204. VERSION =  0.029
  6205. ..\include\tastrade.h
  6206. ..\..\..\dev\foxpro.h
  6207. ..\include\strings.h
  6208. BArial, 0, 8, 5, 14, 11, 20, 3, 0
  6209. Arial, 1, 8, 5, 14, 11, 14, 3, 0
  6210. login
  6211. ..\include\tastrade.h
  6212. Pixels
  6213. h:\allisonk\sampapp\login_s.bmp
  6214. ..\bitmaps\login_s.bmp
  6215. 8Base login container. Allows entry of name and password.
  6216. Class
  6217. tsformretval
  6218. login
  6219. THISFORM
  6220. REFRESH
  6221. InteractiveChange,
  6222. :PROCEDURE InteractiveChange
  6223. thisform.Refresh()
  6224. ENDPROC
  6225. FontSize = 8
  6226. BoundColumn = 2
  6227. RowSourceType = 3
  6228. RowSource = ""
  6229. Height = 21
  6230. Left = 100
  6231. Style = 2
  6232. TabIndex = 1
  6233. Top = 15
  6234. Width = 106
  6235. Name = "cboName"
  6236. login.
  6237. cboName
  6238. combobox
  6239. tsbase.vcx
  6240. tscombobox
  6241. uFormat = "K"
  6242. Height = 24
  6243. Left = 99
  6244. TabIndex = 2
  6245. Top = 46
  6246. Width = 104
  6247. PasswordChar = "*"
  6248. Name = "txtPassword"
  6249. login.
  6250. txtPassword
  6251. textbox
  6252. tsbase.vcx
  6253.     tstextbox
  6254. THISFORM
  6255. URETVAL
  6256. Click,
  6257. Password is invalid. (See Hint textbox)
  6258. PARENT    
  6259. CPASSWORD
  6260. TXTPASSWORD
  6261. VALUE
  6262. THISFORM
  6263. SETFOCUS
  6264. Click,
  6265.     login.vcx
  6266. DataSession = 2
  6267. ScaleMode = 3
  6268. Height = 131
  6269. Width = 224
  6270. DoCreate = .T.
  6271. Caption = "Login"
  6272. HelpContextID = 10
  6273. cpassword = password
  6274. ctable = employee
  6275. ctagname = employee_i
  6276. cfieldname = last_name, employee_id
  6277. Name = "login"
  6278. M*getuserlevel Returns the user level description from the user_level table.
  6279.     tstextbox
  6280. tsbase.vcx
  6281. textbox
  6282. FontBold = .T.
  6283. Alignment = 1
  6284. Caption = "Password"
  6285. Height = 17
  6286. Left = 9
  6287. Top = 46
  6288. Width = 87
  6289. TabIndex = 6
  6290. BackColor = 192,192,192
  6291. Name = "lblPswd"
  6292. login.
  6293. lblPswd
  6294. label
  6295. tsbase.vcx
  6296. tslabel
  6297. Alignment = 1
  6298. Caption = "Name"
  6299. Height = 17
  6300. Left = 9
  6301. Top = 15
  6302. Width = 87
  6303. TabIndex = 5
  6304. BackColor = 192,192,192
  6305. Name = "lblName"
  6306. login.
  6307. lblName
  6308. label
  6309. tsbase.vcx
  6310. tslabel
  6311. txtTitle
  6312. loginpicture.
  6313.     tseditbox
  6314. tsbase.vcx
  6315. EPROCEDURE Click
  6316. thisform.uRetVal = .F.
  6317. thisform.Hide()
  6318. ENDPROC
  6319. Top = 90
  6320. Left = 130
  6321. Height = 26
  6322. Width = 56
  6323. Cancel = .T.
  6324. Caption = "Cancel"
  6325. Enabled = .T.
  6326. TabIndex = 4
  6327. Name = "cmdCancel"
  6328. login.
  6329.     cmdCancel
  6330. commandbutton
  6331. tsbase.vcx
  6332. tscommandbutton
  6333. Enabled = .F.
  6334. Height = 22
  6335. Left = 245
  6336. TabIndex = 3
  6337. Top = 120
  6338. Width = 175
  6339. DisabledBackColor = 255,255,255
  6340. Name = "txtTitle"
  6341. editbox
  6342. edtDescription
  6343. loginpicture.
  6344.     tstextbox
  6345. +PROCEDURE Click
  6346. *-- Now check the password
  6347. IF ALLTRIM(EVAL(this.parent.cPassword)) == ALLTRIM(this.parent.txtPassword.Value)
  6348.   thisform.Hide()
  6349.   =MESSAGEBOX(BADPASSWORD_LOC, MB_ICONEXCLAMATION)
  6350.   this.parent.txtPassword.Value = ""
  6351.   this.parent.txtPassword.SetFocus()
  6352. ENDIF
  6353. ENDPROC
  6354. kTop = 90
  6355. Left = 50
  6356. Height = 26
  6357. Width = 56
  6358. Caption = "OK"
  6359. Default = .T.
  6360. TabIndex = 3
  6361. Name = "cmdOk"
  6362. login.
  6363. cmdOk
  6364. commandbutton
  6365. tsbase.vcx
  6366. tscommandbutton
  6367. cpassword Name of field that hold user password.
  6368. ctable Name of table that hold user information. 
  6369. ctagname Tag name used to search the employee table for the user name. 
  6370. cfieldname Name of field that holds user name.
  6371. employee_id
  6372. =LOOKUP(&lcFldName, lcUserID,   &lcFldName, thisform.cTagName)
  6373. LNOLDSELECT    
  6374. LCFLDNAME
  6375. LCUSERID
  6376. THISFORM
  6377. CTABLE
  6378. CBONAME
  6379. VALUEV
  6380. cNames
  6381. TSFORMRETVAL
  6382. UNLOAD
  6383. CNAMES
  6384. CTABLEe
  6385. m.gTTradeb
  6386. This class cannot be used outside of the Tastrade application.
  6387. SELECT 
  6388.  FROM 
  6389.  ORDER BY 
  6390.  INTO CURSOR cNames
  6391. There are no employees on file.
  6392. Tasmanian Traders
  6393. GTTRADE
  6394. THISFORM
  6395. CBONAME    
  6396. ROWSOURCE
  6397. CFIELDNAME
  6398. CTABLE
  6399. REQUERY    
  6400. LISTINDEXa
  6401. DATA\
  6402. DATA\
  6403. CTABLE
  6404. Refresh,
  6405. Unload
  6406. LoadZ
  6407. tsbase.vcx
  6408. ..\include\tastrade.h
  6409. ..\..\..\dev\foxpro.h
  6410. ..\include\strings.h
  6411. BArial, 0, 8, 5, 14, 11, 20, 3, 0
  6412. Arial, 1, 8, 5, 14, 11, 14, 3, 0
  6413. loginpicture
  6414. ..\include\tastrade.h
  6415. Pixels
  6416.  h:\allisonk\sampapp\loginp_s.bmp
  6417. ..\bitmaps\loginp_s.bmp
  6418. ZAllows entry of name and password, and also displays picture and description of employee. 
  6419. Class
  6420. login
  6421. loginpicture
  6422. PStretch = 1
  6423. Height = 171
  6424. Left = 25
  6425. Top = 10
  6426. Width = 191
  6427. Name = "imgPhoto"
  6428. loginpicture.
  6429. imgPhoto
  6430. image
  6431. image
  6432. Enabled = .F.
  6433. Height = 22
  6434. Left = 245
  6435. TabIndex = 4
  6436. Top = 160
  6437. Width = 176
  6438. DisabledBackColor = 255,255,255
  6439. Name = "txtUserLevel"
  6440. loginpicture.
  6441. txtUserLevel
  6442. textbox
  6443. tsbase.vcx
  6444.     tstextbox
  6445. xAlignment = 0
  6446. Caption = "User Level"
  6447. Height = 16
  6448. Left = 245
  6449. Top = 145
  6450. Width = 77
  6451. TabIndex = 6
  6452. Name = "Tslabel3"
  6453. loginpicture.
  6454. Tslabel3
  6455. label
  6456. tsbase.vcx
  6457. tslabel
  6458. sAlignment = 0
  6459. Caption = "Title"
  6460. Height = 16
  6461. Left = 245
  6462. Top = 100
  6463. Width = 77
  6464. TabIndex = 5
  6465. Name = "Tslabel2"
  6466. loginpicture.
  6467. Tslabel2
  6468. label
  6469. tsbase.vcx
  6470. tslabel
  6471. bCaption = "Hint"
  6472. Height = 22
  6473. Left = 230
  6474. Top = 75
  6475. Width = 77
  6476. TabIndex = 4
  6477. Name = "Tslabel1"
  6478. loginpicture.
  6479. Tslabel1
  6480. label
  6481. tsbase.vcx
  6482. tslabel
  6483. Enabled = .F.
  6484. Height = 22
  6485. Left = 315
  6486. TabIndex = 3
  6487. Top = 75
  6488. Width = 104
  6489. DisabledBackColor = 255,255,255
  6490. Name = "txtDispPswd"
  6491. loginpicture.
  6492. txtDispPswd
  6493. textbox
  6494. tsbase.vcx
  6495. Height = 80
  6496. Left = 25
  6497. ReadOnly = .T.
  6498. TabIndex = 8
  6499. Top = 191
  6500. Width = 396
  6501. ForeColor = 128,128,128
  6502. BackColor = 192,192,192
  6503. DisabledBackColor = 255,255,255
  6504. Name = "edtDescription"
  6505. PROCEDURE Refresh
  6506. *-- Set up our workareas
  6507. LOCAL lnOldSelect, lcFldName, lcUserID
  6508. lnOldSelect = SELECT()
  6509. SELECT (thisform.cTable)
  6510. lcFldName = "employee_id"
  6511. lcUserID = thisform.cboName.Value
  6512. =LOOKUP(&lcFldName, lcUserID,  ;
  6513.         &lcFldName, thisform.cTagName)
  6514. SELECT (lnOldSelect)
  6515. ENDPROC
  6516. PROCEDURE Unload
  6517. tsFormRetVal::Unload()
  6518. IF USED("cNames")
  6519.   USE IN cNames
  6520. ENDIF
  6521. IF USED(this.cTable)
  6522.   USE IN (this.cTable)
  6523. ENDIF
  6524. ENDPROC
  6525. PROCEDURE Init
  6526. *-- (c) Microsoft Corporation 1995
  6527. *- this class can't be used independent of the application
  6528. IF TYPE("m.gTTrade") # 'L' OR !m.gTTrade
  6529.     =MESSAGEBOX(CLASSBROWERR_LOC)
  6530.     RETURN .F.
  6531. ENDIF
  6532. thisform.cboName.RowSource = "SELECT " + ;
  6533.   thisform.cFieldName + ;
  6534.   " FROM " + this.cTable + ;
  6535.   " ORDER BY " + thisform.cFieldName + ;
  6536.   " INTO CURSOR cNames"
  6537. thisform.cboName.Requery()
  6538. IF _tally > 0
  6539.   thisform.cboName.ListIndex = 1
  6540.   =MESSAGEBOX(NOEMPLOYEES_LOC, ;
  6541.               MB_ICONEXCLAMATION, ;
  6542.               TASTRADE_LOC)
  6543.   RETURN .F.
  6544. ENDIF
  6545. ENDPROC
  6546. PROCEDURE Load
  6547. IF FILE("DATA\" + this.cTable)
  6548.     IF !USED(this.cTable)
  6549.       USE ("DATA\" + this.cTable) IN 0
  6550.     ENDIF
  6551.     SELECT (this.cTable)
  6552. ENDIF
  6553. ENDPROC
  6554. ScaleMode = 3
  6555. Height = 316
  6556. Width = 437
  6557. DoCreate = .T.
  6558. uretval = 
  6559. Name = "loginpicture"
  6560. cmdok.Top = 280
  6561. cmdok.Left = 105
  6562. cmdok.Height = 30
  6563. cmdok.Width = 76
  6564. cmdok.TabIndex = 5
  6565. cmdok.Name = "cmdok"
  6566. cmdcancel.Top = 280
  6567. cmdcancel.Left = 250
  6568. cmdcancel.Height = 30
  6569. cmdcancel.Width = 76
  6570. cmdcancel.TabIndex = 6
  6571. cmdcancel.Name = "cmdcancel"
  6572. lblname.Height = 17
  6573. lblname.Left = 220
  6574. lblname.Top = 15
  6575. lblname.Visible = .T.
  6576. lblname.Width = 87
  6577. lblname.Name = "lblname"
  6578. lblpswd.Height = 17
  6579. lblpswd.Left = 220
  6580. lblpswd.Top = 45
  6581. lblpswd.Visible = .T.
  6582. lblpswd.Width = 87
  6583. lblpswd.Name = "lblpswd"
  6584. txtPassword.Left = 315
  6585. txtPassword.Top = 42
  6586. txtPassword.Name = "txtPassword"
  6587. cboname.Height = 21
  6588. cboname.Left = 315
  6589. cboname.TabIndex = 1
  6590. cboname.Top = 15
  6591. cboname.Name = "cboname"
  6592. XPROCEDURE getuserlevel
  6593. LOCAL llCloseUserLevel, ;
  6594.       lcUserLevel
  6595. SET DATABASE TO TASTRADE
  6596. *-- Look up the group information
  6597. IF !USED("user_level")
  6598.   USE user_level IN 0
  6599.   llCloseUserLevel = .T.
  6600. ENDIF
  6601. lcUserLevel = LOOKUP(user_level.description, ;
  6602.                      employee.group_id, ;
  6603.                      user_level.group_id, ;
  6604.                      "group_id")
  6605. IF llCloseUserLevel
  6606.   USE IN user_level
  6607. ENDIF
  6608. RETURN lcUserLevel
  6609. ENDPROC
  6610. PROCEDURE Refresh
  6611. IF login::Refresh()
  6612.   thisform.txtTitle.Value = title
  6613.   thisform.edtDescription.Value = Notes
  6614.   IF FILE(photo_file)
  6615.       thisform.imgPhoto.Picture = photo_file
  6616.     ELSE
  6617.       thisform.imgPhoto.Picture = ''
  6618.     ENDIF
  6619.   thisform.txtDispPswd.Value = password
  6620.   thisform.txtUserLevel.Value = thisform.GetUserLevel()
  6621.   STORE "" TO ;
  6622.     thisform.txtTitle.Value, ;
  6623.     thisform.edtDescription.Value, ;
  6624.     thisform.imgPhoto.Picture, ;
  6625.     thisform.txtDispPswd.Value
  6626.     thisform.txtUserLevel.Value
  6627. ENDIF
  6628. ENDPROC
  6629. PROCEDURE Init
  6630. *-- (c) Microsoft Corporation 1995
  6631. IF login::Init()
  6632.     thisform.Refresh()
  6633.     RETURN .F.
  6634. ENDIF
  6635. ENDPROC
  6636. PROCEDURE cmdok.Click
  6637. LOCAL llCloseUserLevel
  6638. login.cmdOk::Click()
  6639. thisform.uRetVal = employee_id + "," + thisform.GetUserLevel()
  6640. ENDPROC
  6641. PROCEDURE cmdcancel.Click
  6642. login.cmdCancel::Click()
  6643. thisform.uRetVal = ""
  6644. ENDPROC
  6645. TASTRADE
  6646. user_level
  6647. user_level
  6648. group_id~
  6649. LLCLOSEUSERLEVEL
  6650. LCUSERLEVEL
  6651. TASTRADE
  6652. USER_LEVEL
  6653. DESCRIPTION
  6654. EMPLOYEE
  6655. GROUP_ID
  6656. LOGIN
  6657. REFRESH
  6658. THISFORM
  6659. TXTTITLE
  6660. VALUE
  6661. TITLE
  6662. EDTDESCRIPTION
  6663. NOTES
  6664. PHOTO_FILE
  6665. IMGPHOTO
  6666. PICTURE
  6667. TXTDISPPSWD
  6668. PASSWORD
  6669. TXTUSERLEVEL
  6670. GETUSERLEVEL5
  6671. LOGIN
  6672. THISFORM
  6673. REFRESH8
  6674. LLCLOSEUSERLEVEL
  6675. LOGIN
  6676. CMDOK
  6677. CLICK
  6678. THISFORM
  6679. URETVAL
  6680. EMPLOYEE_ID
  6681. GETUSERLEVEL$
  6682. LOGIN    
  6683. CMDCANCEL
  6684. CLICK
  6685. THISFORM
  6686. URETVAL
  6687. getuserlevel,
  6688. Refresh1
  6689. cmdok.Click
  6690. cmdcancel.Click
  6691. PLATFORM
  6692. UNIQUEID
  6693. TIMESTAMP
  6694. CLASS
  6695. CLASSLOC
  6696. BASECLASS
  6697. OBJNAME
  6698. PARENT
  6699. PROPERTIES
  6700. PROTECTED
  6701. METHODS
  6702. OBJCODE
  6703. RESERVED1
  6704. RESERVED2
  6705. RESERVED3
  6706. RESERVED4
  6707. RESERVED5
  6708. RESERVED6
  6709. RESERVED7
  6710. RESERVED8
  6711.  COMMENT Screen              
  6712.  WINDOWS _R020GZM80 5144081785
  6713.  WINDOWS _R020GZM8A 514408178
  6714.  WINDOWS _QUZ0FW7RQ 514408178
  6715.  WINDOWS _QYQ0YKBCT 511083849v
  6716.  WINDOWS _QYQ0YKBDD 511082738
  6717.  WINDOWS _QYQ0YKBDX 514408179
  6718.  WINDOWS _QYQ0YKBZM 512469236
  6719.  WINDOWS _QYQ0YKCJX 514408180
  6720.  WINDOWS _QYQ0YKCM5 513385979
  6721.  WINDOWS _QYQ0YKD5W 511082739
  6722.  COMMENT FONTINFO            
  6723. VERSION =   3.00
  6724. ..\include\tastrade.h
  6725. dataenvironment
  6726. dataenvironment
  6727. Dataenvironment
  6728. nLeft = 42
  6729. Top = 171
  6730. Width = 253
  6731. Height = 260
  6732. InitialSelectedAlias = "repolist"
  6733. Name = "Dataenvironment"
  6734. cursor
  6735. cursor
  6736. cursor1
  6737. Dataenvironment
  6738. Left = 20
  6739. Top = 10
  6740. Width = 138
  6741. Height = 146
  6742. Alias = "repolist"
  6743. CursorSource = ..\data\repolist.dbf
  6744. Filter = ""
  6745. Name = "cursor1"
  6746. tsbaseform
  6747. ..\libs\tsbase.vcx
  6748. frmreports
  6749. EScaleMode = 3
  6750. Top = 44
  6751. Left = 75
  6752. Height = 229
  6753. Width = 364
  6754. DoCreate = .T.
  6755. AutoCenter = .F.
  6756. BackColor = 192,192,192
  6757. BorderStyle = 2
  6758. Caption = "Print"
  6759. FontBold = .T.
  6760. FontSize = 8
  6761. MaxButton = .F.
  6762. MinButton = .F.
  6763. WindowType = 1
  6764. nsaveselect = 0
  6765. ctoolbar = 
  6766. lallowedits = .F.
  6767. lallownew = .F.
  6768. Name = "frmreports"
  6769. ..\include\tastrade.h
  6770. ..\..\..\dev\foxpro.h
  6771. ..\include\strings.h"
  6772. THISFORM
  6773. Click,
  6774. Top = 155
  6775. Left = 255
  6776. Height = 28
  6777. Width = 97
  6778. FontBold = .T.
  6779. Caption = "\<Run"
  6780. Default = .T.
  6781. Enabled = .T.
  6782. TabIndex = 4
  6783. TerminateRead = .F.
  6784. ReleaseErase = .F.
  6785. ColorSource = 3
  6786. Name = "cmdRun"
  6787. opgOutputType
  6788. optiongroup
  6789. optiongroup
  6790.     lstReport
  6791. listbox
  6792. listbox
  6793. cmdRun
  6794. frmreports
  6795. optiongroup
  6796. optiongroup
  6797. frmreports
  6798. frmreports
  6799. Top = 190
  6800. Left = 255
  6801. Height = 28
  6802. Width = 97
  6803. FontBold = .T.
  6804. Cancel = .T.
  6805. Caption = "\<Close"
  6806. Enabled = .T.
  6807. TabIndex = 5
  6808. TerminateRead = .T.
  6809. ReleaseErase = .F.
  6810. ColorSource = 3
  6811. Name = "cmdClose"
  6812. ..\libs\tsbase.vcx
  6813. label
  6814. frmreports
  6815. cmdClose
  6816. commandbutton
  6817. ..\libs\tsbase.vcx
  6818. tscommandbutton
  6819. frmreports
  6820. commandbutton
  6821. tscommandbutton
  6822.     opgOutput
  6823. !Arial, 1, 8, 5, 14, 11, 14, 3, 0
  6824. ,PROCEDURE Click
  6825. RELEASE thisform
  6826. ENDPROC
  6827. *nsaveselect Saves the selected workarea.
  6828.     ts3dshape
  6829. ..\libs\tsbase.vcx
  6830. shape
  6831. Ts3dshape1
  6832. frmreports
  6833. DHeight = 31
  6834. Left = 11
  6835. Top = 10
  6836. Width = 340
  6837. Name = "Ts3dshape1"
  6838. tslabel
  6839. ..\libs\tsbase.vcx
  6840. Tslabel1
  6841. frmreports
  6842. Alignment = 2
  6843. BackColor = 192,192,192
  6844. BackStyle = 1
  6845. Caption = "Output Type"
  6846. Height = 16
  6847. Left = 20
  6848. Top = 5
  6849. Width = 77
  6850. TabIndex = 6
  6851. Name = "Tslabel1"
  6852. $ButtonCount = 2
  6853. BackStyle = 0
  6854. BorderStyle = 0
  6855. Value = 1
  6856. Height = 26
  6857. Left = 15
  6858. Top = 15
  6859. Width = 166
  6860. TabIndex = 2
  6861. Name = "opgOutputType"
  6862. Option1.FontSize = 8
  6863. Option1.BackStyle = 0
  6864. Option1.Caption = "R\<eports"
  6865. Option1.Value = 1
  6866. Option1.Height = 18
  6867. Option1.Left = 5
  6868. Option1.Top = 5
  6869. Option1.Width = 75
  6870. Option1.Name = "optReports"
  6871. Option2.FontSize = 8
  6872. Option2.BackStyle = 0
  6873. Option2.Caption = "\<Listings"
  6874. Option2.Value = 0
  6875. Option2.Height = 18
  6876. Option2.Left = 80
  6877. Option2.Top = 5
  6878. Option2.Width = 75
  6879. Option2.Name = "optListings"
  6880. qPROCEDURE Click
  6881. thisform.Refresh()
  6882. thisform.lstReport.ListIndex = 1
  6883. thisform.lstReport.SetFocus()
  6884. ENDPROC
  6885. :FontBold = .T.
  6886. FontName = "Arial"
  6887. FontSize = 8
  6888. ReadSize = .T.
  6889. BoundColumn = 2
  6890. RowSourceType = 6
  6891. RowSource = "cfullname, cdosname"
  6892. ControlSource = ""
  6893. Height = 98
  6894. Left = 11
  6895. SpecialEffect = 0
  6896. TabIndex = 1
  6897. Top = 50
  6898. Width = 340
  6899. ReleaseErase = .F.
  6900. DisabledItemBackColor = 255,255,255
  6901. Name = "lstReport"
  6902. ButtonCount = 3
  6903. BackStyle = 0
  6904. BorderStyle = 0
  6905. ControlSource = ""
  6906. Height = 72
  6907. Left = 11
  6908. Top = 155
  6909. Width = 217
  6910. TabIndex = 3
  6911. ReleaseErase = .F.
  6912. Name = "opgOutput"
  6913. Option1.FontBold = .T.
  6914. Option1.FontName = "Arial"
  6915. Option1.FontSize = 8
  6916. Option1.BackStyle = 0
  6917. Option1.Caption = "Print Pre\<view"
  6918. Option1.Value = 1
  6919. Option1.Enabled = .T.
  6920. Option1.Height = 18
  6921. Option1.Left = 0
  6922. Option1.Top = 0
  6923. Option1.Width = 217
  6924. Option1.ReleaseErase = .F.
  6925. Option1.Name = "optScreen"
  6926. Option2.FontBold = .T.
  6927. Option2.FontName = "Arial"
  6928. Option2.FontSize = 8
  6929. Option2.BackStyle = 0
  6930. Option2.Caption = "Send to \<Printer"
  6931. Option2.Height = 18
  6932. Option2.Left = 0
  6933. Option2.Top = 23
  6934. Option2.Width = 217
  6935. Option2.ReleaseErase = .F.
  6936. Option2.Name = "optPrinter"
  6937. Option3.FontSize = 8
  6938. Option3.BackStyle = 0
  6939. Option3.Caption = "Send to \<File"
  6940. Option3.Height = 18
  6941. Option3.Left = 0
  6942. Option3.Top = 46
  6943. Option3.Width = 217
  6944. Option3.Name = "optFile"
  6945. xPROCEDURE KeyPress
  6946. LPARAMETERS nKeyCode, nShiftAltCtrl
  6947. *-- We want to provide the user with a visual clue that the
  6948. *-- Run command button is the default button.(By setting it's
  6949. *-- Default property.  However, if we don't trap for the
  6950. *-- Enter key being pressed, the DblClick() method will be
  6951. *-- called implicitly, and so will the click event for the
  6952. *-- Run command button. This results in the report being run
  6953. *-- twice.
  6954. IF nKeyCode = 13
  6955.   NODEFAULT
  6956.   this.DblClick()
  6957. ENDIF
  6958. ENDPROC
  6959. PROCEDURE DblClick
  6960. thisform.cmdRun.Click()
  6961. ENDPROC
  6962. PROCEDURE Init
  6963. IF RECCOUNT("RepoList") = 0
  6964.   RETURN .F.
  6965. ENDIF
  6966. ENDPROC
  6967. GPROCEDURE Init
  6968. *-- (c) Microsoft Corporation 1995
  6969. tsBaseForm::Init()
  6970. thisform.Refresh()
  6971. this.nSaveSelect = SELECT()
  6972. IF thisform.lstReport.ListCount > 0
  6973.   thisform.lstReport.ListIndex = 1  
  6974. ENDIF
  6975. ENDPROC
  6976. PROCEDURE Destroy
  6977. tsBaseForm::Destroy()
  6978. SELECT (this.nSaveSelect)
  6979. ENDPROC
  6980. PROCEDURE Refresh
  6981. LOCAL lcFilter
  6982. SELECT repolist
  6983. lcFilter = "ctype = '" + IIF(thisform.opgOutputType.optReports.Value = 1, ;
  6984.                             "REPO", ;
  6985.                             "LIST") + "'"
  6986. SET FILTER TO &lcFilter
  6987. LOCATE
  6988. thisform.lstReport.Requery()
  6989. ENDPROC
  6990. ePROCEDURE Click
  6991. LOCAL lcSeleRepo
  6992. lcSeleRepo = "REPORTS\" + ALLTRIM(repoList.cdosname) + ".FRX"
  6993. IF NOT FILE(lcSeleRepo)
  6994.   =MESSAGEBOX(REPORTNOTFOUND_LOC, MB_ICONEXCLAMATION)
  6995.   RETURN
  6996. ENDIF
  6997. DO CASE
  6998.   CASE thisform.opgOutput.optScreen.Value = 1      && To screen
  6999.     REPORT FORM (lcSeleRepo) PREVIEW
  7000.   CASE thisform.opgOutput.optPrinter.Value = 1    && To printer
  7001.     IF PRINTSTATUS()
  7002.       REPORT FORM (lcSeleRepo) ;
  7003.         TO PRINTER NOCONSOLE
  7004.     ELSE
  7005.       =MESSAGEBOX(PRINTERNOTREADY_LOC, MB_ICONEXCLAMATION)
  7006.     ENDIF
  7007.   CASE thisform.opgOutput.optFile.Value = 1        && To file
  7008.     lcTextFile  = ALLTRIM(Repolist.cDosName)+".TXT"
  7009.     REPORT FORM (lcSeleRepo) TO FILE (lcTextFile) ASCII
  7010.     =MESSAGEBOX(FILESAVEDAS_LOC + FULLPATH(lcTextFile), ;
  7011.                 MB_ICONINFORMATION, ;
  7012.                 TASTRADE_LOC)
  7013. ENDCASE
  7014. ENDPROC
  7015. REPORTS\C
  7016. Report file not found.
  7017. Printer not ready.
  7018. File saved as C
  7019. Tasmanian Traders
  7020. LCSELEREPO
  7021. REPOLIST
  7022. CDOSNAME
  7023. THISFORM    
  7024. OPGOUTPUT    
  7025. OPTSCREEN
  7026. VALUE
  7027. OPTPRINTER
  7028. OPTFILE
  7029. LCTEXTFILE
  7030. Click,
  7031. NKEYCODE
  7032. NSHIFTALTCTRL
  7033. DBLCLICK
  7034. THISFORM
  7035. CMDRUN
  7036. CLICK)
  7037. RepoListN
  7038. KeyPress,
  7039. DblClick
  7040. THISFORM
  7041. REFRESH    
  7042. LSTREPORT    
  7043. LISTINDEX
  7044. SETFOCUS
  7045. Click,
  7046. TSBASEFORM
  7047. THISFORM
  7048. REFRESH
  7049. NSAVESELECT    
  7050. LSTREPORT    
  7051. LISTCOUNT    
  7052. LISTINDEX
  7053. TSBASEFORM
  7054. DESTROY
  7055. NSAVESELECT
  7056. ctype = 'C
  7057. LIST6
  7058. SET FILTER TO &lcFilter
  7059. LCFILTER
  7060. REPOLIST
  7061. THISFORM
  7062. OPGOUTPUTTYPE
  7063. OPTREPORTS
  7064. VALUE    
  7065. LSTREPORT
  7066. REQUERY
  7067. Init,
  7068. Destroy
  7069. Refresh.
  7070. PLATFORM
  7071. UNIQUEID
  7072. TIMESTAMP
  7073. CLASS
  7074. CLASSLOC
  7075. BASECLASS
  7076. OBJNAME
  7077. PARENT
  7078. PROPERTIES
  7079. PROTECTED
  7080. METHODS
  7081. OBJCODE
  7082. RESERVED1
  7083. RESERVED2
  7084. RESERVED3
  7085. RESERVED4
  7086. RESERVED5
  7087. RESERVED6
  7088. RESERVED7
  7089. RESERVED8
  7090.  COMMENT Screen              
  7091.  WINDOWS _R2Y13B0C4 5522892085
  7092.  WINDOWS _R2Y13B0CE 552578345
  7093.  WINDOWS _QS010GKNU 552578345
  7094.  WINDOWS _QYP17OIMT 551721527/T
  7095.  WINDOWS _QYP17OJ42 547900957
  7096.  WINDOWS _QYP17OJ4M 551721527
  7097.  WINDOWS _QYP17OJLL 551721527
  7098.  WINDOWS _QYP17OK2A 551721527
  7099.  WINDOWS _QYP17OKL7 551721527*I
  7100.  WINDOWS _QYP17OL26 551721527
  7101.  WINDOWS _QYP17OLIL 552578345<F
  7102.  WINDOWS _QYP17OKIZ 547910024mC
  7103.  COMMENT RESERVED            
  7104. VERSION =   3.00
  7105. ..\include\tastrade.h
  7106. dataenvironment
  7107. dataenvironment
  7108. Dataenvironment
  7109. oLeft = 104
  7110. Top = 185
  7111. Width = 608
  7112. Height = 246
  7113. InitialSelectedAlias = "behindsc"
  7114. Name = "Dataenvironment"
  7115. cursor
  7116. cursor
  7117. Cursor1
  7118. Dataenvironment
  7119. Left = 20
  7120. Top = 10
  7121. Width = 116
  7122. Height = 154
  7123. Alias = "behindsc"
  7124. Order = "screen_top"
  7125. CursorSource = ..\data\behindsc.dbf
  7126. Name = "Cursor1"
  7127. tsbaseform
  7128. ..\libs\tsbase.vcx
  7129. frmbehindsc
  7130. GScaleMode = 3
  7131. Top = 4
  7132. Left = 8
  7133. Height = 333
  7134. Width = 609
  7135. DoCreate = .T.
  7136. BufferMode = 0
  7137. AutoCenter = .F.
  7138. Caption = "Behind the Scenes"
  7139. MinWidth = 0
  7140. ForeColor = 0,0,0
  7141. BackColor = 192,192,192
  7142. ccurrentform = 
  7143. isplitwidth = 588
  7144. ctoolbar = 
  7145. lallowedits = .F.
  7146. lallownew = .F.
  7147. lallowdelete = .F.
  7148. Name = "frmbehindsc"
  7149. 2%PROCEDURE refreshfeatures
  7150. thisform.LockScreen = .T.
  7151. *-- Display the explanation of the feature.
  7152. THISFORM.edtFeatureText.SelStart = 0
  7153. thisform.edtFeatureText.Refresh()
  7154. thisform.cmdCode.Enabled = !EMPTY(behindsc.code_to_sh)
  7155. thisform.LockScreen = .F.
  7156. ENDPROC
  7157. PROCEDURE getfilename
  7158. *-- Extract file name
  7159. LPARAMETER tcString
  7160. RETURN LEFT(tcString, AT(",", tcString) - 1)
  7161. ENDPROC
  7162. PROCEDURE getmethod
  7163. *-- Extract method name
  7164. LPARAMETER tcString
  7165. LOCAL lcMethod
  7166. lcMethod = ALLT(SUBSTR(tcString, AT(",", tcString, 2) + 1))
  7167. IF LEFT(lcMethod, 1) = "("
  7168.   *-- More than 1 method is specified
  7169.   lcMethod = SUBSTR(lcMethod, 2, LEN(lcMethod) - 2)
  7170. ENDIF
  7171. RETURN lcMethod
  7172. ENDPROC
  7173. PROCEDURE showcode
  7174. LOCAL lnOldArea, ;
  7175.       lnOldRec, ;
  7176.       lnNumSnips, ;
  7177.       lcTextFileName, ;
  7178.       lnFileHandle, ;
  7179.       lnCounter, ;
  7180.       lcThisLine, ;
  7181.       laFileTypes[1, 2], ;
  7182.       lcFileType, ;
  7183.       lcFileName, ;
  7184.       lcObject, ;
  7185.       lcMethod, ;
  7186.       lcStoredProcFileName, ;
  7187.       lcStoredProcs
  7188.       
  7189. DIMENSION laFileTypes[4, 2]
  7190. laFileTypes[1,1] = "FORM"
  7191. laFileTypes[1,2] = "SCX"
  7192. laFileTypes[2,1] = "CLASS LIBRARY"
  7193. laFileTypes[2,2] = "VCX"
  7194. laFileTypes[3,1] = "PROGRAM"
  7195. laFileTypes[3,2] = "PRG"
  7196. laFileTypes[4,1] = "STORED PROCS"
  7197. laFileTypes[4,2] = "DBC"
  7198. #DEFINE PADDING    15
  7199. lnOldArea = SELECT()
  7200. lnOldRec = RECNO()
  7201. *-- Extract memo strings into array
  7202. lnNumSnips = MEMLINES(behindsc.code_to_sh)
  7203. *-- create text file handle
  7204. lcTextFileName = 'SNIPPETS.TXT'
  7205. lnFileHandle  = FCREATE(lcTextFileName)
  7206. FOR lnCounter = 1 TO lnNumSnips
  7207.   IF USED("showmeth")
  7208.     USE IN showmeth
  7209.   ENDIF
  7210.   *-- Current line in behindsc.code_to_sh
  7211.   lcThisLine = ALLT(UPPER(MLINE(behindsc.code_to_sh, lnCounter)))
  7212.   IF EMPTY(lcThisLine)
  7213.     LOOP
  7214.   ENDIF
  7215.   =FPUTS(lnFileHandle, CRLF + REPLICATE("*", 60))
  7216.   lcFileName = thisform.GetFileName(lcThisLine)
  7217.   IF !FILE(lcFileName)
  7218.     =FPUTS(lnFileHandle, CRLF + lcFileName + LOWERNOTFOUND_LOC)
  7219.     LOOP
  7220.   ENDIF
  7221.   *-- Look up the extension in the laFileTypes array, and return
  7222.   *-- the full file type description
  7223.   lcFileType = ;
  7224.    laFileTypes[ASUBS(laFileTypes, ASCAN(laFileTypes, RIGHT(lcFileName, 3)), 1), 1]
  7225.   *-- Write file type and name to text file
  7226.   =FPUTS(lnFileHandle, ;
  7227.       PADR(lcFileType + ":", PADDING, " ") + LOWER(lcFileName))
  7228.   *-- Special PRG processing
  7229.   IF lcFileType = "PROGRAM"
  7230.     thisform.ExtractPRG(lnFileHandle, lcFileName)
  7231.     LOOP
  7232.   ENDIF
  7233.   lcObject = thisform.GetObject(lcThisLine)
  7234.   lcMethod = thisform.GetMethod(lcThisLine)
  7235.   *-- Special stored procedure processing
  7236.   *-- For now, we assume all stored procs are surrounded by 'FUNC...ENDFUNC'
  7237.   IF lcFileType = "STORED PROCS"
  7238.     IF lcObject = "*"
  7239.       thisform.ExtractAllStoredProcs(@lnFileHandle, lcTextFileName)
  7240.     ELSE
  7241.       lcStoredProcFileName = "sproc.txt"
  7242.       lcStoredProcs = thisform.ProcsToMem(lcStoredProcFileName)
  7243.       IF AT(",", lcObject) > 0
  7244.         thisform.ExtractMultiStoredProcs(lnFileHandle, lcObject, lcStoredProcs)
  7245.       ELSE
  7246.         thisform.ExtractStoredProc(lnFileHandle, lcObject, lcStoredProcs)
  7247.       ENDIF
  7248.       DELETE FILE (lcStoredProcFileName)
  7249.     ENDIF
  7250.     LOOP
  7251.   ENDIF
  7252.   *-- Open the file containing the method or property we want to extract 
  7253.   USE (lcFileName) AGAIN IN 0 ALIAS showmeth NOUPDATE
  7254.   SELECT showmeth
  7255.   *-- Write object name to text file
  7256.   IF NOT EMPTY(lcObject)
  7257.     *-- Locate the record in the SCX/VCX
  7258.     LOCATE FOR UPPER(objname) = lcObject
  7259.     IF FOUND()
  7260.       =FPUTS(lnFileHandle, PADR("CLASS:", PADDING, " ") + LOWER(showmeth.class))
  7261.       =FPUTS(lnFileHandle, PADR("OBJECT:", PADDING, " ") + LOWER(lcObject))
  7262.     ELSE 
  7263.       =FPUTS(lnFileHandle, PADR("OBJECT:", PADDING, " ") + lcObject + " was not found")  
  7264.       LOOP
  7265.     ENDIF
  7266.   ENDIF
  7267.   IF NOT EMPTY(showmeth.properties)
  7268.     *-- Extract property value and write it into text file
  7269.     =FPUTS(lnFileHandle, PADR(CRLF + "PROPERTIES:", PADDING, " "))
  7270.     thisform.ExtractAllProperties(lnFileHandle)
  7271.   ENDIF
  7272.   IF NOT EMPTY(lcMethod)
  7273.     *-- All Methods
  7274.     =FPUTS(lnFileHandle, PADR("METHODS:", PADDING, " "))
  7275.     IF lcMethod = "*"
  7276.       thisform.ExtractAllMethods(lnFileHandle)
  7277.     ELSE
  7278.       IF AT(",", lcMethod) > 0
  7279.         thisform.ExtractMultiMethods(lnFileHandle, lcMethod)
  7280.       ELSE
  7281.         thisform.ExtractMethod(lnFileHandle, lcMethod)
  7282.       ENDIF
  7283.     ENDIF
  7284.   ENDIF
  7285.   =FPUTS(lnFileHandle, CRLF)
  7286. ENDFOR
  7287. IF USED("showmeth")
  7288.   USE IN showmeth
  7289. ENDIF
  7290. =FCLOSE(lnFileHandle)
  7291. CREATE CURSOR viewcode (code M)
  7292. APPEND BLANK
  7293. APPEND MEMO code FROM (lcTextFileName)
  7294. DO FORM viewcode WITH thisform.DataSessionID
  7295. USE IN viewcode
  7296. IF NOT EMPTY(lnOldArea)
  7297.   SELECT (lnOldArea)
  7298.   GOTO lnOldRec
  7299. ENDIF  
  7300. RETURN
  7301. ENDPROC
  7302. PROCEDURE getobject
  7303. LPARAMETERS tcString
  7304. LOCAL lnStartWord, ;
  7305.       lnEndWord
  7306.       
  7307. lnStartWord = AT(",", tcString, 1) + 1
  7308. IF LEFT(LTRIM(SUBSTR(tcString, lnStartWord)), 1) = "("
  7309.   lnStartWord = AT("(", tcString) + 1
  7310.   lnEndWord = AT(")", tcString)
  7311.   lnEndWord = AT(",", tcString, 2)
  7312. ENDIF
  7313. RETURN ALLT(SUBSTR(tcString, lnStartWord , lnEndWord - lnStartWord))
  7314. ENDPROC
  7315. PROCEDURE extractmethod
  7316. LPARAMETER tnFileHandle, tcMethod
  7317. LOCAL lnMemoLength, ;
  7318.       lnMethStartPos, ;
  7319.       lcMethod, ;
  7320.       lnLine, ;
  7321.       lcOutputString
  7322. lnMemoLength = LEN(showmeth.methods)
  7323. lnMethStartPos = ATC("PROCEDURE " + tcMethod, showmeth.methods)
  7324. IF lnMethStartPos = 0
  7325.   lcMethod = TAB + tcMethod + " not found in " + DBF()
  7326.   RETURN
  7327.   lnMethEndPos = ATC(CRLF + "ENDPROC" , SUBSTR(showmeth.methods, lnMethStartPos))
  7328.   IF lnMethEndPos = 0   && Last proc in Method Memo
  7329.     lnMethEndPos = lnMemoLength - lnMethStartPos
  7330.   ENDIF
  7331.   lcMethod = SUBSTR(showmeth.methods, lnMethStartPos, lnMethEndPos)
  7332. ENDIF
  7333. FOR lnLine = 1 TO MEMLINES(lcMethod)
  7334.   lcOutputString = ""
  7335.   IF BETWEEN(lnLine, 1, MEMLINES(lcMethod))
  7336.     lcOutputString = TAB
  7337.   ENDIF
  7338.   =FPUTS(tnFileHandle, lcOutputString + MLINE(lcMethod, lnLine))
  7339. ENDFOR
  7340. =FPUTS(tnFileHandle, CRLF)
  7341. ENDPROC
  7342. PROCEDURE extractallmethods
  7343. LPARAMETERS tnFileHandle
  7344. LOCAL lcMethods, ;
  7345.       lnNextMethod, ;
  7346.       lcThisMethod, ;
  7347.       lnLine, ;
  7348.       lcOutputString
  7349. IF EMPTY(showmeth.methods)
  7350.   RETURN ""
  7351. ENDIF
  7352. lcMethods = LTRIM(showmeth.methods)
  7353. DO WHILE !EMPTY(lcMethods)
  7354.   lnNextMethod = ATC("PROCEDURE", lcMethods, 2)
  7355.   IF lnNextMethod = 0
  7356.     lnNextMethod = LEN(lcMethods)
  7357.   ENDIF
  7358.   lcThisMethod = LEFT(lcMethods, lnNextMethod - 1)
  7359.   *-- Cut the current method
  7360.   lcMethods = SUBSTR(lcMethods, lnNextMethod)
  7361.   *-- Print the method to the text file
  7362.   FOR lnLine = 1 TO MEMLINES(lcThisMethod)
  7363.     lcOutputString = ""
  7364.     IF BETWEEN(lnLine, 1, MEMLINES(lcThisMethod))
  7365.       lcOutputString = TAB
  7366.     ENDIF
  7367.     =FPUTS(tnFileHandle, lcOutputString + MLINE(lcThisMethod, lnLine))
  7368.   ENDFOR
  7369. ENDDO
  7370. ENDPROC
  7371. PROCEDURE extractallproperties
  7372. LPARAMETERS tnFileHandle
  7373. LOCAL lnLine
  7374. IF EMPTY(showmeth.properties)
  7375.   RETURN ""
  7376. ENDIF
  7377. FOR lnLine = 1 TO MEMLINES(showmeth.properties)
  7378.   =FPUTS(tnFileHandle, TAB + MLINE(showmeth.properties, lnLine))
  7379. ENDFOR
  7380. ENDPROC
  7381. PROCEDURE extractprg
  7382. LPARAMETERS tnOutFileHandle, tcFileName
  7383. LOCAL lnFileHandle
  7384. tcFileName = "PROGS\" + tcFileName
  7385. lnFileHandle = FOPEN(tcFileName)
  7386. IF lnFileHandle = -1
  7387.   =FPUTS(tnOutFileHandle,ERR_FOPEN_LOC + tcFileName)  &&"Could not open: "
  7388.   RETURN
  7389. ENDIF
  7390. DO WHILE !FEOF(lnFileHandle)
  7391.   =FPUTS(tnOutFileHandle, FGETS(lnFileHandle))
  7392. ENDDO
  7393. =FCLOSE(lnFileHandle)
  7394. RETURN
  7395. ENDPROC
  7396. PROCEDURE extractmultimethods
  7397. LPARAMETERS tnFileHandle, tcMethods
  7398. LOCAL lcMethods, ;
  7399.       lcThisMethod, ;
  7400.       lnNextMethod
  7401. lcMethods = tcMethods
  7402. DO WHILE !EMPTY(lcMethods)
  7403.   lnNextMethod = AT(",", lcMethods)
  7404.   IF lnNextMethod = 0  
  7405.     lnNextMethod = LEN(lcMethods)
  7406.     lcMethods = lcMethods + "  "
  7407.   ENDIF
  7408.   lcThisMethod = ALLT(LEFT(lcMethods, lnNextMethod - 1))
  7409.   *-- Cut the current method
  7410.   lcMethods = SUBSTR(lcMethods, lnNextMethod + 1)
  7411.   thisform.ExtractMethod(tnFileHandle, lcThisMethod)
  7412. ENDDO
  7413. ENDPROC
  7414. PROCEDURE extractallstoredprocs
  7415. LPARAMETERS tnOutFileHandle, tcTextFileName
  7416. =FCLOSE(tnOutFileHandle)
  7417. *-- We assume the database is open
  7418. COPY PROCEDURES TO (tcTextFileName) ADDITIVE
  7419. tnFileHandle = FOPEN(tcTextFileName)
  7420. RETURN
  7421. ENDPROC
  7422. PROCEDURE extractstoredproc
  7423. LPARAMETER tnFileHandle, tcProcToShow, tcStoredProc
  7424. LOCAL lnProcLength, ;
  7425.       lnProcStartPos, ;
  7426.       lnProcEndPos, ;
  7427.       lcProc, ;
  7428.       lnLine, ;
  7429.       lcOutputString
  7430. lnProcLength = LEN(tcStoredProc)
  7431. lnProcStartPos = ATC("FUNCTION " + tcProcToShow, tcStoredProc)
  7432. IF lnProcStartPos = 0
  7433.   lcProc = TAB + tcProcToShow + " not found in " + DBC()
  7434.   RETURN
  7435.   lnProcEndPos = ATC(CRLF + "ENDFUNC" , SUBSTR(tcStoredProc, lnProcStartPos))
  7436.   IF lnProcEndPos = 0   && Last func
  7437.     lnProcEndPos = lnProcLength - lnProcStartPos
  7438.   ENDIF
  7439.   lcProc = SUBSTR(tcStoredProc, lnProcStartPos, lnProcEndPos)
  7440. ENDIF
  7441. FOR lnLine = 1 TO MEMLINES(lcProc)
  7442.   lcOutputString = ""
  7443.   IF BETWEEN(lnLine, 1, MEMLINES(lcProc))
  7444.     lcOutputString = TAB
  7445.   ENDIF
  7446.   =FPUTS(tnFileHandle, lcOutputString + MLINE(lcProc, lnLine))
  7447. ENDFOR
  7448. =FPUTS(tnFileHandle, CRLF)
  7449. ENDPROC
  7450. PROCEDURE extractmultistoredprocs
  7451. LPARAMETER tnFileHandle, tcProcs, tcStoredProc
  7452. LOCAL lcProcs, ;
  7453.       lcThisProc, ;
  7454.       lnNextProc
  7455. lcProcs = tcProcs
  7456. DO WHILE !EMPTY(lcProcs)
  7457.   lnNextProc = AT(",", lcProcs)
  7458.   IF lnNextProc = 0
  7459.     lnNextProc = LEN(lcProcs)
  7460.     lcProcs = lcProcs + "  "
  7461.   ENDIF
  7462.   lcThisProc = ALLT(LEFT(lcProcs, lnNextProc - 1))
  7463.   *-- Cut the current proc
  7464.   lcProcs = SUBSTR(lcProcs, lnNextProc + 1)
  7465.   thisform.ExtractStoredProc(tnFileHandle, lcThisProc, tcStoredProc)
  7466. ENDDO
  7467. ENDPROC
  7468. PROCEDURE procstomem
  7469. LPARAMETERS tcStoredProcFileName
  7470. LOCAL lnFileHandle, ;
  7471.       lnFileSize, ;
  7472.       lcStoredProcs
  7473. COPY PROCEDURES TO (tcStoredProcFileName)
  7474. lnFileSize = FileSize(tcStoredProcFileName)    && IN UTILITY.PRG
  7475. lnFileHandle = FOPEN(tcStoredProcFileName)
  7476. =FSEEK(lnFileHandle, 0)
  7477. lcStoredProcs = FREAD(lnFileHandle, lnFileSize)
  7478. =FCLOSE(lnFileHandle)
  7479. RETURN lcStoredProcs
  7480. ENDPROC
  7481. PROCEDURE refreshform
  7482. thisform.LockScreen = .T.
  7483. thisform.Refresh()
  7484. thisform.cmdCode.Enabled = !EMPTY(behindsc.code_to_sh)
  7485. thisform.LockScreen = .F.
  7486. ENDPROC
  7487. PROCEDURE Load
  7488. LOCAL lcForm
  7489. IF FormIsObject()
  7490.   lcForm = _screen.Activeform.Caption
  7491.   *-- Special handling for Order History and forms that
  7492.   *-- support multiple instances
  7493.   IF ":" $ lcForm
  7494.     lcForm = LEFT(lcForm, AT(":", lcForm) - 1)
  7495.   ELSE
  7496.     IF "HISTORY" $ UPPER(lcForm)
  7497.       lcForm = LEFT(lcForm, AT(" ", lcForm, 2) - 1)
  7498.     ENDIF
  7499.   ENDIF
  7500.   thisform.cCurrentForm = lcForm
  7501. ENDIF
  7502. IF EMPTY(thisform.cCurrentForm) OR ;
  7503.     thisform.cCurrentForm = _screen.Caption
  7504.   thisform.cCurrentForm = "No starting form"
  7505. ENDIF
  7506. ENDPROC
  7507. PROCEDURE Init
  7508. *-- (c) Microsoft Corporation 1995
  7509. LPARAMETERS tlModal
  7510. thisform.WindowType = IIF(tlModal, 1, 0)
  7511. IF TYPE("oApp.oToolbar") == "O"
  7512.   IF !ISNULL(oApp.oToolBar)
  7513.     oApp.oToolbar.cmdBehindSC.Enabled = .F.
  7514.   ENDIF
  7515. ENDIF
  7516. LOCAL lnFormIndex, ;
  7517.       lcValue
  7518. tsBaseForm::Init()
  7519. thisform.AddToMenu()
  7520. SELECT DISTINCT screen_id ;
  7521.   FROM behindsc ;
  7522.   WHERE screen_id <> "*" ;
  7523.   ORDER BY screen_id ;
  7524.   INTO ARRAY thisform.aForms
  7525. DIMENSION thisform.aForms[_tally + 1]
  7526. =AINS(thisform.aForms, 1)
  7527. thisform.aForms[1] = ALL_LOC    &&"All"
  7528. thisform.cboForms.RowSource = "thisform.aForms"
  7529. *-- Load an array with references to those controls 
  7530. *-- that need to be moved when the splitter control
  7531. *-- is repositioned
  7532. DIMENSION this.aObjSplitMove[3]
  7533. this.aObjSplitMove[1] = thisform.lstFeatures
  7534. this.aObjSplitMove[2] = thisform.edtFeatureText
  7535. this.aObjSplitMove[3] = thisform.lblHowItWorks
  7536. *-- Set a filter to set the scope to features on the current screen.
  7537. IF SEEK(this.cCurrentForm, "behindsc")
  7538.   lcValue = this.cCurrentForm
  7539.   SET FILTER TO screen_id = "&lcValue"
  7540.    SET FILTER TO screen_id <> "*"
  7541. ENDIF     
  7542. GO TOP IN behindsc
  7543. lnFormIndex = ASCAN(thisform.aForms, this.cCurrentForm)
  7544. thisform.cboForms.Value = IIF(lnFormIndex = 0, 1, lnFormIndex)
  7545. ENDPROC
  7546. PROCEDURE Destroy
  7547. LOCAL i
  7548. tsBaseForm::Destroy()
  7549. thisform.RemoveFromMenu()
  7550. IF WEXIST("SNIPPETS.TXT")
  7551.   RELEASE WINDOW "SNIPPETS.TXT"
  7552. ENDIF  
  7553. IF FILE("SNIPPETS.TXT")
  7554.   DELETE FILE "SNIPPETS.TXT"
  7555. ENDIF
  7556. IF TYPE("oApp.oToolbar") == "O"
  7557.   IF !ISNULL(oApp.oToolBar)
  7558.     oApp.oToolbar.cmdBehindSC.Enabled = .T.
  7559.   ENDIF
  7560. ENDIF
  7561. *-- Ensure all references are released, or we'll
  7562. *-- have objects hanging around that we no longer
  7563. *-- need
  7564. FOR i = 1 TO ALEN(thisform.aObjSplitMove)
  7565.   thisform.aObjSplitMove[i] = .NULL.
  7566. ENDFOR
  7567. ENDPROC
  7568. ..\include\tastrade.h
  7569. ..\..\..\dev\foxpro.h
  7570. ..\include\strings.h
  7571. Printing ...
  7572. behindsc(!9
  7573. Printer not ready.
  7574. LNANSWER
  7575. THISFORM
  7576. WAITMODE
  7577. BEHINDSC
  7578. Click,
  7579. THISFORM
  7580. WAITMODE
  7581. SHOWCODE
  7582. Click,
  7583. ShowMeth
  7584. ShowMeth
  7585. THISFORM
  7586. Click,
  7587. THISFORM
  7588. CTLSPLITTER
  7589. GETRIGHTEDGE
  7590. WIDTH
  7591. ISPLITWIDTH
  7592. GETLEFTEDGE
  7593. Move,
  7594. THISFORM
  7595. EDTFEATURETEXT
  7596. Move,
  7597. WIDTH
  7598. THISFORM
  7599. CTLSPLITTER
  7600. GETLEFTEDGE
  7601. THISFORM
  7602. REFRESHFEATURES!
  7603. TSLISTBOX
  7604. REQUERY
  7605. THIS    
  7606. LISTINDEX
  7607. Move,
  7608. InteractiveChange
  7609. Requery
  7610. INTERACTIVECHANGE
  7611. screen_top
  7612. SET FILTER TO screen_id = "&lcValue"
  7613. topic
  7614. LCVALUE
  7615. VALUE
  7616. SCREEN_TOP
  7617. THISFORM
  7618. AFORMS    
  7619. SCREEN_ID
  7620. TOPIC
  7621. LOCKSCREEN
  7622. REFRESHFEATURES
  7623. LSTFEATURES
  7624. REQUERY
  7625. EDTFEATURETEXT
  7626. REFRESH
  7627. ProgrammaticChange,
  7628. InteractiveChangeY
  7629. BArial, 0, 8, 5, 14, 11, 20, 3, 0
  7630. Arial, 1, 8, 5, 14, 11, 14, 3, 0
  7631. qTop = 26
  7632. Left = 276
  7633. Width = 8
  7634. Height = 246
  7635. TabIndex = 9
  7636. Name = "ctlSplitter"
  7637. shpHandle.Name = "shpHandle"
  7638. frmbehindsc
  7639. ctlSplitter
  7640. control
  7641. ..\libs\tsgen.vcx
  7642. splitter
  7643. PROCEDURE Click
  7644. LOCAL lnAnswer
  7645. *-lnAnswer = MESSAGEBOX(VIEWCSDTYPRINT_LOC, ;
  7646. *-                      MB_ICONQUESTION + MB_YESNO, ;
  7647. *-                      TASTRADE_LOC)
  7648. *-IF lnAnswer = IDYES
  7649.   thisform.WaitMode(.T.)
  7650.   IF PRINTSTATUS()
  7651.     WAIT WINDOW NOWAIT PRINTING_LOC
  7652.     REPORT FORM behindsc NEXT 1 TO PRINTER NOCONSOLE
  7653.   ELSE
  7654.     =MESSAGEBOX(PRINTERNOTREADY_LOC, MB_ICONEXCLAMATION)
  7655.   ENDIF
  7656.   WAIT CLEAR
  7657.   thisform.WaitMode(.F.)
  7658. *-ENDIF
  7659. ENDPROC
  7660. Top = 288
  7661. Left = 286
  7662. Height = 25
  7663. Width = 101
  7664. Caption = "\<Print"
  7665. Enabled = .T.
  7666. MousePointer = 0
  7667. TabIndex = 8
  7668. Name = "cmdPrint"
  7669. frmbehindsc
  7670. cmdPrint
  7671. commandbutton
  7672. ..\libs\tsbase.vcx
  7673. tscommandbutton
  7674. _PROCEDURE Click
  7675. thisform.WaitMode(.T.)
  7676. thisform.ShowCode()
  7677. thisform.WaitMode(.F.)
  7678. ENDPROC
  7679. Top = 288
  7680. Left = 394
  7681. Height = 25
  7682. Width = 101
  7683. Caption = "Co\<de"
  7684. TabIndex = 7
  7685. ToolTipText = "Show method code for selected feature"
  7686. Name = "cmdCode"
  7687. frmbehindsc
  7688. cmdCode
  7689. commandbutton
  7690. ..\libs\tsbase.vcx
  7691. tscommandbutton
  7692. lPROCEDURE Click
  7693. IF WEXIST("ShowMeth")
  7694.    RELEASE WINDOW "ShowMeth"
  7695. ENDIF
  7696. RELEASE thisform
  7697. ENDPROC
  7698. Top = 288
  7699. Left = 502
  7700. Height = 25
  7701. Width = 101
  7702. Cancel = .T.
  7703. Caption = "\<Close"
  7704. Enabled = .T.
  7705. MousePointer = 0
  7706. TabIndex = 6
  7707. Name = "cmdClose"
  7708. frmbehindsc
  7709. cmdClose
  7710. commandbutton
  7711. ..\libs\tsbase.vcx
  7712. tscommandbutton
  7713. PROCEDURE Move
  7714. this.Left  = thisform.ctlSplitter.GetRightEdge() - 2
  7715. this.Width = thisform.iSplitWidth - thisform.ctlSplitter.GetLeftEdge() + thisform.ctlSplitter.width
  7716. ENDPROC
  7717. BorderStyle = 1
  7718. Height = 247
  7719. Left = 281
  7720. ReadOnly = .T.
  7721. ScrollBars = 2
  7722. TabIndex = 5
  7723. Top = 26
  7724. Width = 323
  7725. BackColor = 255,255,255
  7726. ControlSource = "behindsc.desc"
  7727. Name = "edtFeatureText"
  7728. frmbehindsc
  7729. edtFeatureText
  7730. editbox
  7731. ..\libs\tsbase.vcx
  7732.     tseditbox
  7733. FPROCEDURE Move
  7734. this.Left =  thisform.edtFeatureText.Left
  7735. ENDPROC
  7736. FontName = "Arial"
  7737. Alignment = 0
  7738. BackStyle = 1
  7739. Caption = "How I\<t Works"
  7740. Height = 17
  7741. Left = 282
  7742. Top = 7
  7743. Width = 97
  7744. TabIndex = 4
  7745. ForeColor = 0,0,0
  7746. BackColor = 192,192,192
  7747. Name = "lblHowItWorks"
  7748. frmbehindsc
  7749. lblHowItWorks
  7750. label
  7751. ..\libs\tsbase.vcx
  7752. tslabel
  7753. PROCEDURE Move
  7754. this.Width = thisform.ctlSplitter.GetLeftEdge() - this.Left
  7755. ENDPROC
  7756. PROCEDURE InteractiveChange
  7757. thisform.RefreshFeatures()
  7758. ENDPROC
  7759. PROCEDURE Requery
  7760. TSListBox::Requery
  7761. this.ListIndex = 1
  7762. ENDPROC
  7763. ColumnCount = 1
  7764. ColumnWidths = "1000"
  7765. RowSourceType = 6
  7766. RowSource = "behindsc.topic"
  7767. Value = Listbox1
  7768. ControlSource = ""
  7769. Height = 247
  7770. Left = 10
  7771. NumberOfElements = 0
  7772. TabIndex = 3
  7773. Top = 26
  7774. Width = 267
  7775. Name = "lstFeatures"
  7776. frmbehindsc
  7777. lstFeatures
  7778. listbox
  7779. ..\libs\tsbase.vcx
  7780.     tslistbox
  7781. FontName = "Arial"
  7782. Alignment = 0
  7783. BackStyle = 1
  7784. Caption = "Desi\<gn Feature"
  7785. Height = 17
  7786. Left = 10
  7787. Top = 7
  7788. Width = 104
  7789. TabIndex = 2
  7790. ForeColor = 0,0,0
  7791. BackColor = 192,192,192
  7792. Name = "lblSelectFeature"
  7793. frmbehindsc
  7794. lblSelectFeature
  7795. label
  7796. ..\libs\tsbase.vcx
  7797. tslabel
  7798. 1PROCEDURE ProgrammaticChange
  7799. this.InterActiveChange()
  7800. ENDPROC
  7801. PROCEDURE InteractiveChange
  7802. LOCAL lcValue
  7803. DO CASE
  7804.   CASE this.Value <> 1            && 1 is the "All Screens" case
  7805.     SET ORDER TO screen_top        && Order: by Screen and Topic
  7806.     lcValue = thisform.aForms[this.Value]
  7807.     SET FILTER TO screen_id = "&lcValue"
  7808.     IF !EVAL(FILTER())              && Not pointing to a valid record within filter scope
  7809.        LOCATE  
  7810.     ENDIF
  7811.   CASE this.Value = 1             && All forms
  7812.     SET FILTER TO screen_id <> "*"
  7813.     SET ORDER TO topic            && Order: Alpha by Topic
  7814. ENDCASE
  7815. thisform.LockScreen = .T.
  7816. thisform.RefreshFeatures()
  7817. THISFORM.lstFeatures.Requery()
  7818. *-- Redisplay the list of topics
  7819. thisform.edtFeatureText.Refresh()
  7820. thisform.LockScreen = .F.
  7821. ENDPROC
  7822. RowSourceType = 5
  7823. RowSource = ""
  7824. Height = 21
  7825. Left = 10
  7826. Style = 2
  7827. TabIndex = 1
  7828. Top = 288
  7829. Width = 267
  7830. Name = "cboForms"
  7831. frmbehindsc
  7832. cboForms
  7833. combobox
  7834. ..\libs\tsbase.vcx
  7835. tscombobox
  7836. ccurrentform The name of the currently active form.
  7837. isplitwidth
  7838. *refreshfeatures Refreshes the edit box containing the feature text. 
  7839. ^aobjsplitmove[1,0] This array holds references to screen objects that will need to be referenced by the splitter object to be moved.
  7840. ^aforms[1,0] Array for forms to hold scope.
  7841. *getfilename Extracts the file name from 'show code' string in behindsc.code_to_sh.
  7842. *getmethod Extracts the method name from 'show code' string in behindsc.code_to_sh.
  7843. *showcode Creates a text file with code based on instructions stored in behindsc.code_to_sh.
  7844. *getobject Extracts the object name from 'show code' string in behindsc.code_to_sh.
  7845. *extractmethod Extracts a method from the METHODS memo field of an SCX or VCX file.
  7846. *extractallmethods Extracts all methods from the METHODS memo field of an SCX or VCX file.
  7847. *extractallproperties Extracts all properties from the PROPERTIES memo field of an SCX or VCX file.
  7848. *extractprg Extracts the contents of a PRG and writes it to the output file.
  7849. *extractmultimethods Extracts multiple, but not all, methods from the METHODS memo field of an SCX or VCX file.
  7850. *extractallstoredprocs Extracts all storec procedures from a DBC file.
  7851. *extractstoredproc Extracts a single stored procedure from a DBC file.
  7852. *extractmultistoredprocs Extracts multiple, but not all, stored procedures from a DBC file.
  7853. *procstomem Dumps the contents of all stored procedures to a memory variable.
  7854. THISFORM
  7855. LOCKSCREEN
  7856. EDTFEATURETEXT
  7857. SELSTART
  7858. REFRESH
  7859. CMDCODE
  7860. ENABLED
  7861. BEHINDSC
  7862. CODE_TO_SH"
  7863. TCSTRINGq
  7864. TCSTRING
  7865. LCMETHOD
  7866. CLASS LIBRARY
  7867. PROGRAM
  7868. STORED PROCS
  7869. SNIPPETS.TXT
  7870. showmeth
  7871.  not found.
  7872. PROGRAM
  7873. STORED PROCS
  7874. sproc.txt
  7875. CLASS:
  7876. OBJECT:
  7877. OBJECT:
  7878.  was not found
  7879. PROPERTIES:
  7880. METHODS:
  7881. showmeth
  7882. viewcode
  7883. viewcode
  7884. LNOLDAREA
  7885. LNOLDREC
  7886. LNNUMSNIPS
  7887. LCTEXTFILENAME
  7888. LNFILEHANDLE    
  7889. LNCOUNTER
  7890. LCTHISLINE
  7891. LAFILETYPES
  7892. LCFILETYPE
  7893. LCFILENAME
  7894. LCOBJECT
  7895. LCMETHOD
  7896. LCSTOREDPROCFILENAME
  7897. LCSTOREDPROCS
  7898. BEHINDSC
  7899. CODE_TO_SH
  7900. SHOWMETH
  7901. THISFORM
  7902. GETFILENAME
  7903. EXTRACTPRG    
  7904. GETOBJECT    
  7905. GETMETHOD
  7906. EXTRACTALLSTOREDPROCS
  7907. PROCSTOMEM
  7908. EXTRACTMULTISTOREDPROCS
  7909. EXTRACTSTOREDPROC
  7910. OBJNAME
  7911. CLASS
  7912. PROPERTIES
  7913. EXTRACTALLPROPERTIES
  7914. EXTRACTALLMETHODS
  7915. EXTRACTMULTIMETHODS
  7916. EXTRACTMETHOD
  7917. VIEWCODE
  7918. DATASESSIONID
  7919. TCSTRING
  7920. LNSTARTWORD    
  7921. LNENDWORD
  7922. PROCEDURE 
  7923.  not found in 
  7924. ENDPROC
  7925. TNFILEHANDLE
  7926. TCMETHOD
  7927. LNMEMOLENGTH
  7928. LNMETHSTARTPOS
  7929. LCMETHOD
  7930. LNLINE
  7931. LCOUTPUTSTRING
  7932. SHOWMETH
  7933. METHODS
  7934. LNMETHENDPOS<
  7935. PROCEDURE
  7936. TNFILEHANDLE    
  7937. LCMETHODS
  7938. LNNEXTMETHOD
  7939. LCTHISMETHOD
  7940. LNLINE
  7941. LCOUTPUTSTRING
  7942. SHOWMETH
  7943. METHODSl
  7944. TNFILEHANDLE
  7945. LNLINE
  7946. SHOWMETH
  7947. PROPERTIES
  7948. PROGS\
  7949. TNOUTFILEHANDLE
  7950. TCFILENAME
  7951. LNFILEHANDLE
  7952. ERR_FOPEN_LOC
  7953. TNFILEHANDLE    
  7954. TCMETHODS    
  7955. LCMETHODS
  7956. LCTHISMETHOD
  7957. LNNEXTMETHOD
  7958. THISFORM
  7959. EXTRACTMETHOD9
  7960. TNOUTFILEHANDLE
  7961. TCTEXTFILENAME
  7962. TNFILEHANDLE
  7963. FUNCTION 
  7964.  not found in 
  7965. ENDFUNC
  7966. TNFILEHANDLE
  7967. TCPROCTOSHOW
  7968. TCSTOREDPROC
  7969. LNPROCLENGTH
  7970. LNPROCSTARTPOS
  7971. LNPROCENDPOS
  7972. LCPROC
  7973. LNLINE
  7974. LCOUTPUTSTRING
  7975. TNFILEHANDLE
  7976. TCPROCS
  7977. TCSTOREDPROC
  7978. LCPROCS
  7979. LCTHISPROC
  7980. LNNEXTPROC
  7981. THISFORM
  7982. EXTRACTSTOREDPROCz
  7983. TCSTOREDPROCFILENAME
  7984. LNFILEHANDLE
  7985. LNFILESIZE
  7986. LCSTOREDPROCS
  7987. FILESIZEE
  7988. THISFORM
  7989. LOCKSCREEN
  7990. REFRESH
  7991. CMDCODE
  7992. ENABLED
  7993. BEHINDSC
  7994. CODE_TO_SH
  7995. HISTORYC
  7996. No starting form
  7997. LCFORM
  7998. FORMISOBJECT
  7999. ACTIVEFORM
  8000. CAPTION
  8001. THISFORM
  8002. CCURRENTFORM@
  8003. oApp.oToolbarb
  8004. behindsc
  8005. thisform.aForms
  8006. behindsc
  8007. SET FILTER TO screen_id = "&lcValue"
  8008. TLMODAL
  8009. THISFORM
  8010. WINDOWTYPE
  8011. OTOOLBAR
  8012. CMDBEHINDSC
  8013. ENABLED
  8014. LNFORMINDEX
  8015. LCVALUE
  8016. TSBASEFORM
  8017. INIT    
  8018. ADDTOMENU
  8019. DISTINCT    
  8020. SCREEN_ID
  8021. BEHINDSC
  8022. AFORMS
  8023. CBOFORMS    
  8024. ROWSOURCE
  8025. AOBJSPLITMOVE
  8026. LSTFEATURES
  8027. EDTFEATURETEXT
  8028. LBLHOWITWORKS
  8029. CCURRENTFORM
  8030. VALUE
  8031. SNIPPETS.TXT
  8032. SNIPPETS.TXT
  8033. SNIPPETS.TXT0
  8034. SNIPPETS.TXT
  8035. oApp.oToolbarb
  8036. TSBASEFORM
  8037. DESTROY
  8038. THISFORM
  8039. REMOVEFROMMENU
  8040. OTOOLBAR
  8041. CMDBEHINDSC
  8042. ENABLED
  8043. AOBJSPLITMOVE
  8044. refreshfeatures,
  8045. getfilename
  8046. getmethod
  8047. showcode
  8048. getobject@
  8049. extractmethod
  8050. extractallmethods"
  8051. extractallproperties
  8052. extractprg^
  8053. extractmultimethods7
  8054. extractallstoredprocs`
  8055. extractstoredproc
  8056. extractmultistoredprocs
  8057. procstomem
  8058. refreshform
  8059. Loadc
  8060. Destroy
  8061. PLATFORM
  8062. UNIQUEID
  8063. TIMESTAMP
  8064. CLASS
  8065. CLASSLOC
  8066. BASECLASS
  8067. OBJNAME
  8068. PARENT
  8069. PROPERTIES
  8070. PROTECTED
  8071. METHODS
  8072. OBJCODE
  8073. RESERVED1
  8074. RESERVED2
  8075. RESERVED3
  8076. RESERVED4
  8077. RESERVED5
  8078. RESERVED6
  8079. RESERVED7
  8080. RESERVED8
  8081.  COMMENT Class              0
  8082.  WINDOWS _R020LYC24 547914841
  8083.  WINDOWS _R020LY9A9 514413007
  8084.  WINDOWS _R020LY9XW 514413008=
  8085.  WINDOWS _R020LYALJ 514413008)
  8086.  WINDOWS _R020LYB97 547914841
  8087.  WINDOWS _R020LYBX4 547914841
  8088.  WINDOWS _R020LYBY8 547914841
  8089.  WINDOWS _R020LYBZM 547914841
  8090.  WINDOWS _R020LYC0Q 547914841
  8091.  COMMENT RESERVED            
  8092.  WINDOWS _RAA0Z9X1Y 552290601 
  8093.  WINDOWS _RAA0ZL2L7 548031955~
  8094.  WINDOWS _RAA0ZL2MB 548031955
  8095.  WINDOWS _RAB0HPEQR 5480389361
  8096.  WINDOWS _RAB0KWVRQ 552290601&
  8097.  WINDOWS _RAB0KWVS0 552290601
  8098.  WINDOWS _RAB0KWVSA 552290601a
  8099.  WINDOWS _RAB0KWVSU 552290601N
  8100.  WINDOWS _RAB0KWVT4 5522906017
  8101.  WINDOWS _RAB0KWVTE 548032148
  8102.  COMMENT RESERVED            
  8103.  WINDOWS _RAB13IL07 552290612}
  8104.  COMMENT RESERVED            
  8105.  WINDOWS _R0O0U5K7F 552372328W
  8106.  WINDOWS _R0O0U5IZR 515862660
  8107.  WINDOWS _R0O0U5J1F 515862660
  8108.  WINDOWS _R0O0U5J33 515862660
  8109.  WINDOWS _R0O0U5J4R 515862660
  8110.  WINDOWS _R0O0U5J6F 515862660
  8111.  WINDOWS _R0O0U5J83 515862660
  8112.  WINDOWS _R0O0U5JAB 515862660
  8113.  WINDOWS _R0O0U5JC0 515862660
  8114.  WINDOWS _R0O0U5JDO 515862660
  8115.  WINDOWS _R0O0U5JFC 515862660
  8116.  WINDOWS _R0O0U5JGQ 515862660
  8117.  WINDOWS _R0O0U5JHU 515862660
  8118.  WINDOWS _R0O0U5JJ8 515862660
  8119.  WINDOWS _R0O0U5JKM 515862660
  8120.  WINDOWS _R0O0U5JM0 515862660
  8121.  WINDOWS _R0O0U5JN4 515862660
  8122.  WINDOWS _R0O0U5JOI 515862660
  8123.  WINDOWS _R0O0U5JPW 515862660
  8124.  WINDOWS _R0O0U5JRA 515862660
  8125.  WINDOWS _R0O0U5JSE 515862660
  8126.  WINDOWS _R0O0U5JTS 547907732
  8127.  WINDOWS _R0O0U5JVH 515862660}
  8128.  WINDOWS _R0O0U5JWL 551714063v
  8129.  WINDOWS _R0O0U5JY9 551714063e
  8130.  WINDOWS _R0O0U5JZX 515862660*
  8131.  WINDOWS _R0O0U5K1V 515862660
  8132.  WINDOWS _R0O0U5K2Z 515862660
  8133.  WINDOWS _R0O0U5K4D 515862660
  8134.  WINDOWS _R0O0U5K5R 515862660i
  8135.  COMMENT RESERVED            
  8136.  WINDOWS _R020LUKRI 552372347S
  8137.  COMMENT RESERVED            
  8138.  WINDOWS _QYX1F3WMQ 552372376
  8139.  WINDOWS _QYX1F3WFI 5479098258
  8140.  COMMENT RESERVED            
  8141.  WINDOWS _R2F0W4MXY 552766051r
  8142.  WINDOWS _R2F0W4MF1 520255340
  8143.  WINDOWS _R2F0W4MFV 520255340
  8144.  WINDOWS _R2F0W4MWA 520255341
  8145.  WINDOWS _R2F0W4MX4 520255341y
  8146.  COMMENT RESERVED            
  8147.  WINDOWS _R090UECC8 553359184
  8148.  COMMENT RESERVED            
  8149. VERSION =  0.029
  8150. ..\include\tastrade.h
  8151. ..\..\..\dev\foxpro.h
  8152. ..\include\strings.h
  8153. splitter
  8154. ..\include\tastrade.h
  8155. nleftedge
  8156. nrightedge
  8157. Pixels
  8158. ..\include\tastrade.h
  8159. ..\..\..\dev\foxpro.h
  8160. ..\include\strings.h
  8161. BArial, 0, 8, 5, 14, 11, 20, 3, 0
  8162. Arial, 1, 8, 5, 14, 11, 14, 3, 0
  8163. findcustomer
  8164. Pixels
  8165. A form for locating customers.
  8166. GBasic horizontal splitter control. Used in the Behind the Scenes form. 
  8167. Class
  8168. ..\include\tastrade.h
  8169. ..\..\..\dev\foxpro.h
  8170. ..\include\strings.h
  8171. control
  8172. splitter
  8173. Class
  8174. tsformretval
  8175. findcustomer
  8176. PROCEDURE Option1.Click
  8177. SET ORDER TO TAG customer_i
  8178. THISFORM.lstCustomers.Requery
  8179. ENDPROC
  8180. PROCEDURE Option2.Click
  8181. SET ORDER TO TAG company_na
  8182. THISFORM.lstCustomers.Requery
  8183. ENDPROC
  8184. tsbase.vcx
  8185. Top = 0
  8186. Left = 0
  8187. Height = 247
  8188. Width = 6
  8189. BackStyle = 0
  8190. BorderStyle = 0
  8191. BorderWidth = 0
  8192. FillStyle = 0
  8193. MousePointer = 9
  8194. SpecialEffect = 0
  8195. BackColor = 0,0,0
  8196. FillColor = 192,192,192
  8197. ClassLibrary = "c:\fox30\nwind\beta1\mainsamp\libs\nwbasobj.vcx"
  8198. Name = "shpHandle"
  8199. splitter.
  8200.     shpHandle
  8201. shape
  8202. environment
  8203. ..\include\tastrade.h
  8204. coldtalk
  8205. coldsafety
  8206. coldpath
  8207. coldproc
  8208. coldstatus
  8209. noldmemo
  8210. colddir
  8211. coldhelp
  8212. colddeleted
  8213. coldexclusive
  8214. coldclasslib
  8215. coldnotify
  8216. coldbell
  8217. coldnear
  8218. coldexact
  8219. coldmultilocks
  8220. coldintensity
  8221. coldonshutdown
  8222. coldconfirm
  8223. coldescape
  8224. Pixels
  8225. Environment Information Class
  8226. shape
  8227. nleftedge The left edge of the control.
  8228. nrightedge Right edge of control.
  8229. *getleftedge Returns the value of the nLeftEdge property.
  8230. *getrightedge Returns the value of the nRightEdge property.
  8231. *updatecontrols Called when the control has been changed.
  8232. wWidth = 6
  8233. Height = 247
  8234. SpecialEffect = 2
  8235. BackColor = 128,128,128
  8236. nleftedge = 0
  8237. nrightedge = 0
  8238. Name = "splitter"
  8239. THISFORM
  8240. CMDOK
  8241. CLICK
  8242. DblClick,
  8243.     findorder
  8244. ..\include\tastrade.h
  8245. ..\..\..\dev\foxpro.h
  8246. ..\include\strings.h
  8247. findcustomer.
  8248. 4PROCEDURE close
  8249. thisform.cmdExit.Click()
  8250. ENDPROC
  8251. control
  8252. Class
  8253. !Arial, 0, 8, 5, 14, 11, 20, 3, 0
  8254. customerinfo
  8255. ..\include\tastrade.h
  8256. Pixels
  8257. Customer Information Form Class
  8258. Class
  8259. custom
  8260. environment
  8261. custom
  8262.     introform
  8263.     container
  8264. ..\include\tastrade.h
  8265. !Arial, 0, 8, 5, 14, 11, 20, 3, 0
  8266. customerinfo
  8267. qControlSource = "customer.fax"
  8268. Height = 24
  8269. Left = 143
  8270. TabIndex = 11
  8271. Top = 290
  8272. Width = 104
  8273. Name = "txtFax"
  8274. customerinfo.
  8275. txtFax
  8276. textbox
  8277. tsbase.vcx
  8278. ]Height = 17
  8279. Width = 100
  8280. coldtalk = 
  8281. coldsafety = 
  8282. coldpath = 
  8283. coldproc = 
  8284. coldstatus = 
  8285. noldmemo = 0
  8286. colddir = 
  8287. coldhelp = 
  8288. colddeleted = 
  8289. coldexclusive = 
  8290. coldclasslib = 
  8291. coldnotify = 
  8292. coldbell = 
  8293. coldnear = 
  8294. coldexact = 
  8295. coldmultilocks = 
  8296. coldintensity = 
  8297. coldonshutdown = 
  8298. coldconfirm = 
  8299. coldescape = 
  8300. Name = "environment"
  8301. ..\include\tastrade.h
  8302. ..\..\..\dev\foxpro.h
  8303. ..\include\strings.h
  8304.     tstextbox
  8305. hCaption = "Discount"
  8306. Height = 22
  8307. Left = 391
  8308. Top = 284
  8309. Width = 77
  8310. TabIndex = 22
  8311. Name = "Tslabel3"
  8312.     daterange
  8313. ..\include\tastrade.h
  8314. Pixels
  8315. ,Custom control that accepts a range of dates
  8316. Class
  8317. control
  8318.     daterange
  8319. 7Caption = "To"
  8320. Left = 5
  8321. Top = 35
  8322. Name = "Tslabel2"
  8323.     daterange.
  8324. Tslabel2
  8325. label
  8326. tsbase.vcx
  8327. tslabel
  8328. 8Caption = "From"
  8329. Left = 5
  8330. Top = 5
  8331. Name = "Tslabel1"
  8332.     daterange.
  8333. Tslabel1
  8334. label
  8335. tsbase.vcx
  8336. tslabel
  8337.     daterange.
  8338. BArial, 0, 8, 5, 14, 11, 20, 3, 0
  8339. Arial, 1, 8, 5, 14, 11, 14, 3, 0
  8340. Pixels
  8341. First form that is displayed.
  8342. customerinfo.
  8343. PARENT
  8344. VALIDATE
  8345. VALUE
  8346. SELSTART
  8347. Valid,
  8348. gPROCEDURE Valid
  8349. IF !this.Parent.Validate()
  8350.   this.Value = {}
  8351.   this.SelStart = 0
  8352. ENDIF
  8353. ENDPROC
  8354. Alignment = 3
  8355. Value = {  /  /  }
  8356. Format = "DK"
  8357. Height = 22
  8358. Left = 90
  8359. TabIndex = 2
  8360. Top = 35
  8361. Width = 81
  8362. Name = "txtDateTo"
  8363.     txtDateTo
  8364. textbox
  8365. tsbase.vcx
  8366.     tstextbox
  8367. Alignment = 3
  8368. Value = {  /  /  }
  8369. Format = "DK"
  8370. Height = 22
  8371. Left = 90
  8372. TabIndex = 1
  8373. Top = 5
  8374. Width = 81
  8375. Name = "txtDateFrom"
  8376.     daterange.
  8377. txtDateFrom
  8378. textbox
  8379. tsbase.vcx
  8380. Class
  8381. tsformretval
  8382.     introform
  8383.     introform.
  8384. Tslabel3
  8385. label
  8386. tsbase.vcx
  8387. tslabel
  8388.     tstextbox
  8389. control
  8390. #coldtalk Value of gcOldTalk
  8391. coldsafety Value of SET('SAFETY')
  8392. coldpath Value of gcOldPath
  8393. coldproc Value of SET('PROCEDURE')
  8394. coldstatus Value of SET('STATUS BAR')
  8395. noldmemo Value of SET('MEMOWIDTH')
  8396. colddir Value of gcOldDir
  8397. coldhelp Value of SET('HELP')
  8398. colddeleted Value of SET('DELETED')
  8399. coldexclusive Value of SET('EXCLUSIVE')
  8400. coldclasslib Value of gcClassLib
  8401. coldnotify Value of SET('NOTIFY')
  8402. coldbell Value of SET('BELL')
  8403. coldnear Value of SET('NEAR')
  8404. coldexact Value of SET('EXACT')
  8405. coldmultilocks Value of SET('MULTILOCKS')
  8406. coldintensity Value of SET('INTENSITY')
  8407. coldonshutdown Value of ON('SHUTDOWN')
  8408. coldconfirm Value of SET('CONFIRM')
  8409. coldescape Value of gcOldEscape
  8410. coldcompatible
  8411. *set Sets all the SET commands.
  8412. *reset Resets the SET commands to their original value
  8413. TXTDATEFROM
  8414. VALUEB
  8415. THIS    
  8416. TXTDATETO
  8417. VALUEt
  8418. 'To' date cannot be less than 'From' date.
  8419. THIS    
  8420. TXTDATETO
  8421. VALUE
  8422. TXTDATEFROM
  8423. getdatefrom,
  8424. getdateto\
  8425. validate
  8426. PROCEDURE Unload
  8427. IF USED("orders")
  8428.     SELECT orders
  8429. ENDIF
  8430. tsFormRetVal::Unload
  8431. ENDPROC
  8432. PROCEDURE Load
  8433. tsFormRetVal::Load
  8434. IF !USED("customer")
  8435.     USE customer ORDER TAG "company_na" IN 0
  8436. ENDIF
  8437. SELECT customer
  8438. GO TOP
  8439. ENDPROC
  8440. DataSession = 2
  8441. Height = 280
  8442. Width = 450
  8443. DoCreate = .T.
  8444. Picture = 
  8445. Caption = "Find Customer"
  8446. Icon = 
  8447. uretval = 
  8448. Name = "findcustomer"
  8449. tscommandbutton
  8450. customerinfo.
  8451. ..\include\tastrade.h
  8452. ..\..\..\dev\foxpro.h
  8453. ..\include\strings.h
  8454. customer.min_order_amt
  8455. CUSTOMER
  8456. MIN_ORDER_AMT
  8457. MAX_ORDER_AMT
  8458. Valid,
  8459. RPROCEDURE Click
  8460. THISFORM.uRetVal = customer.customer_id
  8461. THISFORM.Hide
  8462. ENDPROC
  8463. Tsoptiongroup1
  8464. optiongroup
  8465. tsbase.vcx
  8466. H*close Called by the attached menu, INTRO.MPR, to shut down this form.
  8467. gCaption = "Minimum"
  8468. Height = 22
  8469. Left = 391
  8470. Top = 259
  8471. Width = 77
  8472. TabIndex = 20
  8473. Name = "Tslabel2"
  8474. Tslabel2
  8475. FontSize = 18
  8476. Alignment = 0
  8477. Caption = "Welcome to Tasmanian Traders"
  8478. Height = 26
  8479. Left = 10
  8480. Top = 5
  8481. Width = 396
  8482. TabIndex = 8
  8483. Name = "Tslabel4"
  8484. Tslabel4
  8485. label
  8486. tsbase.vcx
  8487. tslabel
  8488. FontBold = .F.
  8489. FontSize = 10
  8490. WordWrap = .T.
  8491. Alignment = 0
  8492. Caption = 'To learn how a particular feature was implemented, explore "Behind the Scenes" at any time.'
  8493. Height = 61
  8494. Left = 10
  8495. Top = 210
  8496. Width = 276
  8497. TabIndex = 7
  8498. Name = "Tslabel3"
  8499.     introform.
  8500. Tslabel3
  8501. label
  8502. tsbase.vcx
  8503. tslabel
  8504. |FontBold = .F.
  8505. FontSize = 10
  8506. WordWrap = .T.
  8507. Alignment = 0
  8508. Caption = "The goal of the sample is to provide a single integrated business application designed around realistic business scenarios to illustrate many of the new features and capabilities of application development in Visual FoxPro."
  8509. Height = 96
  8510. Left = 10
  8511. Top = 105
  8512. Width = 277
  8513. TabIndex = 6
  8514. Name = "Tslabel2"
  8515.     introform.
  8516. Tslabel2
  8517. label
  8518. tsbase.vcx
  8519. tslabel
  8520.     introform.
  8521. label
  8522. tsbase.vcx
  8523. tslabel
  8524. iCaption = "Maximum"
  8525. Height = 22
  8526. Left = 391
  8527. Top = 234
  8528. Width = 77
  8529. TabIndex = 19
  8530. Name = "lblMaximum"
  8531. FontBold = .F.
  8532. FontSize = 10
  8533. WordWrap = .T.
  8534. Alignment = 0
  8535. Caption = "This application demonstrates a broad sample of features and development techniques of Visual FoxPro in a discoverable environment."
  8536. Height = 61
  8537. Left = 10
  8538. Top = 40
  8539. Width = 277
  8540. TabIndex = 5
  8541. Name = "Tslabel1"
  8542. Tslabel1
  8543. label
  8544. tsbase.vcx
  8545. tslabel
  8546. tsoptiongroup
  8547. YCaption = "Order by"
  8548. Height = 22
  8549. Left = 109
  8550. Top = 210
  8551. Width = 53
  8552. Name = "Tslabel5"
  8553. findcustomer.
  8554. Tslabel5
  8555.     introform.
  8556. customerinfo.
  8557. lblMaximum
  8558. label
  8559. tsbase.vcx
  8560. PROCEDURE Click
  8561. *-- Write value to INI file
  8562. LOCAL lcValue
  8563. lcValue = STR(this.Value, 1)
  8564. =WritePrivStr("Defaults", "ShowIntroForm", lcValue, CURDIR() + INIFILE)
  8565. ENDPROC
  8566. Top = 280
  8567. Left = 15
  8568. Height = 15
  8569. Width = 206
  8570. Caption = "\<Show This Form at Startup"
  8571. Value = 1
  8572. Name = "chkShowAtStartup"
  8573. chkShowAtStartup
  8574. tslabel
  8575. Alignment = 3
  8576. Value = 
  8577. ControlSource = "customer.discount"
  8578. Height = 22
  8579. InputMask = "99"
  8580. Left = 479
  8581. TabIndex = 14
  8582. Top = 284
  8583. Width = 44
  8584. Name = "txtDiscount"
  8585. checkbox
  8586. tsbase.vcx
  8587. tscheckbox
  8588. ScaleMode = 3
  8589. Height = 328
  8590. Width = 469
  8591. DoCreate = .T.
  8592. Picture = ..\bitmaps\ttradelg.bmp
  8593. Caption = "Introductory Form"
  8594. Closable = .F.
  8595. uretval = 2
  8596. Name = "introform"
  8597. tscommandbutton
  8598. customerinfo.
  8599. txtDiscount
  8600. textbox
  8601. tsbase.vcx
  8602. 7PROCEDURE Click
  8603. DO FORM behindsc WITH .T.
  8604. ENDPROC
  8605. vTop = 300
  8606. Left = 260
  8607. Height = 22
  8608. Width = 121
  8609. Caption = "\<Behind the Scenes"
  8610. TabIndex = 3
  8611. Name = "cmdBehindSC"
  8612.     introform.
  8613. cmdBehindSC
  8614. commandbutton
  8615. tsbase.vcx
  8616. tscommandbutton
  8617.     tstextbox
  8618. PROCEDURE Valid
  8619. IF customer.min_order_amt > customer.max_order_amt
  8620.     REPLACE customer.min_order_amt WITH OLDVAL("customer.min_order_amt")
  8621.     RETURN 0
  8622. ENDIF
  8623. ENDPROC
  8624. customerinfo.
  8625. jBorderStyle = 0
  8626. Height = 20
  8627. Left = 171
  8628. Top = 204
  8629. Width = 169
  8630. Name = "Tsoptiongroup1"
  8631. Option1.FontBold = .T.
  8632. Option1.Caption = "Customer ID"
  8633. Option1.Value = 1
  8634. Option1.Left = 5
  8635. Option1.Top = 5
  8636. Option1.Name = "Option1"
  8637. Option2.FontBold = .T.
  8638. Option2.Caption = "Company"
  8639. Option2.Value = 0
  8640. Option2.Left = 90
  8641. Option2.Top = 5
  8642. Option2.Name = "Option2"
  8643. label
  8644. tsbase.vcx
  8645. tslabel
  8646. eAlignment = 0
  8647. Caption = "Contact"
  8648. Height = 22
  8649. Left = 222
  8650. Top = 8
  8651. Width = 77
  8652. Name = "Tslabel4"
  8653. findcustomer.
  8654. THISFORM
  8655. Click,
  8656. Pixels
  8657. customer.max_order_amt
  8658. CUSTOMER
  8659. MIN_ORDER_AMT
  8660. MAX_ORDER_AMT
  8661. Valid,
  8662. Alignment = 3
  8663. Value = 
  8664. ControlSource = "customer.min_order_amt"
  8665. Format = "K$"
  8666. Height = 22
  8667. InputMask = "999,999,999.99"
  8668. Left = 479
  8669. TabIndex = 13
  8670. Top = 259
  8671. Width = 100
  8672. Name = "txtMin_Ord_Amt"
  8673. txtMin_Ord_Amt
  8674. textbox
  8675. Tslabel4
  8676. label
  8677. tsbase.vcx
  8678. tslabel
  8679. bAlignment = 0
  8680. Caption = "City"
  8681. Height = 12
  8682. Left = 345
  8683. Top = 8
  8684. Width = 77
  8685. Name = "Tslabel3"
  8686. findcustomer.
  8687. tsbase.vcx
  8688. BArial, 0, 8, 5, 14, 11, 20, 3, 0
  8689. Arial, 1, 8, 5, 14, 11, 14, 3, 0
  8690. Tslabel3
  8691. label
  8692. tsbase.vcx
  8693.     introform.
  8694. application
  8695. ..\include\tastrade.h
  8696. ocmainmenu
  8697. cdatabase
  8698. coldwindcaption
  8699. nforminstancecount
  8700. lisclean
  8701. atoolbars
  8702. releasetoolbars
  8703. showtoolbars
  8704. Pixels
  8705. Standard Application Class
  8706. Class
  8707. tslabel
  8708. dAlignment = 0
  8709. Caption = "Company"
  8710. Height = 22
  8711. Left = 64
  8712. Top = 8
  8713. Width = 77
  8714. Name = "Tslabel2"
  8715. findcustomer.
  8716.     tstextbox
  8717. THISFORM
  8718. URETVAL
  8719. CUSTOMER
  8720. CUSTOMER_ID
  8721. Click,
  8722. PROCEDURE Valid
  8723. IF customer.min_order_amt > customer.max_order_amt
  8724.     REPLACE customer.max_order_amt WITH OLDVAL("customer.max_order_amt")
  8725.     RETURN 0
  8726. ENDIF
  8727. ENDPROC
  8728. Alignment = 3
  8729. Value = 
  8730. ControlSource = "customer.max_order_amt"
  8731. Format = "K$"
  8732. Height = 22
  8733. InputMask = "999,999,999.99"
  8734. Left = 479
  8735. TabIndex = 12
  8736. Top = 234
  8737. Width = 100
  8738. Name = "txtMax_Ord_Amt"
  8739. customerinfo.
  8740. txtMax_Ord_Amt
  8741. textbox
  8742. tsbase.vcx
  8743.     tstextbox
  8744. FTop = 220
  8745. Left = 385
  8746. Height = 95
  8747. Width = 200
  8748. Name = "Ts3dshape1"
  8749. customerinfo.
  8750. Ts3dshape1
  8751. shape
  8752. tsbase.vcx
  8753.     ts3dshape
  8754. Value = 
  8755. ControlSource = "Customer.customer_id"
  8756. Format = "K!"
  8757. Height = 24
  8758. Left = 143
  8759. TabIndex = 1
  8760. Top = 12
  8761. Width = 116
  8762. DisabledBackColor = 255,255,255
  8763. Name = "txtCustomer_ID"
  8764. customerinfo.
  8765. txtCustomer_ID
  8766. textbox
  8767. tsbase.vcx
  8768.     tstextbox
  8769. jCaption = "Customer ID"
  8770. Height = 22
  8771. Left = 13
  8772. Top = 12
  8773. Width = 121
  8774. TabIndex = 28
  8775. Name = "Tslabel1"
  8776. customerinfo.
  8777. Tslabel1
  8778. label
  8779. tsbase.vcx
  8780. tslabel
  8781. sAlignment = 1
  8782. Caption = "Fax"
  8783. Height = 17
  8784. Left = 11
  8785. Top = 291
  8786. Width = 121
  8787. TabIndex = 27
  8788. Name = "Tslabel21"
  8789. customerinfo.
  8790.     Tslabel21
  8791. label
  8792. tsbase.vcx
  8793. tslabel
  8794. uAlignment = 1
  8795. Caption = "Phone"
  8796. Height = 17
  8797. Left = 11
  8798. Top = 263
  8799. Width = 121
  8800. TabIndex = 26
  8801. Name = "Tslabel20"
  8802. customerinfo.
  8803.     Tslabel20
  8804. label
  8805. tsbase.vcx
  8806. tslabel
  8807. wAlignment = 1
  8808. Caption = "Country"
  8809. Height = 17
  8810. Left = 11
  8811. Top = 235
  8812. Width = 121
  8813. TabIndex = 25
  8814. Name = "Tslabel19"
  8815. customerinfo.
  8816.     Tslabel19
  8817. label
  8818. tsbase.vcx
  8819. tslabel
  8820. {Alignment = 1
  8821. Caption = "Postal Code"
  8822. Height = 17
  8823. Left = 11
  8824. Top = 207
  8825. Width = 121
  8826. TabIndex = 24
  8827. Name = "Tslabel18"
  8828. customerinfo.
  8829.     Tslabel18
  8830. label
  8831. tsbase.vcx
  8832. tslabel
  8833. vAlignment = 1
  8834. Caption = "Region"
  8835. Height = 17
  8836. Left = 11
  8837. Top = 179
  8838. Width = 121
  8839. TabIndex = 23
  8840. Name = "Tslabel17"
  8841. customerinfo.
  8842. custom
  8843. application
  8844. Height = 34
  8845. Width = 92
  8846. cmainwindcaption = 
  8847. cmainmenu = MAIN.MPR
  8848. cdatabase = 
  8849. coldwindcaption = 
  8850. nforminstancecount = 0
  8851. otoolbar = .NULL.
  8852. Name = "application"
  8853. custom
  8854.     Tslabel17
  8855. label
  8856. tsbase.vcx
  8857. tslabel
  8858. tAlignment = 1
  8859. Caption = "City"
  8860. Height = 17
  8861. Left = 11
  8862. Top = 151
  8863. Width = 121
  8864. TabIndex = 21
  8865. Name = "Tslabel16"
  8866. customerinfo.
  8867.     Tslabel16
  8868. label
  8869. tsbase.vcx
  8870. tslabel
  8871. wAlignment = 1
  8872. Caption = "Address"
  8873. Height = 17
  8874. Left = 11
  8875. Top = 123
  8876. Width = 121
  8877. TabIndex = 18
  8878. Name = "Tslabel15"
  8879. customerinfo.
  8880.     Tslabel15
  8881. label
  8882. tsbase.vcx
  8883. tslabel
  8884. tAlignment = 1
  8885. Caption = "Title"
  8886. Height = 17
  8887. Left = 11
  8888. Top = 95
  8889. Width = 121
  8890. TabIndex = 17
  8891. Name = "Tslabel14"
  8892. customerinfo.
  8893. *getdatefrom Returns the date entered into the txtDateFrom textbox.
  8894. *getdateto Returns the date entered into the txtDateTo textbox. 
  8895. *validate Validates both dates.
  8896. gWidth = 184
  8897. Height = 63
  8898. BackStyle = 0
  8899. BorderWidth = 0
  8900. BackColor = 192,192,192
  8901. Name = "daterange"
  8902. behindsc
  8903. BEHINDSC
  8904. Click,
  8905. tsbase.vcx
  8906.     tsgen.vcx
  8907.     Tslabel14
  8908. label
  8909. tsbase.vcx
  8910. tslabel
  8911. vAlignment = 1
  8912. Caption = "Contact"
  8913. Height = 17
  8914. Left = 11
  8915. Top = 67
  8916. Width = 121
  8917. TabIndex = 16
  8918. Name = "Tslabel13"
  8919. customerinfo.
  8920.     Tslabel13
  8921. label
  8922. tsbase.vcx
  8923. tslabel
  8924. vAlignment = 1
  8925. Caption = "Company"
  8926. Height = 22
  8927. Left = 11
  8928. Top = 39
  8929. Width = 121
  8930. TabIndex = 15
  8931. Name = "Tslabel12"
  8932. customerinfo.
  8933.     Tslabel12
  8934. label
  8935. tsbase.vcx
  8936. tslabel
  8937. Value = 
  8938. ControlSource = "customer.phone"
  8939. Height = 24
  8940. Left = 143
  8941. TabIndex = 10
  8942. Top = 263
  8943. Width = 104
  8944. Name = "txtPhone"
  8945. customerinfo.
  8946. txtPhone
  8947. textbox
  8948. tsbase.vcx
  8949.     tstextbox
  8950. Value = 
  8951. ControlSource = "customer.country"
  8952. Height = 24
  8953. Left = 143
  8954. TabIndex = 9
  8955. Top = 235
  8956. Width = 125
  8957. Name = "txtCountry"
  8958. customerinfo.
  8959. txtCountry
  8960. textbox
  8961. tsbase.vcx
  8962.     tstextbox
  8963. Alignment = 3
  8964. Value = 
  8965. ControlSource = "customer.postal_code"
  8966. Height = 24
  8967. Left = 143
  8968. TabIndex = 8
  8969. Top = 207
  8970. Width = 125
  8971. Name = "txtPostal_Code"
  8972. customerinfo.
  8973. txtPostal_Code
  8974. textbox
  8975. tsbase.vcx
  8976.     tstextbox
  8977. Value = 
  8978. ControlSource = "customer.region"
  8979. Height = 24
  8980. Left = 143
  8981. TabIndex = 7
  8982. Top = 179
  8983. Width = 221
  8984. Name = "txtRegion"
  8985. customerinfo.
  8986.     txtRegion
  8987. textbox
  8988. tsbase.vcx
  8989.     tstextbox
  8990. |Value = 
  8991. ControlSource = "customer.city"
  8992. Height = 24
  8993. Left = 143
  8994. TabIndex = 6
  8995. Top = 151
  8996. Width = 221
  8997. Name = "txtCity"
  8998. customerinfo.
  8999. txtCity
  9000. textbox
  9001. tsbase.vcx
  9002.     tstextbox
  9003. Value = 
  9004. ControlSource = "customer.address"
  9005. Height = 24
  9006. Left = 143
  9007. TabIndex = 5
  9008. Top = 123
  9009. Width = 446
  9010. Name = "txtAddress"
  9011. customerinfo.
  9012. txtAddress
  9013. textbox
  9014. tsbase.vcx
  9015.     tstextbox
  9016. Value = 
  9017. ControlSource = "customer.contact_title"
  9018. Height = 24
  9019. Left = 143
  9020. TabIndex = 4
  9021. Top = 95
  9022. Width = 221
  9023. Name = "txtContact_Title"
  9024. customerinfo.
  9025. txtContact_Title
  9026. textbox
  9027. Tslabel2
  9028. label
  9029. tsbase.vcx
  9030. tslabel
  9031. dAlignment = 0
  9032. Caption = "Cust ID"
  9033. Height = 16
  9034. Left = 17
  9035. Top = 8
  9036. Width = 44
  9037. Name = "Tslabel1"
  9038. findcustomer.
  9039. Tslabel1
  9040. label
  9041. tsbase.vcx
  9042. tslabel
  9043. THISFORM
  9044. URETVAL
  9045. VISIBLE
  9046. Click,
  9047. 5PROCEDURE DblClick
  9048. THISFORM.cmdOK.Click
  9049. ENDPROC
  9050. findcustomer.
  9051. lstCustomers
  9052. listbox
  9053. tsbase.vcx
  9054. tsbase.vcx
  9055.     tslistbox
  9056. )PROCEDURE Click
  9057. THISFORM.Hide
  9058. ENDPROC
  9059. tsbase.vcx
  9060. commandbutton
  9061. cmdContinue
  9062.     introform.
  9063. YTop = 242
  9064. Left = 231
  9065. Width = 96
  9066. Cancel = .T.
  9067. Caption = "Cancel"
  9068. Name = "cmdCancel"
  9069. A form for locating orders.
  9070. {Top = 300
  9071. Left = 10
  9072. Height = 22
  9073. Width = 121
  9074. Caption = "\<Continue"
  9075. Default = .T.
  9076. TabIndex = 1
  9077. Name = "cmdContinue"
  9078. tscommandbutton
  9079. bPROCEDURE Click
  9080. SET SYSMENU TO DEFAULT
  9081. thisform.uRetVal = 2
  9082. thisform.Visible = .F.
  9083. ENDPROC
  9084. sTop = 300
  9085. Left = 135
  9086. Height = 22
  9087. Width = 121
  9088. Cancel = .T.
  9089. Caption = "E\<xit"
  9090. TabIndex = 2
  9091. Name = "cmdExit"
  9092. cmdExit
  9093. commandbutton
  9094. tsbase.vcx
  9095. JPROCEDURE Click
  9096. thisform.uRetVal = 1
  9097. thisform.Visible = .F.
  9098. ENDPROC
  9099. 0cmainwindcaption The caption of the main window for this application.
  9100. cmainmenu Name of main menu to run (.MPR file).
  9101. cdatabase The name of the database to use for this application.
  9102. coldwindcaption The name of the main window caption before this application was started.
  9103. nforminstancecount The number of form instances currently open.
  9104. otoolbar A reference to the navigation toolbar.
  9105. lisclean Indicates if environment is "clean". 
  9106. lseterroroff Disable error handling
  9107. lhaderror An error occurred while error handling was disabled.
  9108. lquitting In the process of shutting down
  9109. ^atoolbars[1,1] Array of VFP toolbar names, and if they were open when the application started.
  9110. *do Puts up the main menu and runs the application. 
  9111. *cleanup Closes all windows, restores the main window caption, restores the VFP menu, etc.
  9112. *doform Takes a form name as a  parameter, runs the form, and puts up a toolbar if necessary.
  9113. *doformretval Similar to DoForm, except that this method is designed to work with forms that return a value, and are not stored in an SCX. 
  9114. *login Puts up a login form, and returns the value returned by that form. 
  9115. *releasetoolbars Releases all VFP toolbars.
  9116. *showtoolbars Shows all VFP toolbars that were active when application was started.
  9117. *shownavtoolbar Creates the navigation toolbar. Called from each form's Load() event method.
  9118. *domenu Puts up the main menu.
  9119. *releasenavtoolbar Removes the toolbar whose name is stored in the cToolBar property of the active form.
  9120. *addinstance Adds an instance or increases the count of an existing instance in the aInstance[] array. 
  9121. *removeinstance Removes an instance or decrements the number instances in the aInstance[] array.
  9122. ^ainstances[1,4] Contains form names, object references, the number of current running instances, and the next available instance number.
  9123. NBUTTON
  9124. NSHIFT
  9125. NXCOORD
  9126. NYCOORD
  9127. LNOLDPOS
  9128. LNAVGCHARWIDTH
  9129. LNMINPOS
  9130. LNMAXPOS
  9131. LNCURPOS
  9132. LNPARENTLEFT
  9133. PARENT
  9134. UPDATECONTROLS    
  9135. MouseDown,
  9136. THIS    
  9137. NLEFTEDGE
  9138. NRIGHTEDGE
  9139. LNOBJCTR
  9140. THIS    
  9141. NLEFTEDGE
  9142. NRIGHTEDGE
  9143. WIDTH
  9144. ACTIVEFORM
  9145. LOCKSCREEN
  9146. THISFORM
  9147. LSETERROROFF
  9148. PARENT
  9149. AOBJSPLITMOVE
  9150. MOVE    
  9151. LHADERROR
  9152. REFRESH
  9153. m.gTTradeb
  9154. This class cannot be used outside of the Tastrade application.
  9155. GTTRADE
  9156. getleftedge,
  9157. getrightedgeP
  9158. updatecontrolsu
  9159.     findorder
  9160. findcustomer
  9161. tscommandbutton
  9162. BoundColumn = 1
  9163. ColumnCount = 4
  9164. ColumnWidths = "40,155,120,70"
  9165. RowSourceType = 6
  9166. RowSource = "customer_id,company_name, contact_name,city"
  9167. ControlSource = ""
  9168. Height = 169
  9169. Left = 15
  9170. Top = 24
  9171. Width = 420
  9172. BoundTo = .T.
  9173. Name = "lstCustomers"
  9174. findcustomer.
  9175.     cmdCancel
  9176.     tstextbox
  9177. Value = 
  9178. ControlSource = "customer.contact_name"
  9179. Height = 24
  9180. Left = 143
  9181. TabIndex = 3
  9182. Top = 67
  9183. Width = 221
  9184. Name = "txtContact_Name"
  9185. customerinfo.
  9186. txtContact_Name
  9187. textbox
  9188. tsbase.vcx
  9189.     tstextbox
  9190. Value = 
  9191. ControlSource = "Customer.company_name"
  9192. Height = 24
  9193. Left = 143
  9194. TabIndex = 2
  9195. Top = 39
  9196. Width = 341
  9197. Name = "txtCompany_Name"
  9198. customerinfo.
  9199. txtCompany_Name
  9200. textbox
  9201. tsbase.vcx
  9202.     tstextbox
  9203. ~Width = 599
  9204. Height = 321
  9205. BackStyle = 0
  9206. BorderWidth = 0
  9207. Comment = "(c) Microsoft Corporation 1995"
  9208. Name = "customerinfo"
  9209.     container
  9210. cmdOK
  9211. commandbutton
  9212. findcustomer.
  9213. RTop = 242
  9214. Left = 123
  9215. Width = 96
  9216. Caption = "OK"
  9217. Default = .T.
  9218. Name = "cmdOK"
  9219. tsbase.vcx
  9220. orders
  9221. orders
  9222. "order_id"
  9223. TSFORMRETVAL
  9224. ORDERS 
  9225. THISFORM
  9226. URETVAL
  9227. ORDERS
  9228. ORDER_ID
  9229. HIDE!
  9230. order_id
  9231. ORDER_ID
  9232. THISFORM
  9233. LSTCUSTOMERS
  9234. REQUERY#
  9235. customer_i
  9236. CUSTOMER_I
  9237. THISFORM
  9238. LSTCUSTOMERS
  9239. REQUERY
  9240. Load,
  9241. cmdOK.Click
  9242. Tsoptiongroup1.Option1.Click
  9243. Tsoptiongroup1.Option2.ClickB
  9244. Defaults
  9245. ShowIntroForm
  9246. TASTRADE.INI
  9247. LCVALUE
  9248. VALUE
  9249. WRITEPRIVSTR
  9250. Click,
  9251. Class
  9252. commandbutton
  9253. tsbase.vcx
  9254. customer_i
  9255. CUSTOMER_I
  9256. THISFORM
  9257. LSTCUSTOMERS
  9258. REQUERY#
  9259. company_na
  9260. COMPANY_NA
  9261. THISFORM
  9262. LSTCUSTOMERS
  9263. REQUERY
  9264. Option1.Click,
  9265. Option2.Click
  9266. THISFORM
  9267. URETVAL
  9268. VISIBLE
  9269. Click,
  9270. (PROCEDURE MouseDown
  9271. PARAMETERS nButton, nShift, nXCoord, nYCoord
  9272. LOCAL lnOldPos, ;
  9273.       lnAvgCharWidth, ;
  9274.       lnMinPos, ;
  9275.       lnMaxPos, ;
  9276.       lnCurPos, ;
  9277.       lnParentLeft
  9278.       
  9279. lnOldPos = this.parent.Left
  9280. lnAvgCharWidth = FONTMETRIC(6)
  9281. lnParentLeft = this.Parent.Left
  9282. lnMinPos = I_SHPMIN
  9283. lnMaxPos = lnMinPos + I_SHPMAX
  9284. DO WHILE MDOWN()
  9285.     lnCurPos = MCOL() * lnAvgCharWidth
  9286.     this.parent.Move(MAX(lnMinPos, MIN(lnCurPos, lnMaxPos)))
  9287. ENDDO
  9288. IF this.Left <> lnOldPos
  9289.   this.Parent.UpdateControls()
  9290. endif
  9291. ENDPROC
  9292. orders
  9293. ORDERS
  9294. TSFORMRETVAL
  9295. UNLOAD]
  9296. customer
  9297. customer
  9298. "company_na"
  9299. TSFORMRETVAL
  9300. CUSTOMER
  9301. Unload,
  9302. THISFORM
  9303. CMDEXIT
  9304. CLICK
  9305. close,
  9306. yPROCEDURE getdatefrom
  9307. RETURN this.txtDateFrom.Value
  9308. ENDPROC
  9309. PROCEDURE getdateto
  9310. IF EMPTY(this.txtDateTo.Value)
  9311.   *-- If the To date is empty, return a value in the distant future
  9312.   RETURN date() + 100000
  9313.   RETURN this.txtDateTo.Value
  9314. ENDIF
  9315. ENDPROC
  9316. PROCEDURE validate
  9317. *-- (c) Microsoft Corporation 1995
  9318. *-- If the To date is less than the From date and the From date
  9319. *-- is not empty, display an error message
  9320. IF this.txtDateTo.Value < this.txtDateFrom.Value AND ;
  9321.      !EMPTY(this.txtDateFrom.Value)
  9322.    =MESSAGEBOX(DATERANGEERROR_LOC, ;
  9323.               MB_ICONEXCLAMATION)
  9324.   RETURN .F.
  9325. ENDIF
  9326. ENDPROC
  9327. PROCEDURE Load
  9328. tsFormRetVal::Load
  9329. IF !USED("orders")
  9330.     USE orders ORDER TAG "order_id" IN 0
  9331. ENDIF
  9332. SELECT orders
  9333. GO TOP
  9334. ENDPROC
  9335. PROCEDURE cmdOK.Click
  9336. THISFORM.uRetVal = orders.order_id
  9337. THISFORM.Hide
  9338. ENDPROC
  9339. PROCEDURE Tsoptiongroup1.Option1.Click
  9340. SET ORDER TO TAG order_id
  9341. THISFORM.lstCustomers.Requery
  9342. ENDPROC
  9343. PROCEDURE Tsoptiongroup1.Option2.Click
  9344. SET ORDER TO TAG customer_i
  9345. THISFORM.lstCustomers.Requery
  9346. ENDPROC
  9347. UTILITY.PRG
  9348. TSBASE
  9349. TSGEN
  9350. LOGIN
  9351. ORDERS
  9352. HELP\TTRADE.HLP
  9353. DO OnShutDown
  9354. UTILITY
  9355. TSBASE
  9356. TSGEN
  9357. LOGIN
  9358. ORDERS
  9359. SET CLASSLIB TO  &luTemp
  9360. SET PROCEDURE TO &luTemp
  9361. SET MULTILOCKS &luTemp
  9362. SET SAFETY &luTemp
  9363. SET STATUS BAR &luTemp
  9364. SET DELETED &luTemp
  9365. SET EXCLUSIVE &luTemp
  9366. SET NOTIFY &luTemp
  9367. SET BELL &luTemp
  9368. SET NEAR &luTemp
  9369. SET EXACT &luTemp
  9370. SET INTENSITY &luTemp
  9371. SET CONFIRM &luTemp
  9372. ON SHUTDOWN &luTemp
  9373. SET ESCAPE &luTemp
  9374. SET COMPATIBLE &luTemp
  9375. SET TALK &luTemp
  9376. LUTEMP
  9377. COLDPATH
  9378. COLDCLASSLIB
  9379. COLDPROC
  9380. NOLDMEMO
  9381. COLDMULTILOCKS
  9382. COLDSAFETY
  9383. COLDSTATUS
  9384. COLDDIR
  9385. COLDDELETED
  9386. COLDEXCLUSIVE
  9387. COLDHELP
  9388. COLDNOTIFY
  9389. COLDBELL
  9390. COLDNEAR    
  9391. COLDEXACT
  9392. COLDINTENSITY
  9393. COLDCONFIRM
  9394. COLDONSHUTDOWN
  9395. COLDESCAPE
  9396. COLDCOMPATIBLE
  9397. COLDTALK
  9398. RESETh
  9399. m.gTTradeb
  9400. This class cannot be used outside of the Tastrade application.
  9401. SAFETYv
  9402. PROCEDUREv
  9403. STATUS BARv
  9404. MEMOWIDTHv
  9405. MULTILOCKSv
  9406. DELETEDv
  9407. EXCLUSIVEv
  9408. NOTIFYv
  9409. BELLv
  9410. NEARv
  9411. EXACTv
  9412. INTENSITYv
  9413. CONFIRMv
  9414. SHUTDOWN
  9415. COMPATIBLEv
  9416. GTTRADE
  9417. COLDTALK    
  9418. GCOLDTALK
  9419. COLDPATH    
  9420. GCOLDPATH
  9421. COLDDIR
  9422. GCOLDDIR
  9423. COLDCLASSLIB
  9424. GCOLDCLASSLIB
  9425. COLDESCAPE
  9426. GCOLDESCAPE
  9427. COLDSAFETY
  9428. COLDPROC
  9429. COLDSTATUS
  9430. NOLDMEMO
  9431. COLDMULTILOCKS
  9432. COLDHELP
  9433. COLDDELETED
  9434. COLDEXCLUSIVE
  9435. COLDNOTIFY
  9436. COLDBELL
  9437. COLDNEAR    
  9438. COLDEXACT
  9439. COLDINTENSITY
  9440. COLDCONFIRM
  9441. COLDONSHUTDOWN
  9442. COLDCOMPATIBLE
  9443. resetP
  9444. Destroy[
  9445. Init|
  9446. PROCEDURE Error
  9447. LPARAMETERS nError, cMethod, nLine
  9448. LOCAL laError[AERRORARRAY], ;
  9449.       lcMessage
  9450.       
  9451. *- make the Tastrade database is selecected
  9452. IF EMPTY(DBC())
  9453.     SET DATABASE TO Tastrade
  9454. ENDIF
  9455. =AERROR(laError)
  9456. DO CASE
  9457.   CASE nError = 1884        && Primary key violated
  9458.     ?? CHR(7)
  9459.     =MESSAGEBOX(CUSTIDEXISTS_LOC, ;
  9460.                 MB_ICONEXCLAMATION, ;
  9461.                 TASTRADE_LOC)
  9462.     this.txtCustomer_ID.SetFocus()
  9463.   CASE nError = 1582        && Field rule violated
  9464.     ?? CHR(7)
  9465.     *-lcMessage = DBGETPROP(ALIAS() + "." + laError[3], "Field", "RuleText")
  9466.     *- lcMessage = STRTRAN(lcMessage, '"', '')
  9467.     lcMessage = laError[3]
  9468.     =MESSAGEBOX(lcMessage, ;
  9469.                 MB_ICONEXCLAMATION, ;
  9470.                 TASTRADE_LOC)
  9471.     DO CASE
  9472.       CASE LEFT(UPPER(laError[3]),11) = "CUSTOMER ID"
  9473.         this.txtCustomer_ID.SetFocus()
  9474.       CASE LEFT(UPPER(laError[3]),12) = "COMPANY NAME"
  9475.         this.txtCompany_Name.SetFocus()
  9476.       CASE UPPER(LEFT(laError[3],7)) = "MINIMUM"
  9477.         this.txtMin_Ord_Amt.SetFocus()
  9478.       CASE UPPER(LEFT(laError[3],7)) = "MAXIMUM"
  9479.         this.txtMax_Ord_Amt.SetFocus()
  9480.     ENDCASE
  9481.     OTHERWISE
  9482.         IF PEMSTATUS("THIS.PARENT","ERROR",5) == "Method"
  9483.             THIS.PARENT.ERROR(nError, cMethod, nLine)
  9484.         ENDIF
  9485. ENDCASE
  9486. ENDPROC
  9487. PROCEDURE Init
  9488. *- this class can't be used independent of the application
  9489. IF TYPE("m.gTTrade") # 'L' OR !m.gTTrade
  9490.     =MESSAGEBOX(CLASSBROWERR_LOC)
  9491.     RETURN .F.
  9492. ENDIF
  9493. ENDPROC
  9494. Tastrade
  9495. Customer ID already exists. Please re-enter.
  9496. Tasmanian Traders
  9497. Tasmanian Traders
  9498. CUSTOMER ID
  9499. COMPANY NAME
  9500. MINIMUM
  9501. MAXIMUM
  9502. THIS.PARENT
  9503. ERROR
  9504. Method
  9505. NERROR
  9506. CMETHOD
  9507. NLINE
  9508. LAERROR    
  9509. LCMESSAGE
  9510. TASTRADE
  9511. TXTCUSTOMER_ID
  9512. SETFOCUS
  9513. TXTCOMPANY_NAME
  9514. TXTMIN_ORD_AMT
  9515. TXTMAX_ORD_AMT
  9516. PARENT
  9517. ERROR
  9518. m.gTTradeb
  9519. This class cannot be used outside of the Tastrade application.
  9520. GTTRADE
  9521. Error,
  9522. Init=
  9523. DoCreate = .T.
  9524. Caption = "Find Order"
  9525. Name = "findorder"
  9526. cmdOK.Name = "cmdOK"
  9527. cmdCancel.Name = "cmdCancel"
  9528. lstCustomers.RowSource = "order_id,customer_id, ship_to_city,order_date"
  9529. lstCustomers.Name = "lstCustomers"
  9530. Tslabel1.Caption = "Order"
  9531. Tslabel1.Height = 16
  9532. Tslabel1.Left = 17
  9533. Tslabel1.Top = 8
  9534. Tslabel1.Width = 44
  9535. Tslabel1.Name = "Tslabel1"
  9536. Tslabel2.Caption = "Customer ID"
  9537. Tslabel2.Height = 22
  9538. Tslabel2.Left = 64
  9539. Tslabel2.Top = 8
  9540. Tslabel2.Width = 77
  9541. Tslabel2.Name = "Tslabel2"
  9542. Tslabel3.Caption = "Order Date"
  9543. Tslabel3.Height = 12
  9544. Tslabel3.Left = 345
  9545. Tslabel3.Top = 8
  9546. Tslabel3.Width = 77
  9547. Tslabel3.Name = "Tslabel3"
  9548. Tslabel4.Caption = "Ship to City"
  9549. Tslabel4.Height = 22
  9550. Tslabel4.Left = 222
  9551. Tslabel4.Top = 8
  9552. Tslabel4.Width = 77
  9553. Tslabel4.Name = "Tslabel4"
  9554. Tslabel5.Height = 22
  9555. Tslabel5.Left = 106
  9556. Tslabel5.Top = 210
  9557. Tslabel5.Width = 53
  9558. Tslabel5.Name = "Tslabel5"
  9559. Tsoptiongroup1.Option1.Caption = "Order ID"
  9560. Tsoptiongroup1.Option1.Value = 1
  9561. Tsoptiongroup1.Option1.Left = 5
  9562. Tsoptiongroup1.Option1.Top = 5
  9563. Tsoptiongroup1.Option1.Name = "Option1"
  9564. Tsoptiongroup1.Option2.Alignment = 0
  9565. Tsoptiongroup1.Option2.Caption = "Customer ID"
  9566. Tsoptiongroup1.Option2.Value = 0
  9567. Tsoptiongroup1.Option2.Left = 90
  9568. Tsoptiongroup1.Option2.Top = 5
  9569. Tsoptiongroup1.Option2.Width = 110
  9570. Tsoptiongroup1.Option2.Name = "Option2"
  9571. Tsoptiongroup1.Height = 20
  9572. Tsoptiongroup1.Left = 168
  9573. Tsoptiongroup1.Top = 204
  9574. Tsoptiongroup1.Width = 176
  9575. Tsoptiongroup1.Name = "Tsoptiongroup1"
  9576. PROCEDURE set
  9577. *-- Set the SET and ON commands
  9578. SET SAFETY OFF
  9579. SET PROCEDURE TO UTILITY.PRG
  9580. SET CLASSLIB TO MAIN, TSBASE, TSGEN, LOGIN, ORDERS
  9581. SET MEMOWIDTH TO 120
  9582. SET MULTILOCKS ON               && For table buffering
  9583. SET HELP TO HELP\TTRADE.HLP
  9584. SET DELETED ON
  9585. SET EXCLUSIVE OFF
  9586. SET NOTIFY OFF
  9587. SET BELL OFF
  9588. SET NEAR OFF
  9589. SET EXACT OFF
  9590. SET INTENSITY OFF
  9591. SET CONFIRM ON
  9592. SET COMPATIBLE OFF
  9593. IF !DEBUGMODE
  9594.   SET ESCAPE OFF
  9595.   SET ESCAPE ON
  9596. ENDIF
  9597. ON SHUTDOWN DO OnShutDown
  9598. ENDPROC
  9599. PROCEDURE reset
  9600. *-- Restore the previous settings of the SET and ON commands
  9601. LOCAL luTemp
  9602. SET PATH TO      (this.cOldPath)
  9603. luTemp = this.cOldClassLib
  9604. SET CLASSLIB TO  &luTemp
  9605. luTemp = this.cOldProc
  9606. SET PROCEDURE TO &luTemp
  9607. SET MEMOWIDTH TO this.nOldMemo
  9608. luTemp = this.cOldMultiLocks
  9609. SET MULTILOCKS &luTemp
  9610. luTemp = this.cOldSafety
  9611. SET SAFETY &luTemp
  9612. luTemp = this.cOldStatus
  9613. SET STATUS BAR &luTemp
  9614. CD (this.cOldDir)
  9615. luTemp = this.cOldDeleted
  9616. SET DELETED &luTemp
  9617. luTemp = this.cOldExclusive
  9618. SET EXCLUSIVE &luTemp
  9619. IF FILE(this.cOldHelp)
  9620.   SET HELP TO (this.cOldHelp)
  9621. ENDIF
  9622. luTemp = this.cOldNotify
  9623. SET NOTIFY &luTemp
  9624. luTemp = this.cOldBell
  9625. SET BELL &luTemp
  9626. luTemp = this.cOldNear
  9627. SET NEAR &luTemp
  9628. luTemp = this.cOldExact
  9629. SET EXACT &luTemp
  9630. luTemp = this.cOldIntensity
  9631. SET INTENSITY &luTemp
  9632. luTemp = this.cOldConfirm
  9633. SET CONFIRM &luTemp
  9634. luTemp = this.cOldOnShutdown
  9635. ON SHUTDOWN &luTemp
  9636. luTemp = this.cOldEscape
  9637. SET ESCAPE &luTemp
  9638. luTemp = this.cOldCompatible
  9639. SET COMPATIBLE &luTemp
  9640. luTemp = this.cOldTalk
  9641. SET TALK &luTemp
  9642.      
  9643. ENDPROC
  9644. PROCEDURE Destroy
  9645. this.Reset()
  9646. ENDPROC
  9647. PROCEDURE Init
  9648. *-- (c) Microsoft Corporation 1995
  9649. *- this class can't be used independent of the application
  9650. IF TYPE("m.gTTrade") # 'L' OR !m.gTTrade
  9651.     =MESSAGEBOX(CLASSBROWERR_LOC)
  9652.     RETURN .F.
  9653. ENDIF
  9654. *-- Save the settings of the SET and ON commands
  9655. this.cOldTalk        = gcOldTalk
  9656. this.cOldPath        = gcOldPath
  9657. this.cOldDir        = gcOldDir
  9658. this.cOldClassLib    = gcOldClassLib
  9659. this.cOldEscape      = gcOldEscape
  9660. this.cOldSafety      = SET('SAFETY')
  9661. this.cOldProc        = SET('PROCEDURE')
  9662. this.cOldStatus      = SET('STATUS BAR')
  9663. this.nOldMemo        = SET('MEMOWIDTH')
  9664. this.cOldMultiLocks  = SET('MULTILOCKS')
  9665. this.cOldHelp        = SET('HELP', 1)
  9666. this.cOldDeleted    = SET('DELETED')
  9667. this.cOldExclusive   = SET('EXCLUSIVE')
  9668. this.cOldNotify      = SET('NOTIFY')
  9669. this.cOldBell        = SET('BELL')
  9670. this.cOldNear        = SET('NEAR')
  9671. this.cOldExact      = SET('EXACT')
  9672. this.cOldIntensity  = SET('INTENSITY')
  9673. this.cOldConfirm    = SET('CONFIRM')
  9674. this.cOldOnShutDown = ON('SHUTDOWN')
  9675. this.cOldCompatible    = SET("COMPATIBLE")
  9676. ENDPROC
  9677. PROCEDURE getleftedge
  9678. RETURN this.nLeftEdge
  9679. ENDPROC
  9680. PROCEDURE getrightedge
  9681. RETURN this.nRightEdge
  9682. ENDPROC
  9683. PROCEDURE updatecontrols
  9684. LOCAL lnObjCtr
  9685. this.nLeftEdge  = this.Left
  9686. this.nRightEdge = this.Left + this.Width
  9687. _screen.ActiveForm.LockScreen = .T.
  9688. THISFORM.lSetErrorOff = .T.
  9689. FOR lnObjCtr = 1 TO ALEN(this.Parent.aObjSplitMove)
  9690.    this.Parent.aObjSplitMove[lnObjCtr].Move()
  9691. ENDFOR
  9692. THISFORM.lSetErrorOff = .F.
  9693. THISFORM.lHadError = .F.
  9694. _screen.ActiveForm.LockScreen = .F.
  9695. _screen.ActiveForm.Refresh()
  9696. ENDPROC
  9697. PROCEDURE Init
  9698. *- this class can't be used independent of the application
  9699. IF TYPE("m.gTTrade") # 'L' OR !m.gTTrade
  9700.     =MESSAGEBOX(CLASSBROWERR_LOC)
  9701.     RETURN .F.
  9702. ENDIF
  9703. ENDPROC
  9704. DOMENU
  9705. CLEANUP
  9706. CAPTION
  9707. COLDWINDCAPTION
  9708. SHOWTOOLBARS
  9709. LISCLEAN
  9710. loFormb
  9711. LNFORM
  9712. LNFORMTOCLOSE
  9713. LOFORM
  9714. THIS    
  9715. LQUITTING
  9716. APPLICATION
  9717. FORMS    
  9718. BASECLASS
  9719. QUERYUNLOAD
  9720. RELEASED
  9721. TCFORM
  9722. TCPARM1K
  9723. TCFORM
  9724. LOFORM
  9725. LURETVAL
  9726. URETVAL
  9727. login
  9728. DOFORMRETVAL
  9729. Form Designer
  9730. Standard
  9731. Layout
  9732. Query Designer
  9733. View Designer
  9734. Color Palette
  9735. Form Controls
  9736. Database Designer
  9737. Report Designer
  9738. Report Controls
  9739. Print Preview
  9740. Command
  9741. THIS    
  9742. ATOOLBARS_
  9743. THIS    
  9744. ATOOLBARS
  9745. navigate.mpr
  9746. TCTOOLBAR
  9747. NFORMINSTANCECOUNT
  9748. OTOOLBAR
  9749. REFRESH
  9750. NAVIGATE
  9751. THIS    
  9752. CMAINMENUS
  9753. NFORMINSTANCECOUNT
  9754. OTOOLBAR
  9755. NAVIGATIONP
  9756. this.aInstances[1,1]b
  9757. this.aInstances[lnRow, 2]b
  9758. TOFORM
  9759. LNELEM
  9760. LNROW
  9761. LCFORMNAME
  9762. AINSTANCES
  9763. TCFORMNAME
  9764. LNELEM
  9765. LNROW
  9766. AINSTANCESy
  9767. m.gTTradeb
  9768. This class cannot be used outside of the Tastrade application.
  9769. oEnvironment
  9770. Environment
  9771. File does not exist: 
  9772. An error has occurred
  9773. GTTRADE
  9774. THIS    
  9775. ADDOBJECT
  9776. OENVIRONMENT
  9777. COLDWINDCAPTION
  9778. CAPTION
  9779. CMAINWINDCAPTION    
  9780. CDATABASE
  9781. RELEASETOOLBARS+
  9782. LISCLEAN
  9783. CLEANUP
  9784. cleanup
  9785. doform
  9786. doformretvalN
  9787. login
  9788. releasetoolbars
  9789. showtoolbars
  9790. shownavtoolbar
  9791. domenu
  9792. releasenavtoolbar
  9793. addinstance
  9794. removeinstance"
  9795. Initn
  9796. Destroy`
  9797. PROCEDURE do
  9798. *-- Put up main menu
  9799. this.DoMenu()
  9800. *-- Start the event loop
  9801. DO WHILE .T.
  9802.     READ EVENTS
  9803.     IF THIS.Cleanup()
  9804.         _screen.caption = this.cOldWindCaption
  9805.         CLEAR EVENTS
  9806.         POP MENU _MSYSMENU TO MASTER
  9807.         this.ShowToolBars()
  9808.         this.lIsClean = .T.
  9809.         EXIT
  9810.     ENDIF
  9811. ENDDO
  9812. ENDPROC
  9813. PROCEDURE cleanup
  9814. *-- When we wish to end the application, we cannot just
  9815. *-- simply release the application object (oApp) and expect
  9816. *-- the Destroy method to run without first issuing a 
  9817. *-- CLEAR EVENTS since the READ EVENTS was issued in the Do()
  9818. *-- method. Therefore, this method was created to 
  9819. *-- clean up the environment before quitting the application.
  9820. *-- It also allows us to conditionally stop the user from 
  9821. *-- exiting the program for whatever reason. 
  9822. LOCAL lnForm, lnFormToClose
  9823. LOCAL loForm
  9824. THIS.lQuitting = .T.
  9825. FOR EACH loForm IN application.Forms
  9826.     IF TYPE("loForm") == "O" AND loForm.Baseclass == "Form"
  9827.         IF !loForm.QueryUnload()
  9828.             RETURN .F.
  9829.         ENDIF
  9830.         loForm.Release()
  9831.     ENDIF
  9832. ENDFOR
  9833. RETURN .T.
  9834. ENDPROC
  9835. PROCEDURE doform
  9836. LPARAMETERS tcForm, tcParm1
  9837. IF PARAMETERS() < 2
  9838.   DO FORM (tcForm)
  9839.   DO FORM (tcForm) WITH tcParm1
  9840. ENDIF
  9841. ENDPROC
  9842. PROCEDURE doformretval
  9843. LPARAMETERS tcForm
  9844. *-- This function is meant to be used with a form class that
  9845. *-- is derived from tsformretval which is defined in TSBASE.VCX
  9846. *-- Notice how objects with LOCAL scope are automatically
  9847. *-- released when the methods ends.
  9848. LOCAL loForm, ;
  9849.       luRetVal
  9850. loForm = CREATEOBJECT(tcForm)
  9851. loForm.Show() 
  9852. luRetVal = loForm.uRetVal
  9853. RETURN luRetVal
  9854. ENDPROC
  9855. PROCEDURE login
  9856. RETURN this.DoFormRetVal("login")
  9857. ENDPROC
  9858. PROCEDURE releasetoolbars
  9859. *-- Releases all Visual FoxPro toolbars
  9860. LOCAL i
  9861. DIMENSION this.aToolBars[12,2]
  9862. this.aToolBars[1,1] = TB_FORMDESIGNER_LOC
  9863. this.aToolBars[2,1] = TB_STANDARD_LOC  
  9864. this.aToolBars[3,1] = TB_LAYOUT_LOC
  9865. this.aToolBars[4,1] = TB_QUERY_LOC
  9866. this.aToolBars[5,1] = TB_VIEWDESIGNER_LOC
  9867. this.aToolBars[6,1] = TB_COLORPALETTE_LOC  
  9868. this.aToolBars[7,1] = TB_FORMCONTROLS_LOC
  9869. this.aToolBars[8,1] = TB_DATADESIGNER_LOC
  9870. this.aToolBars[9,1] = TB_REPODESIGNER_LOC
  9871. this.aToolBars[10,1] = TB_REPOCONTROLS_LOC
  9872. this.aToolBars[11,1] = TB_PRINTPREVIEW_LOC
  9873. this.aToolBars[12,1] = WIN_COMMAND_LOC
  9874. FOR i = 1 TO ALEN(this.aToolBars, 1)
  9875.   this.aToolBars[i,2] = WVISIBLE(this.aToolBars[i,1])
  9876.   IF this.aToolBars[i,2]
  9877.     HIDE WINDOW (this.aToolBars[i,1])
  9878.   ENDIF
  9879. ENDFOR
  9880. ENDPROC
  9881. PROCEDURE showtoolbars
  9882. LOCAL i
  9883. *-- Show all VFP toolbars that were previously hidden
  9884. FOR i = 1 TO ALEN(this.aToolBars, 1)
  9885.   IF this.aToolBars[i,2]
  9886.     SHOW WINDOW (this.aToolBars[i,1])
  9887.   ENDIF
  9888. ENDFOR
  9889. ENDPROC
  9890. PROCEDURE shownavtoolbar
  9891. LPARAMETERS tcToolBar
  9892. *-- Create and show the navigation toolbar if this is the first
  9893. *-- form instance. Otherwise, just increment the number of
  9894. *-- form instances. 
  9895. IF this.nFormInstanceCount = 0
  9896.   SET SYSMENU ON
  9897.   this.oToolBar = CREATEOBJECT(tcToolBar)
  9898.   this.oToolBar.Show()
  9899.   this.oToolBar.Refresh()
  9900.   DO navigate.mpr
  9901. ENDIF
  9902. this.nFormInstanceCount = this.nFormInstanceCount + 1
  9903. ENDPROC
  9904. PROCEDURE domenu
  9905. DO (this.cMainMenu)
  9906. ENDPROC
  9907. PROCEDURE releasenavtoolbar
  9908. *-- Decrement the number of form instances
  9909. this.nFormInstanceCount = this.nFormInstanceCount - 1
  9910. *-- If this is the last instance of the form, 
  9911. *-- release the toolbar
  9912. IF this.nFormInstanceCount = 0
  9913.   this.oToolBar = .NULL.
  9914.   RELEASE POPUP navigation EXTENDED
  9915.   RELEASE PAD _msm_edit OF _msysmenu
  9916. ENDIF
  9917. ENDPROC
  9918. PROCEDURE addinstance
  9919. LPARAMETERS toForm
  9920. *-- This routine handles multiple instances of a form
  9921. *-- A description of each element of the aInstances[] array
  9922. *-- appears below.
  9923. LOCAL lnElem, ;
  9924.       lnRow, ;
  9925.       lcFormName
  9926. lcFormName = toForm.Name
  9927. *-- Scan this.aInstances[] looking for lcFormName. If found
  9928. *-- increment the instance count for that name by 1 and
  9929. *-- return the next available instance number
  9930. lnElem = ASCAN(this.aInstances, lcFormName)
  9931. IF lnElem = 0
  9932.   *-- Expand the array if this is not the first form we're adding
  9933.   *-- to it
  9934.   IF TYPE("this.aInstances[1,1]") = "L"
  9935.     *-- There are no forms in the array
  9936.     lnRow = 1
  9937.   ELSE
  9938.     *-- Expand the array
  9939.     lnRow = ALEN(this.aInstances, 1) + 1
  9940.     DIMENSION this.aInstances[lnRow, ALEN(this.aInstances, 2)]
  9941.   ENDIF
  9942.   this.aInstances[lnRow, 1] = lcFormName    && Instance name
  9943.   *-this.aInstances[lnRow, 2] = toForm        && The instance itself
  9944.   this.aInstances[lnRow, 3] = 0              && Number of instances
  9945.   this.aInstances[lnRow, 4] = 0              && Next available instance number
  9946.   lnRow = ASUBS(this.aInstances, lnElem, 1)
  9947.   *-- Make sure we still have an instance. If not, 
  9948.   *-- re-initialize it.
  9949.   IF TYPE("this.aInstances[lnRow, 2]") # "O" OR ;
  9950.       ISNULL(this.aInstances[lnRow, 2])
  9951.     this.aInstances[lnRow, 2] = toForm
  9952.   ENDIF
  9953.   *-- Stagger the new form's position
  9954.   toForm.Left = this.aInstances[lnRow, 2].Left + 5
  9955.   toForm.Top = this.aInstances[lnRow, 2].Top + 23
  9956.   *-- Save the current instance for next time
  9957.   *-this.aInstances[lnRow, 2] = toForm
  9958. ENDIF
  9959. *-- Increment the number of instances and the next 
  9960. *-- available instance number
  9961. this.aInstances[lnRow, 3] = this.aInstances[lnRow, 3] + 1
  9962. this.aInstances[lnRow, 4] = this.aInstances[lnRow, 4] + 1
  9963. RETURN this.aInstances[lnRow, 4]
  9964. ENDPROC
  9965. PROCEDURE removeinstance
  9966. LPARAMETERS tcFormName
  9967. LOCAL lnElem, ;
  9968.       lnRow
  9969. *-- Scan this.aInstances[] looking for tcFormName. If found
  9970. *-- decrement the instance count for that name by 1. If this
  9971. *-- is the last instance, remove the row from the array. 
  9972. lnElem = ASCAN(this.aInstances, tcFormName)
  9973. IF lnElem > 0
  9974.   lnRow = ASUBS(this.aInstances, lnElem, 1)
  9975.   IF this.aInstances[lnRow, 3] = 1
  9976.     *-- This is the last instance. Remove the row if more
  9977.     *-- than one row exists
  9978.     IF ALEN(this.aInstances, 1) > 1
  9979.       =ADEL(this.aInstances, lnRow)
  9980.       DIMENSION this.aInstances[ALEN(this.aInstances, 1) - 1, ALEN(this.aInstances, 2)]
  9981.     ELSE
  9982.       *-- Last array row. Just clear it out. 
  9983.       this.aInstances = .F.
  9984.     ENDIF
  9985.   ELSE
  9986.     this.aInstances[lnRow, 3] = this.aInstances[lnRow, 3] - 1
  9987.   ENDIF
  9988. ENDIF
  9989. ENDPROC
  9990. PROCEDURE Init
  9991. *-- (c) Microsoft Corporation 1995
  9992. *- this class can't be used independent of the application
  9993. IF TYPE("m.gTTrade") # 'L' OR !m.gTTrade
  9994.     =MESSAGEBOX(CLASSBROWERR_LOC)
  9995.     RETURN .F.
  9996. ENDIF
  9997. *-- Set up the environment
  9998. this.AddObject("oEnvironment", "Environment")
  9999. this.oEnvironment.Set()
  10000. *-- Save current main window title and set
  10001. *-- the new one
  10002. this.cOldWindCaption = _screen.Caption
  10003. _screen.caption = this.cMainWindCaption
  10004. *-- Setup data environment
  10005. *-- For applications that need to open multiple
  10006. *-- .DBC's, or that need to open/close .DBC's 
  10007. *-- at run time, create a separate method in this
  10008. *-- class, call it from here, and override it as
  10009. *-- necessary in your specific application class.
  10010. CLOSE DATA ALL
  10011. IF !EMPTY(this.cDataBase)
  10012.   OPEN DATABASE (this.cDataBase)
  10013.   IF EMPTY(DBC())
  10014.     =MessageBox(FILENOTEXIST_LOC + this.cDataBase, ;
  10015.                 MB_OK + MB_ICONSTOP, ;
  10016.                 ERRORTITLE_LOC)
  10017.     RETURN .F.
  10018.   ENDIF
  10019. ENDIF
  10020. *-- Release all toolbars
  10021. this.ReleaseToolBars()
  10022. PUSH MENU _MSYSMENU
  10023. ENDPROC
  10024. PROCEDURE Destroy
  10025. *-- In case of application error, we call the CleanUp method 
  10026. *-- to clean up the environment for us. If we are quitting 
  10027. *-- normally, then thelIsClean flag will be .T. indicating 
  10028. *-- that the CleanUp method has already been executed and 
  10029. *-- the environment is clean.
  10030. IF !this.lIsClean
  10031.   this.CleanUp()
  10032. ENDIF
  10033. CLOSE DATA ALL
  10034. ENDPROC
  10035. PLATFORM
  10036. UNIQUEID
  10037. TIMESTAMP
  10038. OBJTYPE
  10039. OBJCODE
  10040. HEIGHT
  10041. WIDTH
  10042. STYLE
  10043. PICTURE
  10044. ORDER
  10045. UNIQUE
  10046. COMMENT
  10047. ENVIRON
  10048. BOXCHAR
  10049. FILLCHAR
  10050. PENRED
  10051. PENGREEN
  10052. PENBLUE
  10053. FILLRED
  10054. FILLGREEN
  10055. FILLBLUE
  10056. PENSIZE
  10057. PENPAT
  10058. FILLPAT
  10059. FONTFACE
  10060. FONTSTYLE
  10061. FONTSIZE
  10062. RULER
  10063. RULERLINES
  10064. GRIDV
  10065. GRIDH
  10066. FLOAT
  10067. STRETCH
  10068. STRETCHTOP
  10069. BOTTOM
  10070. SUPTYPE
  10071. SUPREST
  10072. NOREPEAT
  10073. RESETRPT
  10074. PAGEBREAK
  10075. COLBREAK
  10076. RESETPAGE
  10077. GENERAL
  10078. SPACING
  10079. DOUBLE
  10080. SWAPHEADER
  10081. SWAPFOOTER
  10082. EJECTBEFOR
  10083. EJECTAFTER
  10084. PLAIN
  10085. SUMMARY
  10086. ADDALIAS
  10087. OFFSET
  10088. TOPMARGIN
  10089. BOTMARGIN
  10090. TOTALTYPE
  10091. RESETTOTAL
  10092. RESOID
  10093. CURPOS
  10094. SUPALWAYS
  10095. SUPOVFLOW
  10096. SUPRPCOL
  10097. SUPGROUP
  10098. SUPVALCHNG
  10099. SUPEXPR
  10100.  WINDOWS _QV60HMF8M 493896106 1 53
  10101.     1.000    0.000    0.000   -1.000
  10102.                                              
  10103.   0 10   10T 5 5   FF                     T                F      
  10104.  WINDOWS _QV60HMF8O           9  1
  10105.                       0.000    0.000
  10106.                                              
  10107.                        F  FFF           F                         
  10108.  WINDOWS _QV60HNB2P           9  3
  10109.                   28230.000    0.000
  10110.                                              
  10111.                        F  TFF           F                         
  10112.  WINDOWS _QV60HMF8P           9  4
  10113.                    2292.000    0.000
  10114.                                              
  10115.                        F  FFF           F                         
  10116.  WINDOWS _QV60HNCGI           9  5
  10117.                   13855.000    0.000
  10118.                                              
  10119.                        F  TFF           F                         
  10120.  WINDOWS _QV60HMF8Q           9  7
  10121.                    9271.000    0.000
  10122.                                              
  10123.                        F  FFF           F                         
  10124.  WINDOWS _QV60YOKHB 493912411 7  4
  10125. 24270.833 1041.667 2187.500 8437.500
  10126.    -1   -1   -1  192  192  192    1    8    1
  10127.         0          T   F                     0              TF3 0F
  10128.  WINDOWS _QV60Y7A6T 493911854 7  4
  10129. 12187.500 1041.667 2187.500 8437.500
  10130.    -1   -1   -1  192  192  192    1    8    1
  10131.         0          T   F                     0              TF3 0F
  10132.  WINDOWS _QV60Y6YJL 493911846 7  4
  10133. 12187.50046458.333 2187.500 7395.833
  10134.    -1   -1   -1  192  192  192    1    8    1
  10135.         0          T   F                     0              TF3 0F
  10136.  WINDOWS _QV60XQGG6 493911435 7  4
  10137. 40312.50052083.33310416.66713125.000
  10138.    -1   -1   -1  192  192  192    1    8    1
  10139.         0          T   F                     0              TF3 0F
  10140.  WINDOWS _QV60XHZ9U 493911224 7  4
  10141. 28020.833    0.000 2291.66779270.833
  10142.    -1   -1   -1  192  192  192    1    8    1
  10143.         0          T   F                     0              TF3 0F
  10144.  WINDOWS _QV60HMX4M 495489613 8  0
  10145.  6145.83370833.333 2187.500 8229.167
  10146.     0    0    0  255  255  255               #
  10147.   1 12  1          T   F          2          0       0 1    TF3 0F
  10148.  WINDOWS _QV60HMX4V 493911593 5  0
  10149.  8750.00058645.833 2083.33310520.833
  10150.     0    0    0  255  255  255               &
  10151.   1 12  1          T   F          0                         TF3 0F
  10152.  WINDOWS _QV60HMX4W 495489616 8  0
  10153.  8750.00070833.333 2187.500 8229.167
  10154.     0    0    0  255  255  255               *
  10155.   1 12  1          T   F          2          0       0 1    TF3 0F
  10156.  WINDOWS _QV60HMX4X 493910959 5  0
  10157. 12291.667 1562.500 2083.333 6145.833
  10158.     0    0    0  255  255  255               ,
  10159.   1 12  1          T   F          0                         TF3 0F
  10160.  WINDOWS _QV60HMX4Y 495489532 8  0
  10161. 15000.000 1041.667 2083.33329791.667
  10162.     0    0    0  255  255  255               0
  10163.   0 12  1          T   F          2          0       0 1    TF3 0F
  10164.  WINDOWS _QV60HMX50 495489538 8  0
  10165. 17187.500 1041.667 2083.33329791.667
  10166.     0    0    0  255  255  255               3
  10167.   0 12  1          T   F          2          0       0 1    TF3 0F
  10168.  WINDOWS _QV60HMX55 495489551 8  0
  10169. 19375.000 1041.667 2083.33329791.667
  10170.     0    0    0  255  255  255               7
  10171.   0 12  1          T   F          2          0       0 1    TF3 0F
  10172.  WINDOWS _QV60HMX5B 495489554 8  0
  10173. 21562.500 1041.667 2083.33320312.500
  10174.     0    0    0  255  255  255               :
  10175.   0 12  1          T   F          2          0       0 1    TF3 0F
  10176.  WINDOWS _QV60HMX5C 493896118 5  0
  10177. 43229.16758854.167 2083.333 5625.000
  10178.     0    0    0  255  255  255               <
  10179.   1 12  1          T   F          0                         TF3 0F
  10180.  WINDOWS _QV60HMX5F 493897196 8  0
  10181. 43229.16766354.167 2083.33312604.167
  10182.     0    0    0  255  255  255               @
  10183.   0 12  1          T   F          2          1       0 1    TF3 0F
  10184.  WINDOWS _QV60HMX5G 493896118 5  0
  10185. 45833.33357708.333 2083.333 7187.500
  10186.     0    0    0  255  255  255               C
  10187.   1 12  1          T   F          0                         TF3 0F
  10188.  WINDOWS _QV60HMX5H 493901386 8  0
  10189. 45729.16753125.000 2083.333 2291.667
  10190.     0    0    0  255  255  255               G
  10191.   0 12  1          T   F          2          1       0 1    TF3 0F
  10192.  WINDOWS _QV60HMX5I 493896686 5  0
  10193. 28125.00058229.167 2083.333 7708.333
  10194.     0    0    0  255  255  255               I
  10195.   1 12  1          T   F          0                         TF3 0F
  10196.  WINDOWS _QV60HMX5J 495489572 8  0
  10197. 32395.83354479.167 2083.33311458.333
  10198.     0    0    0  255  255  255               L
  10199.   0 12  1          T   F          2          1       0 1    TF3 0F
  10200.  WINDOWS _QV60HMX5P 493896118 5  0
  10201. 28125.00046458.333 2083.333 6666.667
  10202.     0    0    0  255  255  255               O
  10203.   1 12  1          T   F          0                         TF3 0F
  10204.  WINDOWS _QV60HMX5Z 493897178 8  0
  10205. 32395.83341875.000 2083.33311666.667
  10206.     0    0    0  255  255  255               S
  10207.   0 12  1          T   F          2          1       0 1    TF3 0F
  10208.  WINDOWS _QV60HMX61 495489649 8  0
  10209. 15000.00046354.167 2083.33332395.833
  10210.     0    0    0  255  255  255               W
  10211.   0 12  1          T   F          2          0       0 1    TF3 0F
  10212.  WINDOWS _QV60HMX63 493896118 8  0
  10213. 17187.50046354.167 2083.33332291.667
  10214.     0    0    0  255  255  255               Y
  10215.   0 12  1          T   F          2          0       0 1    TF3 0F
  10216.  WINDOWS _QV60HMX65 495489561 8  0
  10217. 19375.00046354.167 2083.33331875.000
  10218.     0    0    0  255  255  255               \
  10219.   0 12  1          T   F          2          0       0 1    TF3 0F
  10220.  WINDOWS _QV60HMX6D 493896118 8  0
  10221. 21562.50046354.167 2083.33320312.500
  10222.     0    0    0  255  255  255               ^
  10223.   0 12  1          T   F          2          0       0 1    TF3 0F
  10224.  WINDOWS _QV60HMX6K 493911627 5  0
  10225. 12291.66747395.833 2083.333 5000.000
  10226.     0    0    0  255  255  255               `
  10227.   1 12  1          T   F          0                         TF3 0F
  10228.  WINDOWS _QV60HMX6O 493896720 5  0
  10229. 24479.167 1562.500 2083.333 6562.500
  10230.     0    0    0  255  255  255               c
  10231.   1 12  1          T   F          0                         TF3 0F
  10232.  WINDOWS _QV60HMX6P 495489643 8  0
  10233. 24375.00010416.667 2083.33322500.000
  10234.     0    0    0  255  255  255               g
  10235.   0 12  1          T   F          2          0       0 1    TF3 0F
  10236.  WINDOWS _QV60HMX6Q 493896698 5  0
  10237. 28125.000 1041.667 2083.33311354.167
  10238.     0    0    0  255  255  255               i
  10239.   1 12  1          T   F          0                         TF3 0F
  10240.  WINDOWS _QV60HMX6T 495489569 8  0
  10241. 32395.833 1041.667 2083.33340416.667
  10242.     0    0    0  255  255  255               m
  10243.   0 12  1          T   F          2          0       0 1    TF3 0F
  10244.  WINDOWS _QV60IUUGU 552942468 5  0
  10245. 28125.00069791.667 2083.333 8020.833
  10246.     0    0    0  255  255  255               o
  10247.   1 12  1          T   F          0                         TF3 0F
  10248.  WINDOWS _QV60IVLQ9 495489576 8  0
  10249. 32395.83366562.500 2083.33312395.833
  10250.     0    0    0  255  255  255               s
  10251.   0 12  1          T   F          2          1       0 1    TF3 0F
  10252.  WINDOWS _QV60IX3PM 493897276 5  0
  10253. 40625.00057083.333 2083.333 7604.167
  10254.     0    0    0  255  255  255               v
  10255.   1 12  1          T   F          0                         TF3 0F
  10256.  WINDOWS _QV60IX8QF 493897282 5  0
  10257. 48437.50060416.667 2083.333 3958.333
  10258.     0    0    0  255  255  255               y
  10259.   1 12  1          T   F          0                         TF3 0F
  10260.  WINDOWS _QV60IY5MM 493901446 8  0
  10261. 48437.50066354.167 2083.33312604.167
  10262.     0    0    0  255  255  255               }
  10263.   0 12  1          T   F          2          1       0 1    TF3 0F
  10264.  WINDOWS _QV60IYAKY 493901449 8  0
  10265. 45833.33366354.167 2083.33312604.167
  10266.     0    0    0  255  255  255               
  10267.   0 12  1          T   F          2          1       0 1    TF3 0F
  10268.  WINDOWS _QV60IYJN8 493897308 5  0
  10269. 45833.33355625.000 2083.333 1666.667
  10270.     0    0    0  255  255  255               
  10271.   1 12  1          T   F          0                         TF3 0F
  10272.  WINDOWS _QV60M3290 493900450 8  0
  10273. 40625.00066354.167 2083.33312604.167
  10274.     0    0    0  255  255  255               
  10275.   0 12  1          T   F          2          1       0 1    TF3 0F
  10276.  WINDOWS _QV60X56R9 493911332 5  0
  10277.  6770.83313125.000 3437.50013333.333
  10278.     0    0    0   -1   -1   -1               
  10279.   1 20  1          T   F          0                         TF3 0F
  10280.  WINDOWS _QV60XLBHG 493911315 5  0
  10281.  6250.00011458.333 3958.333 2083.333
  10282.     0    0  255   -1   -1   -1               
  10283.   1 24  1          T   F          0                         TF3 0F
  10284.  WINDOWS _QV60X56R9 493911394 5  0
  10285.  6770.83329270.833 3437.500 8750.000
  10286.     0    0    0   -1   -1   -1               
  10287.   1 20  1          T   F          0                         TF3 0F
  10288.  WINDOWS _QV60XLBHG 493911387 5  0
  10289.  6250.00027604.167 3958.333 2083.333
  10290.     0    0  255   -1   -1   -1               
  10291.   1 24  1          T   F          0                         TF3 0F
  10292.  WINDOWS _QV60XU5BQ 493911527 6   
  10293. 11666.667  104.167  104.16781250.000
  10294.    -1   -1   -1   -1   -1   -1    1    8     
  10295.         0          T   F                     1              TF3 0F
  10296.  WINDOWS _QV60YFZUC 493912231 5  0
  10297.  2187.50070312.500 2604.167 8541.667
  10298.    -1   -1   -1   -1   -1   -1               
  10299.   1 16  1          T   F          0                         TF3 0F
  10300.  WINDOWS _QV60YHXYS 493912256 5  0
  10301.  6250.00058645.833 2083.33311250.000
  10302.     0    0    0  255  255  255               
  10303.   1 12  1          T   F          0                         TF3 0F
  10304.  WINDOWS _QV60Z2ONE 493912762 6   
  10305. 55833.333    0.000  104.16781458.333
  10306.    -1   -1   -1   -1   -1   -1    1    8     
  10307.         0          T   F                     1              TF3 0F
  10308.  WINDOWS _QV60Z3KH7 493912816 5  0
  10309. 56458.333 3645.833 1979.16732291.667
  10310.     0  128  128   -1   -1   -1               
  10311.   3 12  1          T   F          0                         TF3 0F
  10312.  WINDOWS _QYK13KH6A 51147777717  0
  10313.  2291.667 2500.000 9166.667 8645.833
  10314.                                              
  10315.         0          T   F       0   F         0              TF3 0F
  10316.  WINDOWS _QV60YF724 49391217810  0
  10317.    39.000    4.000                  
  10318.                                              
  10319.                                                                   
  10320.  WINDOWS _QV60M38E6 49548958918   
  10321.                                     
  10322.                                              
  10323.                                                      2 6          
  10324.  WINDOWS _QV60N3X69 49548959718   
  10325.                                     
  10326.                                              
  10327.                                                      0 1          
  10328.  WINDOWS                     23   
  10329.    16.000    8.000   12.000   16.000
  10330.     4    0                                   
  10331.   0 10                                                            
  10332.  WINDOWS                     23   
  10333.    20.000    8.000   15.000   20.000
  10334.     4    1                                   
  10335.   1 12                                                            
  10336.  WINDOWS                     23   
  10337.    19.000    7.000   15.000   29.000
  10338.     3    1                                   
  10339.   0 12                                                            
  10340.  WINDOWS                     23   
  10341.    33.000   13.000   25.000   34.000
  10342.     7    1                                   
  10343.   1 20                                                            
  10344.  WINDOWS                     23   
  10345.    38.000   15.000   30.000   40.000
  10346.     7    1                                   
  10347.   1 24                                                            
  10348.  WINDOWS                     23   
  10349.    25.000   10.000   19.000   26.000
  10350.     5    1                                   
  10351.   1 16                                                            
  10352.  WINDOWS                     23   
  10353.    19.000   10.000   14.000   15.000
  10354.     5    0                                   
  10355.   3 12                                                            
  10356.  WINDOWS                     25   
  10357.                                     
  10358.                                              
  10359.                                                                   
  10360.  WINDOWS                     26   
  10361.                                     
  10362.                                              
  10363.                                                                   
  10364. Courier New
  10365. winspool
  10366. LaserNT
  10367. Ne00:
  10368. LaserNT
  10369. Letter
  10370. DRIVER=winspool
  10371. DEVICE=LaserNT
  10372. OUTPUT=Ne00:
  10373. ORIENTATION=0
  10374. PAPERSIZE=1
  10375. SCALE=100
  10376. COPIES=1
  10377. DEFAULTSOURCE=265
  10378. PRINTQUALITY=300
  10379. COLOR=1
  10380. TTOPTION=3
  10381. COLLATE=0
  10382. Order_number
  10383. order_number
  10384. Arial
  10385. Arial
  10386. "Date Ordered"
  10387. order_date
  10388. Arial
  10389. Arial
  10390.     "Ship To"
  10391. ship_to_name
  10392. Arial
  10393. ship_to_address
  10394. Arial
  10395. RALLTRIM(ship_to_city) + ", " + ALLTRIM(ship_to_region) + " " + ship_to_postal_code
  10396. Arial
  10397. ship_to_country
  10398. Arial
  10399. Arial
  10400.     "Freight"
  10401. freight
  10402. Arial
  10403. "99999.99"
  10404. Arial
  10405. "Discount"
  10406. discount
  10407. Arial
  10408. Arial
  10409. "Unit Price"
  10410. unit_price
  10411. Arial
  10412. "99999.99"
  10413. Arial
  10414. "Quantity"
  10415. quantity
  10416. Arial
  10417. "999999999.99"
  10418. company_name_a
  10419. Arial
  10420. address
  10421. Arial
  10422. 4ALLTRIM(city) + ", " + ALLTRIM(region) + postal_code
  10423. Arial
  10424. country
  10425. Arial
  10426. Arial
  10427.     "Bill To"
  10428. Arial
  10429. "Ship Via"
  10430. company_name_b
  10431. Arial
  10432. Arial
  10433. "Product Name"
  10434. product_name
  10435. Arial
  10436. Arial
  10437. "Extension"
  10438. quantity * unit_price
  10439. Arial
  10440. "9999999.99"
  10441. Arial
  10442. "Sub Total"
  10443. Arial
  10444. "Total"
  10445. vSubTotal + freight - vDisCount
  10446. Arial
  10447. "999999999.99"
  10448.     vDiscount
  10449. Arial
  10450. "9999999.99"
  10451. Arial
  10452.     vsubtotal
  10453. Arial
  10454. "999999999.99"
  10455. Arial
  10456. "asmanian"
  10457. Arial
  10458. Arial
  10459.     "raders
  10460. Arial
  10461. Arial
  10462.     "INVOICE"
  10463. Arial
  10464. "Order Number"
  10465. Courier New
  10466. !"We thank you for your patronage"
  10467.  (c) Microsoft Corporation 1995
  10468. "..\bitmaps\ttradesm.bmp"
  10469.     vSubTotal
  10470. quantity * MTON(unit_price)
  10471.     vDisCount
  10472. 2iif(discount > 0, vSubTotal * (discount / 100), 0)
  10473. Courier New
  10474. Arial
  10475. Arial
  10476. Arial
  10477. Arial
  10478. Arial
  10479. Courier New
  10480. dataenvironment
  10481. Left = 202
  10482. Top = 18
  10483. Width = 350
  10484. Height = 458
  10485. AutoOpenTables = .F.
  10486. AutoCloseTables = .F.
  10487. InitialSelectedAlias = "orders_view"
  10488. Name = "Dataenvironment"
  10489. iPROCEDURE Init
  10490. #DEFINE C_TASTRADEDIR_LOC    "Samples\Tastrade\"        && Location of Tastrade, off of HOME()
  10491. #INCLUDE "INCLUDE\TASTRADE.H"
  10492. LOCAL loGetInvoice, ;
  10493.       llContinue
  10494. IF WEXIST("Project Manager")
  10495.     *- assume that TasTrade isn't running, since it closes the Project Manager window
  10496.     DO FORM (HOME() + C_TASTRADEDIR_LOC + "forms\getinv") NAME loGetInvoice LINKED
  10497.     DO FORM forms\getinv NAME loGetInvoice LINKED
  10498. ENDIF
  10499. llContinue = loGetInvoice.lRetVal
  10500. IF llContinue
  10501.   dDateFrom = loGetInvoice.dDateFrom
  10502.   dDateTo = loGetInvoice.dDateTo
  10503.   this.OpenTables()
  10504.   llContinue = !(_tally = 0)
  10505.   IF !llContinue
  10506.     =MESSAGEBOX(NOTHINGTOPRINT_LOC, ;
  10507.                 MB_ICONEXCLAMATION, ;
  10508.                 TASTRADE_LOC)
  10509.     this.CloseTables()
  10510.   ENDIF
  10511. ENDIF
  10512. RELEASE loGetInvoice
  10513. RETURN llContinue
  10514. ENDPROC
  10515. PROCEDURE Destroy
  10516. this.CloseTables()
  10517. ENDPROC
  10518. Project Manager
  10519. Samples\Tastrade\
  10520. forms\getinv
  10521. forms\getinvJ
  10522. Nothing to print.
  10523. Tasmanian Traders
  10524. LOGETINVOICE
  10525. LLCONTINUE
  10526. FORMS
  10527. LRETVAL    
  10528. DDATEFROM
  10529. DDATETO
  10530. OPENTABLES
  10531. CLOSETABLES
  10532. CLOSETABLES
  10533. Init,
  10534. Destroy
  10535. cursor
  10536. Left = 18
  10537. Top = 6
  10538. Width = 149
  10539. Height = 319
  10540. Alias = "orders_view"
  10541. Database = ..\data\tastrade.dbc
  10542. CursorSource = "orders view"
  10543. Name = "Cursor1"
  10544. ..\include\tastrade.h*
  10545. c:\vfp5\foxpro.h2
  10546. ..\include\strings.h:
  10547. PLATFORM
  10548. UNIQUEID
  10549. TIMESTAMP
  10550. OBJTYPE
  10551. OBJCODE
  10552. HEIGHT
  10553. WIDTH
  10554. STYLE
  10555. PICTURE
  10556. ORDER
  10557. UNIQUE
  10558. COMMENT
  10559. ENVIRON
  10560. BOXCHAR
  10561. FILLCHAR
  10562. PENRED
  10563. PENGREEN
  10564. PENBLUE
  10565. FILLRED
  10566. FILLGREEN
  10567. FILLBLUE
  10568. PENSIZE
  10569. PENPAT
  10570. FILLPAT
  10571. FONTFACE
  10572. FONTSTYLE
  10573. FONTSIZE
  10574. RULER
  10575. RULERLINES
  10576. GRIDV
  10577. GRIDH
  10578. FLOAT
  10579. STRETCH
  10580. STRETCHTOP
  10581. BOTTOM
  10582. SUPTYPE
  10583. SUPREST
  10584. NOREPEAT
  10585. RESETRPT
  10586. PAGEBREAK
  10587. COLBREAK
  10588. RESETPAGE
  10589. GENERAL
  10590. SPACING
  10591. DOUBLE
  10592. SWAPHEADER
  10593. SWAPFOOTER
  10594. EJECTBEFOR
  10595. EJECTAFTER
  10596. PLAIN
  10597. SUMMARY
  10598. ADDALIAS
  10599. OFFSET
  10600. TOPMARGIN
  10601. BOTMARGIN
  10602. TOTALTYPE
  10603. RESETTOTAL
  10604. RESOID
  10605. CURPOS
  10606. SUPALWAYS
  10607. SUPOVFLOW
  10608. SUPRPCOL
  10609. SUPGROUP
  10610. SUPVALCHNG
  10611. SUPEXPR
  10612.  WINDOWS _QV60OJ1YB 493902676 1 53
  10613.     1.000    0.000    0.000   -1.000
  10614.                                              
  10615.   0 10   10T 5 5   FF                     T                F      
  10616.  WINDOWS _QV60OJ1YD           9  1
  10617.                   18438.000    0.000
  10618.                                              
  10619.                        F  FFF           F                         
  10620.  WINDOWS _QV60OJ1YE           9  4
  10621.                    2709.000    0.000
  10622.                                              
  10623.                        F  FFF           F                         
  10624.  WINDOWS _QV60OJ1YF           9  7
  10625.                    1770.000    0.000
  10626.                                              
  10627.                        F  FFF           F                         
  10628.  WINDOWS _QV610LBVA           9  8
  10629.                    5000.000    0.000
  10630.                                              
  10631.                        T  FTF           F                         
  10632.  WINDOWS _QV610W1YZ 493914517 7  4
  10633. 30104.16719375.000 2708.33326041.667
  10634.    -1   -1   -1  192  192  192    1    8    1
  10635.         0          T   F                     0              TF3 0F
  10636.  WINDOWS _QV610HMH3 493914159 7  4
  10637. 16145.83316666.667 2291.66728750.000
  10638.    -1   -1   -1  192  192  192    1    8    1
  10639.         0          T   F                     0              TF3 0F
  10640.  WINDOWS _QV60OJSJT 493904465 5  0
  10641. 10104.16713541.667 2083.33325520.833
  10642.     0    0    0   -1   -1   -1               "
  10643.   1 12  1          T   F          0                         TF3 0F
  10644.  WINDOWS _QV60OLEI6 493902809 8  0
  10645. 20833.33316041.667 2083.333 8229.167
  10646.     0    0    0   -1   -1   -1               (
  10647.   0 12  1          T   F          2          0       0 1    TF3 0F
  10648.  WINDOWS _QV60OLEI7 493902872 5  0
  10649. 16354.16740625.000 2083.333 4375.000
  10650.     0    0    0   -1   -1   -1               *
  10651.   1 12  1          T   F          0                         TF3 0F
  10652.  WINDOWS _QV60OLEI8 495489449 8  0
  10653. 20833.33332187.500 2083.33312812.500
  10654.     0    0    0   -1   -1   -1               .
  10655.   0 12  1          T   F          2          1       0 1    TF3 0F
  10656.  WINDOWS _QV60ONP8L 493902796 5  0
  10657. 16354.16717187.500 2083.333 8958.333
  10658.     0    0    0   -1   -1   -1               1
  10659.   1 12  1          T   F          0                         TF3 0F
  10660.  WINDOWS _QV60X56R9 493911332 5  0
  10661.  5208.33314687.500 3437.50013333.333
  10662.     0    0    0   -1   -1   -1               4
  10663.   1 20  1          T   F          0                         TF3 0F
  10664.  WINDOWS _QV60XLBHG 493911315 5  0
  10665.  4687.50013020.833 3958.333 2083.333
  10666.     0    0  255   -1   -1   -1               7
  10667.   1 24  1          T   F          0                         TF3 0F
  10668.  WINDOWS _QV60X56R9 493911394 5  0
  10669.  5208.33330833.333 3437.500 8750.000
  10670.     0    0    0   -1   -1   -1               :
  10671.   1 20  1          T   F          0                         TF3 0F
  10672.  WINDOWS _QV60XLBHG 493911387 5  0
  10673.  4687.50029166.667 3958.333 2083.333
  10674.     0    0  255   -1   -1   -1               =
  10675.   1 24  1          T   F          0                         TF3 0F
  10676.  WINDOWS _QV610EIDA 493913954 6   
  10677.  9791.667    0.000  104.16780312.500
  10678.    -1   -1   -1   -1   -1   -1    1    8     
  10679.         0          T   F                     1              TF3 0F
  10680.  WINDOWS _QV610PJ2E 493914365 5  0
  10681. 30208.33320833.333 2395.83311458.333
  10682.     0    0    0   -1   -1   -1               @
  10683.   1 14  1          T   F          0                         TF3 0F
  10684.  WINDOWS _QV610QTCY 495489452 8  0
  10685. 30208.33333854.167 2500.00010937.500
  10686.   128    0  128   -1   -1   -1               D
  10687.   1 14  1          T   F          2          1       2 1    TF3 0F
  10688.  WINDOWS _QYK13LHHZ 51147779317  0
  10689.   520.833 3020.833 9166.667 8645.833
  10690.                                              
  10691.         0          T   F       0   F         0              TF3 0F
  10692.  WINDOWS _QZI16IUX0 512990796 8  0
  10693.  5416.66773333.333 2083.333 6770.833
  10694.     0    0    0   -1   -1   -1               J
  10695.   0 12  1          T   F          2          0       0 1    TF3 0F
  10696.  WINDOWS _QZI16IUX1 512990796 5  0
  10697.  2500.00068333.333 2083.333 4062.500
  10698.     0    0    0   -1   -1   -1               L
  10699.   1 12  1          T   F          0                         TF3 0F
  10700.  WINDOWS _QZI16IUX2 512990796 8  0
  10701.  2500.00075000.000 2083.333 5104.167
  10702.     0    0    0   -1   -1   -1               O
  10703.   0 12  1          T   F          2          1       0 1    TF3 0F
  10704.  WINDOWS _QZI16IUX3 512990796 5  0
  10705.  5416.66768333.333 2083.333 3645.833
  10706.     0    0    0   -1   -1   -1               Q
  10707.   1 12  1          T   F          0                         TF3 0F
  10708.  WINDOWS _QV610E8G4 49391394610  0
  10709.     8.000    4.000                  
  10710.                                              
  10711.                                                                   
  10712.  WINDOWS                     23   
  10713.    16.000    8.000   12.000   16.000
  10714.     4    0                                   S
  10715.   0 10                                                            
  10716.  WINDOWS                     23   
  10717.    20.000    8.000   15.000   20.000
  10718.     4    1                                   T
  10719.   1 12                                                            
  10720.  WINDOWS                     23   
  10721.    19.000    7.000   15.000   29.000
  10722.     3    1                                   U
  10723.   0 12                                                            
  10724.  WINDOWS                     23   
  10725.    33.000   13.000   25.000   34.000
  10726.     7    1                                   V
  10727.   1 20                                                            
  10728.  WINDOWS                     23   
  10729.    38.000   15.000   30.000   40.000
  10730.     7    1                                   W
  10731.   1 24                                                            
  10732.  WINDOWS                     23   
  10733.    23.000    9.000   18.000   24.000
  10734.     4    1                                   X
  10735.   1 14                                                            
  10736.  WINDOWS                     25   Y
  10737.                                     
  10738.                                              
  10739.                                                                   
  10740.  WINDOWS                     26   ]
  10741.                                     
  10742.                                              
  10743.                                                                   
  10744. Courier New
  10745. winspool
  10746. LaserNT
  10747. Ne00:
  10748. LaserNT
  10749. Letter
  10750. DRIVER=winspool
  10751. DEVICE=LaserNT
  10752. OUTPUT=Ne00:
  10753. ORIENTATION=0
  10754. PAPERSIZE=1
  10755. SCALE=100
  10756. COPIES=1
  10757. DEFAULTSOURCE=7
  10758. PRINTQUALITY=300
  10759. COLOR=1
  10760. TTOPTION=3
  10761. COLLATE=0
  10762. Arial
  10763.  "Total Sales by Month - Summary"
  10764. &RIGHT(exp_1, 2) + "/" + LEFT(exp_1, 4)
  10765. Arial
  10766. Arial
  10767. "Sales"
  10768. sum_unit_price
  10769. Arial
  10770. "999999999.99"
  10771. Arial
  10772. "Month/Year
  10773. Arial
  10774. "asmanian"
  10775. Arial
  10776. Arial
  10777.     "raders
  10778. Arial
  10779. Arial
  10780. "Grand Total
  10781. MTON(sum_unit_price)
  10782. Arial
  10783. "999999999.99"
  10784.  (c) Microsoft Corporation 1995
  10785. "..\bitmaps\ttradesm.bmp"
  10786. DATE()
  10787. Arial
  10788. Arial
  10789. "Page"
  10790. _PAGENO
  10791. Arial
  10792. Arial
  10793. "Date"
  10794. Courier New
  10795. Arial
  10796. Arial
  10797. Arial
  10798. Arial
  10799. Arial
  10800. dataenvironment
  10801. LLeft = 126
  10802. Top = 559
  10803. Width = 211
  10804. Height = 169
  10805. Name = "Dataenvironment"
  10806. cursor
  10807. Left = 20
  10808. Top = 10
  10809. Width = 142
  10810. Height = 111
  10811. Alias = "sales_summary"
  10812. Database = ..\data\tastrade.dbc
  10813. CursorSource = "sales summary"
  10814. Name = "cursor1"
  10815. PLATFORM
  10816. UNIQUEID
  10817. TIMESTAMP
  10818. OBJTYPE
  10819. OBJCODE
  10820. HEIGHT
  10821. WIDTH
  10822. STYLE
  10823. PICTURE
  10824. ORDER
  10825. UNIQUE
  10826. COMMENT
  10827. ENVIRON
  10828. BOXCHAR
  10829. FILLCHAR
  10830. PENRED
  10831. PENGREEN
  10832. PENBLUE
  10833. FILLRED
  10834. FILLGREEN
  10835. FILLBLUE
  10836. PENSIZE
  10837. PENPAT
  10838. FILLPAT
  10839. FONTFACE
  10840. FONTSTYLE
  10841. FONTSIZE
  10842. RULER
  10843. RULERLINES
  10844. GRIDV
  10845. GRIDH
  10846. FLOAT
  10847. STRETCH
  10848. STRETCHTOP
  10849. BOTTOM
  10850. SUPTYPE
  10851. SUPREST
  10852. NOREPEAT
  10853. RESETRPT
  10854. PAGEBREAK
  10855. COLBREAK
  10856. RESETPAGE
  10857. GENERAL
  10858. SPACING
  10859. DOUBLE
  10860. SWAPHEADER
  10861. SWAPFOOTER
  10862. EJECTBEFOR
  10863. EJECTAFTER
  10864. PLAIN
  10865. SUMMARY
  10866. ADDALIAS
  10867. OFFSET
  10868. TOPMARGIN
  10869. BOTMARGIN
  10870. TOTALTYPE
  10871. RESETTOTAL
  10872. RESOID
  10873. CURPOS
  10874. SUPALWAYS
  10875. SUPOVFLOW
  10876. SUPRPCOL
  10877. SUPGROUP
  10878. SUPVALCHNG
  10879. SUPEXPR
  10880.  WINDOWS _QV60OJ1YB 493902676 1 53
  10881.     1.000    0.000    0.000   -1.000
  10882.                                              
  10883.   0 10   30T 5 5   FF                     T                T      
  10884.  WINDOWS _QV60OJ1YD           9  1
  10885.                   14375.000    0.000
  10886.                                              
  10887.                        F  FFF           F                         
  10888.  WINDOWS _QV60QC19B           9  3
  10889.                    2396.000    0.000
  10890.                                              
  10891.                        F  TFF           F                         
  10892.  WINDOWS _QV60OJ1YE           9  4
  10893.                    2813.000    0.000
  10894.                                              
  10895.                        F  FFF           F                         
  10896.  WINDOWS _QV60QC26E           9  5
  10897.                    7500.000    0.000
  10898.                                              
  10899.                        F  TFF           F                         
  10900.  WINDOWS _QV60OJ1YF           9  7
  10901.                       0.000    0.000
  10902.                                              
  10903.                        F  FFF           F                         
  10904.  WINDOWS _QV610ZD6F           9  8
  10905.                    7084.000   24.000
  10906.                                              
  10907.                        F  FFF           F                         
  10908.  WINDOWS _QV610BE0V 493913875 7  4
  10909. 27395.83324479.167 5208.33321770.833
  10910.    -1   -1   -1  192  192  192    1    8    1
  10911.         0          T   F                     0              TF3 0F
  10912.  WINDOWS _QV60ZO0J1 493913294 7  4
  10913. 16458.333 4687.500 2187.50041250.000
  10914.    -1   -1   -1  192  192  192    1    8    1
  10915.         0          T   F                     0              TF3 0F
  10916.  WINDOWS _QV60OJSJT 493904246 5  0
  10917. 10104.16712500.000 2083.33322395.833
  10918.     0    0    0   -1   -1   -1               $
  10919.   1 12  1          T   F          0                         TF3 0F
  10920.  WINDOWS _QV60OLEI6 493913665 8  0
  10921. 21354.167 4687.500 2083.333 8229.167
  10922.     0    0    0   -1   -1   -1               *
  10923.   0 12  1          T   F          2          0       0 1    FF0 0T
  10924.  WINDOWS _QV60OLEI7 493902872 5  0
  10925. 16458.33340625.000 2083.333 4375.000
  10926.     0    0    0   -1   -1   -1               ,
  10927.   1 12  1          T   F          0                         TF3 0F
  10928.  WINDOWS _QV60OLEI8 512990787 8  0
  10929. 21354.16731354.167 2083.33314062.500
  10930.     0    0    0   -1   -1   -1               0
  10931.   0 12  1          T   F          2          1       0 1    TF3 0F
  10932.  WINDOWS _QV60ONP8L 493902796 5  0
  10933. 16458.333 5208.333 2083.333 8958.333
  10934.     0    0    0   -1   -1   -1               3
  10935.   1 12  1          T   F          0                         TF3 0F
  10936.  WINDOWS _QV60Q9LGD 493904375 5  0
  10937. 16458.33318437.500 2083.333 3645.833
  10938.     0    0    0   -1   -1   -1               6
  10939.   1 12  1          T   F          0                         TF3 0F
  10940.  WINDOWS _QV60QBCQX 495489483 8  0
  10941. 21354.16718229.167 2083.333 9270.833
  10942.     0    0    0   -1   -1   -1               9
  10943.   0 12  1          T   F          2          0       0 1    TF3 0F
  10944.  WINDOWS _QV60QOWU1 493904748 5  0
  10945. 27916.66725000.000 2083.333 3958.333
  10946.     0    0    0   -1   -1   -1               ;
  10947.   1 12  1          T   F          0                         TF3 0F
  10948.  WINDOWS _QV60R59ET 495489488 8  0
  10949. 27812.50032500.000 2187.50012916.667
  10950.     0    0    0   -1   -1   -1               ?
  10951.   1 12  1          T   F          2          1       2 6    TF3 0F
  10952.  WINDOWS _QV60R97KQ 493905253 5  0
  10953. 30104.16725000.000 2083.333 6562.500
  10954.     0    0    0   -1   -1   -1               B
  10955.   1 12  1          T   F          0                         TF3 0F
  10956.  WINDOWS _QV60RAXXN 495489490 8  0
  10957. 30000.00032500.000 2187.50012916.667
  10958.     0    0    0   -1   -1   -1               E
  10959.   1 12  1          T   F          2          1       3 6    TF3 0F
  10960.  WINDOWS _QV60X56R9 493911332 5  0
  10961.  4687.50013645.833 3437.50013333.333
  10962.     0    0    0   -1   -1   -1               G
  10963.   1 20  1          T   F          0                         TF3 0F
  10964.  WINDOWS _QV60XLBHG 493911315 5  0
  10965.  4166.66711979.167 3958.333 2083.333
  10966.     0    0  255   -1   -1   -1               I
  10967.   1 24  1          T   F          0                         TF3 0F
  10968.  WINDOWS _QV60X56R9 493911394 5  0
  10969.  4687.50029791.667 3437.500 8750.000
  10970.     0    0    0   -1   -1   -1               K
  10971.   1 20  1          T   F          0                         TF3 0F
  10972.  WINDOWS _QV60XLBHG 493911387 5  0
  10973.  4166.66728125.000 3958.333 2083.333
  10974.     0    0  255   -1   -1   -1               M
  10975.   1 24  1          T   F          0                         TF3 0F
  10976.  WINDOWS _QV60ZYII3 493913555 6   
  10977.  9791.667    0.000  104.16780312.500
  10978.    -1   -1   -1   -1   -1   -1    1    8     
  10979.         0          T   F                     1              TF3 0F
  10980.  WINDOWS _QV61090BB 493913816 6   
  10981. 26354.167    0.000  104.16780312.500
  10982.    -1   -1   -1   -1   -1   -1    1    8     
  10983.         0          T   F                     1              TF3 0F
  10984.  WINDOWS _QV610ZL0S 493914606 7  4
  10985. 40104.16719687.500 2708.33326562.500
  10986.    -1   -1   -1  192  192  192    1    8    1
  10987.         0          T   F                     0              TF3 0F
  10988.  WINDOWS _QV610ZL0T 493914606 5  0
  10989. 40208.33320312.500 2395.83311458.333
  10990.     0    0    0   -1   -1   -1               O
  10991.   1 14  1          T   F          0                         TF3 0F
  10992.  WINDOWS _RCB0FRUR3 552942257 8  0
  10993. 40208.33334479.167 2500.00010937.500
  10994.   128    0  128   -1   -1   -1               S
  10995.   1 14  1          T   F          2          1       2 1    TF3 0F
  10996.  WINDOWS                     23   
  10997.    16.000    8.000   12.000   16.000
  10998.     4    0                                   U
  10999.   0 10                                                            
  11000.  WINDOWS                     23   
  11001.    20.000    8.000   15.000   20.000
  11002.     4    1                                   V
  11003.   1 12                                                            
  11004.  WINDOWS                     23   
  11005.    19.000    7.000   15.000   29.000
  11006.     3    1                                   W
  11007.   0 12                                                            
  11008.  WINDOWS                     23   
  11009.    33.000   13.000   25.000   34.000
  11010.     7    1                                   X
  11011.   1 20                                                            
  11012.  WINDOWS                     23   
  11013.    38.000   15.000   30.000   40.000
  11014.     7    1                                   Y
  11015.   1 24                                                            
  11016.  WINDOWS                     23   
  11017.    23.000    9.000   18.000   24.000
  11018.     4    1                                   Z
  11019.   1 14                                                            
  11020.  WINDOWS                     25   [
  11021.                                     
  11022.                                              
  11023.                                                                   
  11024.  WINDOWS                     26   _
  11025.                                     
  11026.                                              
  11027.                                                                   
  11028. Courier New
  11029. winspool
  11030. \\MSPRINT32\2/1MC PRIVJ 157.56.32.242
  11031. Ne02:
  11032. \\MSPRINT32\2/1MC PRIVJ 157.56.
  11033. Letter
  11034. DRIVER=winspool
  11035. DEVICE=\\MSPRINT32\2/1MC PRIVJ 157.56.32.242
  11036. OUTPUT=Ne02:
  11037. ORIENTATION=0
  11038. PAPERSIZE=1
  11039. COPIES=1
  11040. DEFAULTSOURCE=7
  11041. DUPLEX=1
  11042. TTOPTION=3
  11043. exp_1
  11044. Arial
  11045. "Total Sales by Month - Detail"
  11046. &RIGHT(exp_1, 2) + "/" + LEFT(exp_1, 4)
  11047. Arial
  11048. Arial
  11049. "Sales"
  11050. sum_unit_price
  11051. Arial
  11052. "999999999.99"
  11053. Arial
  11054. "Month/Year
  11055. Arial
  11056. "Date
  11057. order_date
  11058. Arial
  11059. Arial
  11060. "Total"
  11061. MTON(sum_unit_price)
  11062. Arial
  11063. "999999999.99"
  11064. Arial
  11065.     "Average"
  11066. MTON(sum_unit_price)
  11067. Arial
  11068. "999999999.99"
  11069. Arial
  11070. "asmanian"
  11071. Arial
  11072. Arial
  11073.     "raders
  11074. Arial
  11075. Arial
  11076. "Grand Total
  11077. MTON(sum_unit_price)
  11078. Arial
  11079. "999999999.99"
  11080. Courier New
  11081. Arial
  11082. Arial
  11083. Arial
  11084. Arial
  11085. Arial
  11086. dataenvironment
  11087. JLeft = 1
  11088. Top = 220
  11089. Width = 520
  11090. Height = 197
  11091. Name = "Dataenvironment"
  11092. cursor
  11093. Left = 10
  11094. Top = 20
  11095. Width = 90
  11096. Height = 89
  11097. Alias = "sales_detail"
  11098. Database = ..\data\tastrade.dbc
  11099. CursorSource = "sales detail"
  11100. Name = "Cursor1"
  11101. DRIVER=winspool
  11102. DEVICE=LaserNT
  11103. OUTPUT=Ne00:
  11104. ORIENTATION=0
  11105. PAPERSIZE=1
  11106. SCALE=100
  11107. COPIES=1
  11108. DEFAULTSOURCE=7
  11109. PRINTQUALITY=300
  11110. COLOR=1
  11111. TTOPTION=3
  11112. COLLATE=0
  11113. winspool
  11114. LaserNT
  11115. Ne00:
  11116. LaserNT
  11117. Letter
  11118. Courier New
  11119. exp_1
  11120. "Total Sales by Month - Detail"
  11121. Arial
  11122. &RIGHT(exp_1, 2) + "/" + LEFT(exp_1, 4)
  11123. Arial
  11124. "Sales"
  11125. Arial
  11126. sum_unit_price
  11127. "999999999.99"
  11128. Arial
  11129. "Month/Year
  11130. Arial
  11131. "Date
  11132. Arial
  11133. order_date
  11134. Arial
  11135. "Total"
  11136. Arial
  11137. MTON(sum_unit_price)
  11138. "999999999.99"
  11139. Arial
  11140.     "Average"
  11141. Arial
  11142. MTON(sum_unit_price)
  11143. "999999999.99"
  11144. Arial
  11145. "asmanian"
  11146. Arial
  11147. Arial
  11148.     "raders
  11149. Arial
  11150. Arial
  11151. "Grand Total
  11152. Arial
  11153. MTON(sum_unit_price)
  11154. "999999999.99"
  11155. Arial
  11156. Courier New
  11157. Arial
  11158. Arial
  11159. Arial
  11160. Arial
  11161. Arial
  11162. dataenvironment
  11163. JLeft = 1
  11164. Top = 220
  11165. Width = 520
  11166. Height = 197
  11167. Name = "Dataenvironment"
  11168. cursor
  11169. Left = 10
  11170. Top = 20
  11171. Width = 90
  11172. Height = 89
  11173. Alias = "sales_detail"
  11174. Database = ..\data\tastrade.dbc
  11175. CursorSource = "sales detail"
  11176. Name = "Cursor1"
  11177. PLATFORM
  11178. UNIQUEID
  11179. TIMESTAMP
  11180. CLASS
  11181. CLASSLOC
  11182. BASECLASS
  11183. OBJNAME
  11184. PARENT
  11185. PROPERTIES
  11186. PROTECTED
  11187. METHODS
  11188. OBJCODE
  11189. RESERVED1
  11190. RESERVED2
  11191. RESERVED3
  11192. RESERVED4
  11193. RESERVED5
  11194. RESERVED6
  11195. RESERVED7
  11196. RESERVED8
  11197.  COMMENT Class              0
  11198.  WINDOWS _R2D0U325C 5527668975
  11199.  WINDOWS _R2D0U2YWS 520056900
  11200.  WINDOWS _R2D0U2Z72 552766897
  11201.  WINDOWS _R2D0U2Z7W 552383452
  11202.  WINDOWS _R2D0U2ZIH 552766897i
  11203.  WINDOWS _R2D0U2ZJB 552766897b
  11204.  WINDOWS _R2D0U2ZK5 552766897[
  11205.  WINDOWS _R2D0U2ZKZ 552766897T
  11206.  WINDOWS _R2D0U2ZM3 552766897M
  11207.  WINDOWS _R2D0U2ZOB 552766897E
  11208.  WINDOWS _R2D0U2ZPF 552766897=
  11209.  WINDOWS _R2D0U2ZQ9 5523830125
  11210.  WINDOWS _R2D0U2ZRN 552383012.
  11211.  WINDOWS _R2D0U2ZSR 552383012'
  11212.  WINDOWS _R2D0U2ZU6 552383012 
  11213.  WINDOWS _R2D0U2ZVA 552383012
  11214.  WINDOWS _RAC0LBZLG 552383488
  11215.  WINDOWS _R2D0U307S 552766897
  11216.  WINDOWS _R2D0U308M 552766897
  11217.  WINDOWS _R2D0U309G 552766897
  11218.  WINDOWS _R2D0U30AK 552766897
  11219.  WINDOWS _R2D0U30BE 552383012
  11220.  WINDOWS _R2D0U30CI 552383012
  11221.  WINDOWS _R2D0U30DX 552383012
  11222.  WINDOWS _QZP1DNV1N 548040317
  11223.  WINDOWS _R2D0U30PB 548040317
  11224.  WINDOWS _R2D0U30ZM 548043941
  11225.  WINDOWS _R2D0U3110 552383012
  11226.  WINDOWS _R2D0U31BK 552766897
  11227.  WINDOWS _R2D0U31CO 552766897
  11228.  WINDOWS _R2D0U31DI 552766897y
  11229.  WINDOWS _R2D0U31EM 552766897r
  11230.  WINDOWS _R2D0U31FG 552383012j
  11231.  WINDOWS _R2D0U323O 552766897S
  11232.  WINDOWS _R2D0U31RF 552383012L
  11233.  WINDOWS _R2D0U324I 552766897>
  11234.  COMMENT RESERVED            
  11235.  WINDOWS _QZP1DNV1N 552766921
  11236.  COMMENT RESERVED            
  11237. VERSION =  0.029
  11238. !Arial, 0, 8, 5, 14, 11, 20, 3, 0
  11239. ordtextbox
  11240. Pixels
  11241. Order entry text box used exclusively in the order entry class. It is based on tsTextBox, and is designed specifically to work in both the Order Entry and Order History forms. 
  11242. Class
  11243.     tstextbox
  11244. ordtextbox
  11245. Fldynamicenable False if control is permanently enabled or disabled. 
  11246. HISTORYC
  11247. TSTEXTBOX
  11248. ENABLED
  11249. THISFORM
  11250. LDYNAMICENABLE*
  11251. LDYNAMICENABLE
  11252. ENABLED
  11253. THISFORM
  11254. LALLOWEDITS
  11255. Init,
  11256. Refresh
  11257. PROCEDURE Init
  11258. tsTextBox::Init()
  11259. *-- Disable all text boxes if we are running the Order History
  11260. *-- form and the text box isn't already disabled.
  11261. IF this.Enabled
  11262.   this.Enabled = !("HISTORY" $ UPPER(thisform.name))
  11263.   IF !this.Enabled
  11264.     *-- If this is Order History, prevent text boxes
  11265.     *-- from changing the Enabled property
  11266.     this.lDynamicEnable = .F.
  11267.   ENDIF
  11268. ENDIF
  11269. ENDPROC
  11270. PROCEDURE Refresh
  11271. IF this.lDynamicEnable
  11272.   this.Enabled = thisform.lAllowEdits
  11273. ENDIF
  11274. ENDPROC
  11275. SHeight = 22
  11276. TabIndex = 1
  11277. Width = 100
  11278. ldynamicenable = .T.
  11279. Name = "ordtextbox"
  11280. textbox
  11281. tsbase.vcx
  11282. ..\include\tastrade.h
  11283. ..\..\..\dev\foxpro.h
  11284. ..\include\strings.h
  11285. BArial, 0, 8, 5, 14, 11, 20, 3, 0
  11286. Arial, 0, 9, 5, 15, 12, 21, 3, 0
  11287. orderentry
  11288. ..\include\tastrade.h
  11289. moveoffgrid
  11290. Pixels
  11291. aThe main order entry class, from which the order entry and order history forms will be based on. 
  11292. Class
  11293. tsbaseform
  11294. orderentry
  11295. Alignment = 0
  11296. Caption = "Notes"
  11297. Height = 14
  11298. Left = 15
  11299. Top = 260
  11300. Width = 81
  11301. TabIndex = 21
  11302. ZOrderSet = 34
  11303. Name = "Tslabel12"
  11304. orderentry.
  11305.     Tslabel12
  11306. label
  11307. tsbase.vcx
  11308. tslabel
  11309. ENABLED
  11310. THISFORM
  11311. LALLOWEDITS
  11312. Refresh,
  11313. CPROCEDURE Refresh
  11314. this.Enabled = thisform.lAllowEdits
  11315. ENDPROC
  11316. Height = 81
  11317. Left = 15
  11318. TabIndex = 15
  11319. Top = 275
  11320. Width = 246
  11321. DisabledBackColor = 255,255,255
  11322. ZOrderSet = 33
  11323. Name = "edtNotes"
  11324. orderentry.
  11325. edtNotes
  11326. editbox
  11327. tsbase.vcx
  11328.     tseditbox
  11329. vCaption = "Due By"
  11330. Height = 22
  11331. Left = 445
  11332. Top = 111
  11333. Width = 77
  11334. TabIndex = 24
  11335. ZOrderSet = 35
  11336. Name = "Tslabel4"
  11337. orderentry.
  11338. Tslabel4
  11339. label
  11340. tsbase.vcx
  11341. tslabel
  11342. LNTEMP
  11343. VALUE
  11344. THISFORM
  11345. TXTSUBTOTAL
  11346. TXTDISCOUNT
  11347. PROGRAMMATICCHANGE
  11348. ProgrammaticChange,
  11349. LostFocus
  11350. PROCEDURE ProgrammaticChange
  11351. *-- Calculate the discount value based on discount percent
  11352. LOCAL lnTemp
  11353. IF this.Value > 0
  11354.   lnTemp = ;
  11355.     thisform.txtSubTotal.Value * ;
  11356.     (this.Value / 100)
  11357.   thisform.txtDiscount.Value = lnTemp
  11358.   thisform.txtDiscount.Value = 0
  11359. ENDIF
  11360. ENDPROC
  11361. PROCEDURE LostFocus
  11362. *-- Force the totals to be updated
  11363. this.ProgrammaticChange()
  11364. ENDPROC
  11365. Alignment = 1
  11366. Value = 0.00
  11367. ControlSource = ""
  11368. Height = 22
  11369. InputMask = "99"
  11370. Left = 405
  11371. TabIndex = 20
  11372. Top = 280
  11373. Width = 29
  11374. ZOrderSet = 32
  11375. Name = "txtDiscountPerc"
  11376. orderentry.
  11377. txtDiscountPerc
  11378. textbox
  11379. orders.vcx
  11380. ordtextbox
  11381. ~Caption = "Invoice Total"
  11382. Height = 22
  11383. Left = 420
  11384. Top = 335
  11385. Width = 77
  11386. TabIndex = 31
  11387. ZOrderSet = 31
  11388. Name = "Tslabel16"
  11389. orderentry.
  11390.     Tslabel16
  11391. label
  11392. tsbase.vcx
  11393. tslabel
  11394. xCaption = "Freight"
  11395. Height = 22
  11396. Left = 420
  11397. Top = 310
  11398. Width = 77
  11399. TabIndex = 28
  11400. ZOrderSet = 30
  11401. Name = "Tslabel15"
  11402. orderentry.
  11403.     Tslabel15
  11404. label
  11405. tsbase.vcx
  11406. tslabel
  11407. {Caption = "% Discount"
  11408. Height = 22
  11409. Left = 420
  11410. Top = 285
  11411. Width = 77
  11412. TabIndex = 27
  11413. ZOrderSet = 29
  11414. Name = "Tslabel14"
  11415. orderentry.
  11416.     Tslabel14
  11417. label
  11418. tsbase.vcx
  11419. tslabel
  11420. ~Caption = "Item Subtotal"
  11421. Height = 22
  11422. Left = 420
  11423. Top = 260
  11424. Width = 77
  11425. TabIndex = 26
  11426. ZOrderSet = 28
  11427. Name = "Tslabel13"
  11428. orderentry.
  11429.     Tslabel13
  11430. label
  11431. tsbase.vcx
  11432. tslabel
  11433. THISFORM
  11434. TXTTOTAL
  11435. VALUE
  11436. TXTSUBTOTAL
  11437. TXTDISCOUNT
  11438. PROGRAMMATICCHANGE
  11439. ProgrammaticChange,
  11440. LostFocus
  11441. PROCEDURE ProgrammaticChange
  11442. *-- Calculate the total order amount
  11443. thisform.txtTotal.Value = ;
  11444.   thisform.txtSubtotal.Value - ;
  11445.   thisform.txtDiscount.Value + ;
  11446.   this.value
  11447. ENDPROC
  11448. PROCEDURE LostFocus
  11449. *-- Force the totals to be updated
  11450. this.ProgrammaticChange()
  11451. ENDPROC
  11452. Alignment = 1
  11453. Value = 0.00
  11454. InputMask = "$99,999,999.99"
  11455. Left = 505
  11456. TabIndex = 23
  11457. Top = 310
  11458. ZOrderSet = 27
  11459. Name = "txtFreight"
  11460. orderentry.
  11461. txtFreight
  11462. textbox
  11463. orders.vcx
  11464. ordtextbox
  11465. Alignment = 1
  11466. Value = 0.00
  11467. Enabled = .F.
  11468. InputMask = "99,999,999.99"
  11469. Left = 505
  11470. TabIndex = 34
  11471. Top = 335
  11472. DisabledBackColor = 255,255,255
  11473. ZOrderSet = 26
  11474. ldynamicenable = .F.
  11475. Name = "txtTotal"
  11476. orderentry.
  11477. txtTotal
  11478. textbox
  11479. orders.vcx
  11480. ordtextbox
  11481. THISFORM
  11482. TXTTOTAL
  11483. VALUE
  11484. TXTSUBTOTAL
  11485. TXTFREIGHT
  11486. ProgrammaticChange,
  11487. PROCEDURE ProgrammaticChange
  11488. *-- Calculate the total order amount
  11489. thisform.txtTotal.Value = ;
  11490.   thisform.txtSubtotal.Value - ;
  11491.   this.Value + ;
  11492.   thisform.txtFreight.Value
  11493. ENDPROC
  11494. Alignment = 1
  11495. Value = 0.00
  11496. Enabled = .F.
  11497. InputMask = "$99,999,999.99"
  11498. Left = 504
  11499. TabIndex = 33
  11500. Top = 288
  11501. DisabledBackColor = 255,255,255
  11502. ZOrderSet = 25
  11503. ldynamicenable = .F.
  11504. Name = "txtDiscount"
  11505. orderentry.
  11506. txtDiscount
  11507. textbox
  11508. orders.vcx
  11509. ordtextbox
  11510. THISFORM
  11511. TXTDISCOUNTPERC
  11512. VALUE
  11513. TXTDISCOUNT
  11514. TXTSUBTOTAL
  11515. ProgrammaticChange,
  11516. PROCEDURE ProgrammaticChange
  11517. *-- Calculate discount
  11518. IF thisform.txtDiscountPerc.Value > 0
  11519.   thisform.txtDiscount.Value = ;
  11520.     thisform.txtSubTotal.Value * ;
  11521.     (thisform.txtDiscountPerc.Value / 100)
  11522.   thisform.txtDiscount.Value = 0
  11523. ENDIF
  11524. ENDPROC
  11525. Alignment = 1
  11526. Value = 0.00
  11527. Enabled = .F.
  11528. InputMask = "$99,999,999.99"
  11529. Left = 505
  11530. TabIndex = 32
  11531. Top = 260
  11532. DisabledBackColor = 255,255,255
  11533. ZOrderSet = 24
  11534. ldynamicenable = .F.
  11535. Name = "txtSubTotal"
  11536. orderentry.
  11537. txtSubTotal
  11538. textbox
  11539. orders.vcx
  11540. ordtextbox
  11541. JLeft = 306
  11542. TabIndex = 8
  11543. Top = 107
  11544. ZOrderSet = 22
  11545. Name = "txtCountry"
  11546. orderentry.
  11547. txtCountry
  11548. textbox
  11549. orders.vcx
  11550. ordtextbox
  11551. ULeft = 306
  11552. TabIndex = 7
  11553. Top = 84
  11554. ZOrderSet = 21
  11555. Name = "txtShip_To_Postal_Code"
  11556. orderentry.
  11557. txtShip_To_Postal_Code
  11558. textbox
  11559. orders.vcx
  11560. ordtextbox
  11561. QLeft = 100
  11562. TabIndex = 6
  11563. Top = 107
  11564. ZOrderSet = 20
  11565. Name = "txtShip_To_Region"
  11566. orderentry.
  11567. txtShip_To_Region
  11568. textbox
  11569. orders.vcx
  11570. ordtextbox
  11571. xCaption = "Country"
  11572. Height = 22
  11573. Left = 204
  11574. Top = 107
  11575. Width = 97
  11576. TabIndex = 19
  11577. ZOrderSet = 19
  11578. Name = "Tslabel11"
  11579. orderentry.
  11580.     Tslabel11
  11581. label
  11582. tsbase.vcx
  11583. tslabel
  11584. {Caption = "Postal Code"
  11585. Height = 22
  11586. Left = 204
  11587. Top = 84
  11588. Width = 98
  11589. TabIndex = 14
  11590. ZOrderSet = 18
  11591. Name = "Tslabel10"
  11592. orderentry.
  11593.     Tslabel10
  11594. label
  11595. tsbase.vcx
  11596. tslabel
  11597. Caption = "Region"
  11598. Height = 22
  11599. Left = 17
  11600. Top = 107
  11601. Width = 77
  11602. TabIndex = 13
  11603. BackColor = 0,0,0
  11604. ZOrderSet = 17
  11605. Name = "Tslabel9"
  11606. orderentry.
  11607. Tslabel9
  11608. label
  11609. tsbase.vcx
  11610. tslabel
  11611. rCaption = "City"
  11612. Height = 22
  11613. Left = 16
  11614. Top = 84
  11615. Width = 77
  11616. TabIndex = 11
  11617. ZOrderSet = 16
  11618. Name = "Tslabel8"
  11619. orderentry.
  11620. Tslabel8
  11621. label
  11622. tsbase.vcx
  11623. tslabel
  11624. cShipperList
  11625. CSHIPPERLIST
  11626. ENABLED
  11627. THISFORM
  11628. LALLOWEDITS
  11629. Destroy,
  11630. Refreshh
  11631. PROCEDURE Destroy
  11632. IF USED("cShipperList")
  11633.   USE IN cShipperList
  11634. ENDIF
  11635. ENDPROC
  11636. PROCEDURE Refresh
  11637. this.Enabled = thisform.lAllowEdits
  11638. ENDPROC
  11639. BoundColumn = 2
  11640. RowSourceType = 3
  11641. RowSource = ""
  11642. Height = 21
  11643. Left = 444
  11644. Style = 2
  11645. TabIndex = 10
  11646. Top = 81
  11647. Width = 156
  11648. ZOrderSet = 15
  11649. ColorSource = 0
  11650. DisabledBackColor = 255,255,255
  11651. Name = "cboShipper_ID"
  11652. orderentry.
  11653. cboShipper_ID
  11654. combobox
  11655. tsbase.vcx
  11656. tscombobox
  11657. Alignment = 1
  11658. Enabled = .F.
  11659. Height = 22
  11660. Left = 530
  11661. TabIndex = 30
  11662. Top = 35
  11663. Width = 69
  11664. ZOrderSet = 14
  11665. ldynamicenable = .F.
  11666. Name = "txtOrder_Date"
  11667. orderentry.
  11668. txtOrder_Date
  11669. textbox
  11670. orders.vcx
  11671. ordtextbox
  11672. Alignment = 1
  11673. Enabled = .F.
  11674. Height = 22
  11675. Left = 530
  11676. TabIndex = 29
  11677. Top = 10
  11678. Width = 69
  11679. ZOrderSet = 13
  11680. ldynamicenable = .F.
  11681. Name = "txtOrder_Number"
  11682. orderentry.
  11683. txtOrder_Number
  11684. textbox
  11685. orders.vcx
  11686. ordtextbox
  11687. NLeft = 100
  11688. TabIndex = 5
  11689. Top = 84
  11690. ZOrderSet = 12
  11691. Name = "txtShip_To_City"
  11692. orderentry.
  11693. txtShip_To_City
  11694. textbox
  11695. orders.vcx
  11696. ordtextbox
  11697. kHeight = 24
  11698. Left = 100
  11699. TabIndex = 4
  11700. Top = 58
  11701. Width = 306
  11702. ZOrderSet = 11
  11703. Name = "txtShip_To_Address"
  11704. orderentry.
  11705. txtShip_To_Address
  11706. textbox
  11707. orders.vcx
  11708. ordtextbox
  11709. hHeight = 24
  11710. Left = 100
  11711. TabIndex = 3
  11712. Top = 32
  11713. Width = 306
  11714. ZOrderSet = 10
  11715. Name = "txtShip_To_Name"
  11716. orderentry.
  11717. txtShip_To_Name
  11718. textbox
  11719. orders.vcx
  11720. ordtextbox
  11721. Alignment = 0
  11722. Caption = "\<Delivery Information"
  11723. Height = 22
  11724. Left = 445
  11725. Top = 67
  11726. Width = 156
  11727. TabIndex = 9
  11728. ZOrderSet = 9
  11729. Name = "lblDeliveryInfo"
  11730. orderentry.
  11731. lblDeliveryInfo
  11732. label
  11733. tsbase.vcx
  11734. tslabel
  11735. Alignment = 1
  11736. Caption = "Order Date"
  11737. Height = 22
  11738. Left = 444
  11739. Top = 35
  11740. Width = 77
  11741. TabIndex = 25
  11742. ZOrderSet = 8
  11743. Name = "Tslabel6"
  11744. orderentry.
  11745. Tslabel6
  11746. label
  11747. tsbase.vcx
  11748. tslabel
  11749. Alignment = 1
  11750. Caption = "Order #"
  11751. Height = 22
  11752. Left = 445
  11753. Top = 10
  11754. Width = 77
  11755. TabIndex = 22
  11756. ZOrderSet = 7
  11757. Name = "Tslabel5"
  11758. orderentry.
  11759. Tslabel5
  11760. label
  11761. tsbase.vcx
  11762. tslabel
  11763. tCaption = "Address"
  11764. Height = 22
  11765. Left = 16
  11766. Top = 58
  11767. Width = 77
  11768. TabIndex = 17
  11769. ZOrderSet = 6
  11770. Name = "Tslabel3"
  11771. orderentry.
  11772. Tslabel3
  11773. label
  11774. tsbase.vcx
  11775. tslabel
  11776. tCaption = "Ship To"
  11777. Height = 22
  11778. Left = 16
  11779. Top = 32
  11780. Width = 77
  11781. TabIndex = 16
  11782. ZOrderSet = 5
  11783. Name = "Tslabel2"
  11784. orderentry.
  11785. Tslabel2
  11786. label
  11787. tsbase.vcx
  11788. tslabel
  11789. xCaption = "\<Customer"
  11790. Height = 22
  11791. Left = 16
  11792. Top = 8
  11793. Width = 77
  11794. TabIndex = 1
  11795. ZOrderSet = 4
  11796. Name = "lblCustomer"
  11797. orderentry.
  11798. lblCustomer
  11799. label
  11800. tsbase.vcx
  11801. tslabel
  11802. TTop = 28
  11803. Left = 12
  11804. Height = 110
  11805. Width = 399
  11806. ZOrderSet = 3
  11807. Name = "Ts3dshape2"
  11808. orderentry.
  11809. Ts3dshape2
  11810. shape
  11811. tsbase.vcx
  11812.     ts3dshape
  11813. Date must be today or later.
  11814. Tasmanian Traders
  11815. VALUE
  11816. REFRESH
  11817. HISTORYC
  11818. TEXTBOX
  11819. REFRESH
  11820. THISFORM
  11821. LALLOWEDITS
  11822. VALUE
  11823. LALLOWDELETE
  11824. ORDTEXTBOX
  11825. Valid,
  11826. Refresh
  11827. CPROCEDURE Valid
  11828. *-- The deliver by date must be today or later
  11829. IF this.Value < DATE()
  11830.   =MessageBox(TODAYORLATER_LOC, ;
  11831.               MB_ICONEXCLAMATION, ;
  11832.               TASTRADE_LOC)
  11833.   this.Value = DATE()
  11834.   this.Refresh()
  11835.   RETURN .F.
  11836. ENDIF
  11837. ENDPROC
  11838. PROCEDURE Refresh
  11839. textbox::Refresh()
  11840. IF !("HISTORY" $ UPPER(thisform.Name))
  11841.   IF "3" $ GETFLDSTATE(-1) OR "4" $ GETFLDSTATE(-1)
  11842.     thisform.lAllowEdits = .T.
  11843.   ELSE
  11844.     thisform.lAllowEdits = this.Value > DATE()
  11845.     thisform.lAllowDelete = thisform.lAllowEdits
  11846.   ENDIF
  11847. ENDIF
  11848. OrdTextBox::Refresh()
  11849. ENDPROC
  11850. uAlignment = 1
  11851. Height = 22
  11852. Left = 530
  11853. TabIndex = 12
  11854. Top = 111
  11855. Width = 69
  11856. ZOrderSet = 2
  11857. Name = "txtDeliver_By"
  11858. orderentry.
  11859. txtDeliver_By
  11860. textbox
  11861. orders.vcx
  11862. ordtextbox
  11863. TTop = 62
  11864. Left = 435
  11865. Height = 76
  11866. Width = 170
  11867. ZOrderSet = 1
  11868. Name = "Ts3dshape1"
  11869. orderentry.
  11870. Ts3dshape1
  11871. shape
  11872. tsbase.vcx
  11873.     ts3dshape
  11874. THISFORM
  11875. CBOCUSTOMER_ID
  11876. ENABLED
  11877. SETFOCUS
  11878. TXTSHIP_TO_NAME
  11879. THISFORM
  11880. WIDTH
  11881. GOTFOCUS
  11882. GotFocus,
  11883. Refresh
  11884. PROCEDURE GotFocus
  11885. *-- If user is tabbing around the form , don't stop here!
  11886. IF thisform.cboCustomer_ID.Enabled
  11887.   thisform.cboCustomer_ID.SetFocus()
  11888.   IF thisform.txtShip_To_Name.Enabled
  11889.     thisform.txtShip_To_Name.SetFocus()
  11890.   ENDIF
  11891. ENDIF
  11892. ENDPROC
  11893. PROCEDURE Init
  11894. *-- Move control out of site
  11895. this.Left = thisform.Width + 10
  11896. ENDPROC
  11897. PROCEDURE Refresh
  11898. *-- As user is scrolling through the orders, if 
  11899. *-- an order is displayed that is editable, we need
  11900. *-- to shift the focus
  11901. this.GotFocus()
  11902. ENDPROC
  11903. Top = 165
  11904. Left = 506
  11905. Height = 36
  11906. Width = 100
  11907. Caption = "Focus Control"
  11908. TabIndex = 18
  11909. ZOrderSet = 0
  11910. Name = "cmdFocusControl"
  11911. orderentry.
  11912. cmdFocusControl
  11913. commandbutton
  11914. commandbutton
  11915. *refreshcustomerinfo Refreshes the customer ship to address, city, etc. Called when selecting a new customer.
  11916. *moveoffgrid Sets focus away from the grid when navigating the table.
  11917. ^ashippers[1,0] Array of shippers
  11918. THISFORM
  11919. CBOCUSTOMER_ID
  11920. VALUE
  11921. TXTSHIP_TO_NAME
  11922. CUSTOMER
  11923. COMPANY_NAME
  11924. TXTSHIP_TO_ADDRESS
  11925. ADDRESS
  11926. TXTSHIP_TO_CITY
  11927. TXTSHIP_TO_REGION
  11928. REGION
  11929. TXTSHIP_TO_POSTAL_CODE
  11930. POSTAL_CODE
  11931. TXTCOUNTRY
  11932. COUNTRY
  11933. TXTDISCOUNTPERC
  11934. DISCOUNTT
  11935. this.ActiveControlb
  11936. ACTIVECONTROL    
  11937. BASECLASS
  11938. THISFORM
  11939. CMDFOCUSCONTROL
  11940. SETFOCUSX
  11941. HISTORYC
  11942. Order History
  11943. THISFORM
  11944. TSBASEFORM
  11945. RESTOREWINDOWPOSX
  11946. HISTORYC
  11947. Order History
  11948. THISFORM
  11949. TSBASEFORM
  11950. SAVEWINDOWPOS
  11951. THISFORM
  11952. MOVEOFFGRID
  11953. TSBASEFORM
  11954. PRIOR
  11955. THISFORM
  11956. MOVEOFFGRID
  11957. TSBASEFORM
  11958. THISFORM
  11959. MOVEOFFGRID
  11960. TSBASEFORM
  11961. FIRST
  11962. THISFORM
  11963. MOVEOFFGRID
  11964. TSBASEFORM
  11965. LLERROR
  11966. LAERROR
  11967. THISFORM
  11968. MOVEOFFGRID
  11969. WRITEBUFFER
  11970. ORDERS
  11971. ORDER_LINE_ITEMS
  11972. LOCKSCREEN
  11973. GRDLINEITEMS
  11974. REFRESH
  11975. ERROR
  11976. OTOOLBAR
  11977. CMDNEW
  11978. ENABLED
  11979. REFRESHFORM
  11980. ORDERS
  11981. oAppb
  11982. order_line_items
  11983. ORDERS
  11984. THISFORM
  11985. LALLOWEDITS
  11986. LALLOWDELETE
  11987. OTOOLBAR
  11988. REFRESH
  11989. TSBASEFORM
  11990. ADDNEW
  11991. ORDER_ID
  11992. GRDLINEITEMS
  11993. CBOCUSTOMER_ID
  11994. SETFOCUS
  11995. Order_Line_Items
  11996. Orders
  11997. orders+
  11998. orders
  11999. THISFORM
  12000. MOVEOFFGRID
  12001. ORDERS
  12002. REFRESHFORM?
  12003. ORDERS
  12004. THISFORM
  12005. MOVEOFFGRID
  12006. ORDERS
  12007. TSBASEFORM
  12008. DELETEf
  12009. order_line_items
  12010. LLRETVAL
  12011. ORDERS
  12012. TSBASEFORM
  12013. DATACHANGED
  12014. refreshcustomerinfo,
  12015. moveoffgridb
  12016. restorewindowpos
  12017. savewindowpos
  12018. prior
  12019. last\
  12020. first
  12021. save>
  12022. addnewl
  12023. restore
  12024. deletez    
  12025. datachanged
  12026. PROCEDURE refreshcustomerinfo
  12027. *-- Update customer information
  12028. IF !EMPTY(thisform.cboCustomer_ID.Value)
  12029.   thisform.txtShip_To_Name.Value = customer.company_name
  12030.   thisform.txtShip_To_Address.Value = customer.address
  12031.   thisform.txtShip_To_City.Value = customer.city
  12032.   thisform.txtShip_To_Region.Value = customer.region
  12033.   thisform.txtShip_To_Postal_Code.Value = customer.postal_code
  12034.   thisform.txtCountry.Value = customer.country
  12035.   thisform.txtDiscountPerc.Value = customer.discount
  12036.   *-- If there is no customer selected, blank out the customer
  12037.   *-- information
  12038.   thisform.txtShip_To_Name.Value = ""
  12039.   thisform.txtShip_To_Address.Value = ""
  12040.   thisform.txtShip_To_City.Value = ""
  12041.   thisform.txtShip_To_Region.Value = ""
  12042.   thisform.txtShip_To_Postal_Code.Value = ""
  12043.   thisform.txtCountry.Value = ""
  12044.   thisform.txtDiscountPerc.Value = 0
  12045. ENDIF
  12046. ENDPROC
  12047. PROCEDURE moveoffgrid
  12048. *-- To prevent the SumColumn method of grdLineItems from being called
  12049. *-- twice, once from the Refresh() method, and once from the BeforeRowColChange
  12050. *-- method, we set focus away from the grid
  12051. IF TYPE("this.ActiveControl") == "O" AND ;
  12052.     UPPER(this.ActiveControl.BaseClass) = "GRID"
  12053.   thisform.cmdFocusControl.SetFocus()
  12054. ENDIF
  12055. ENDPROC
  12056. PROCEDURE restorewindowpos
  12057. *-- Since the caption and name properties of 
  12058. *-- the Order History form are dynamic, we specify
  12059. *-- the name of the entry to make in the INI file.
  12060. IF "HISTORY" $ UPPER(thisform.Name)
  12061.   tsBaseForm::RestoreWindowPos("Order History")
  12062.   tsBaseForm::RestoreWindowPos()
  12063. ENDIF
  12064. ENDPROC
  12065. PROCEDURE savewindowpos
  12066. *-- Since the caption and name properties of 
  12067. *-- the Order History form are dynamic, we specify
  12068. *-- the name of the entry to make in the INI file.
  12069. IF "HISTORY" $ UPPER(thisform.Name)
  12070.   tsBaseForm::SaveWindowPos("Order History")
  12071.   tsBaseForm::SaveWindowPos()
  12072. ENDIF
  12073. ENDPROC
  12074. PROCEDURE prior
  12075. thisform.MoveOffGrid()
  12076. RETURN tsBaseForm::Prior()
  12077. ENDPROC
  12078. PROCEDURE last
  12079. thisform.MoveOffGrid()
  12080. RETURN tsBaseForm::Last()
  12081. ENDPROC
  12082. PROCEDURE first
  12083. thisform.MoveOffGrid()
  12084. RETURN tsBaseForm::First()
  12085. ENDPROC
  12086. PROCEDURE next
  12087. thisform.MoveOffGrid()
  12088. RETURN tsBaseForm::Next()
  12089. ENDPROC
  12090. PROCEDURE save
  12091. *-- (c) Microsoft Corporation 1995
  12092. LOCAL llError, ;
  12093.       laError[AERRORARRAY]
  12094. thisform.MoveOffGrid()
  12095. IF thisform.WriteBuffer()
  12096.   BEGIN TRANSACTION
  12097.   llError = (TXNLEVEL() = 0)
  12098.   IF !llError
  12099.     SELECT orders
  12100.     *-- If no data has changed in the orders table, the table
  12101.     *-- rule will not fire unless we force it.
  12102.     IF GETFLDSTATE(-1) = REPLICATE("1", FCOUNT() + 1)
  12103.       =SETFLDSTATE(2, 2)
  12104.     ENDIF
  12105.     llError = !TABLEUPDATE()
  12106.     IF !llError
  12107.       SELECT order_line_items
  12108.       llError = !TABLEUPDATE(.T.)
  12109.     ENDIF
  12110.     IF !llError
  12111.       END TRANSACTION
  12112.     ELSE
  12113.       thisform.LockScreen = .T.
  12114.       ROLLBACK
  12115.       thisform.grdLineItems.Refresh()
  12116.       thisform.LockScreen = .F.
  12117.       =AERROR(laError)
  12118.       thisform.Error(laError[1], ;
  12119.                      laError[2], ;
  12120.                      0)
  12121.     ENDIF
  12122.   ENDIF
  12123. ENDIF
  12124. *- enable new button
  12125. oApp.oToolBar.cmdNew.Enabled = .T.
  12126. ACTIVATE MENU _msysmenu NOWAIT
  12127. SELECT orders
  12128. thisform.RefreshForm()
  12129. RETURN !llError
  12130. ENDPROC
  12131. PROCEDURE addnew
  12132. IF ALIAS() <> "ORDERS"
  12133.   SELECT orders
  12134. ENDIF
  12135. thisform.lAllowEdits = .T.
  12136. thisform.lAllowDelete = .T.
  12137. *-- Refresh the toolbar
  12138. IF TYPE("oApp") == "O"
  12139.   oApp.oToolbar.Refresh()
  12140. ENDIF
  12141. IF tsBaseForm::AddNew()
  12142.   *-- Add a blank record to the grid so the user can tab into it
  12143.   INSERT INTO order_line_items ;
  12144.     (order_id) ;
  12145.     VALUES ;
  12146.     (orders.order_id)
  12147.   thisform.grdLineItems.Refresh()
  12148.   thisform.cboCustomer_ID.SetFocus()
  12149. ENDIF
  12150. ENDPROC
  12151. PROCEDURE restore
  12152. thisform.MoveOffGrid()
  12153. =TABLEREVERT(.T., "Order_Line_Items")
  12154. =TABLEREVERT(.F., "Orders")
  12155. IF EOF("orders") AND !BOF("orders")
  12156.   SKIP -1 IN ORDERS
  12157. ENDIF
  12158. thisform.RefreshForm()
  12159. ENDPROC
  12160. PROCEDURE delete
  12161. thisform.MoveOffGrid()
  12162. IF ALIAS() <> "ORDERS"
  12163.   SELECT orders
  12164. ENDIF
  12165. tsBaseForm::Delete()
  12166. ENDPROC
  12167. PROCEDURE datachanged
  12168. LOCAL llRetVal
  12169. SELECT orders
  12170. llRetVal = tsBaseForm::DataChanged()
  12171. IF !llRetVal
  12172.   *-- Check if any line items have changed
  12173.   llRetVal = (GETNEXTMODIFIED(0, "order_line_items") <> 0)
  12174. ENDIF
  12175. RETURN llRetVal
  12176. ENDPROC
  12177. hScaleMode = 3
  12178. Height = 367
  12179. Width = 620
  12180. DoCreate = .T.
  12181. Caption = "Order Entry"
  12182. Name = "orderentry"
  12183. tsbase.vcx
  12184. PLATFORM
  12185. UNIQUEID
  12186. TIMESTAMP
  12187. CLASS
  12188. CLASSLOC
  12189. BASECLASS
  12190. OBJNAME
  12191. PARENT
  12192. PROPERTIES
  12193. PROTECTED
  12194. METHODS
  12195. OBJCODE
  12196. RESERVED1
  12197. RESERVED2
  12198. RESERVED3
  12199. RESERVED4
  12200. RESERVED5
  12201. RESERVED6
  12202. RESERVED7
  12203. RESERVED8
  12204.  COMMENT Screen              
  12205.  WINDOWS _R440LF6V9 5244394135
  12206.  WINDOWS _R440LF6VJ 552878234
  12207.  WINDOWS _R440LF6W3 552878234
  12208.  WINDOWS _R440LF6WD 552878234
  12209.  WINDOWS _R440LF6WX 552878234
  12210.  WINDOWS _R440LF6XH 552878234~
  12211.  WINDOWS _R440LF6XR 524439413\
  12212.  WINDOWS _R440LF6Y1 524439413+
  12213.  WINDOWS _R440LF6YB 524439413
  12214.  WINDOWS FONTINFO   552878234
  12215.  WINDOWS _RA30L0UBT 548098245
  12216.  WINDOWS _QXS0QK8KL 552878235%3
  12217.  WINDOWS _QXS0QK9TN 509702993
  12218.  WINDOWS _QXS0QK9U7 508584690
  12219.  WINDOWS _QY710LDMM 552878235M?
  12220.  WINDOWS _QXS0QK9VV 509702994
  12221.  WINDOWS _QXS0QK9WF 552878235
  12222.  WINDOWS _QXS0QKB25 509702994
  12223.  WINDOWS _QXS0QKB2P 552878235|H
  12224.  WINDOWS _QXS0QKC9J 509702994
  12225.  WINDOWS _QXS0QKCA3 552878235aK
  12226.  WINDOWS _QXZ0ZK4YY 552877829
  12227.  WINDOWS _QXZ0ZK4ZS 552878235
  12228.  WINDOWS _R440LF6V9 552878235
  12229.  WINDOWS _QXB1DZF84 552878235
  12230.  WINDOWS _RA30L0UBU 547979639
  12231.  WINDOWS _R440LF6V9 552878235cJ
  12232.  WINDOWS _RAA0ZRHTY 552878235
  12233.  COMMENT RESERVED            
  12234. VERSION =   3.00
  12235. ..\include\tastrade.h
  12236. dataenvironment
  12237. dataenvironment
  12238. Dataenvironment
  12239. Left = 17
  12240. Top = 0
  12241. Width = 520
  12242. Height = 510
  12243. AutoCloseTables = .F.
  12244. InitialSelectedAlias = "Orders"
  12245. Name = "Dataenvironment"
  12246. cursor
  12247. cursor
  12248. Cursor1
  12249. Dataenvironment
  12250. Left = 168
  12251. Top = 8
  12252. Width = 142
  12253. Height = 351
  12254. Alias = "Orders"
  12255. Database = ..\data\tastrade.dbc
  12256. CursorSource = "Orders"
  12257. Name = "Cursor1"
  12258. cursor
  12259. cursor
  12260. Cursor2
  12261. Dataenvironment
  12262. Left = 17
  12263. Top = 8
  12264. Width = 116
  12265. Height = 297
  12266. Alias = "Customer"
  12267. Database = ..\data\tastrade.dbc
  12268. CursorSource = "Customer"
  12269. Name = "Cursor2"
  12270. cursor
  12271. cursor
  12272. Cursor3
  12273. Dataenvironment
  12274. Left = 11
  12275. Top = 364
  12276. Width = 121
  12277. Height = 98
  12278. Alias = "Shippers"
  12279. Database = ..\data\tastrade.dbc
  12280. CursorSource = "Shippers"
  12281. Name = "Cursor3"
  12282. cursor
  12283. cursor
  12284. Cursor4
  12285. Dataenvironment
  12286. Left = 362
  12287. Top = 10
  12288. Width = 96
  12289. Height = 138
  12290. Alias = "Order_Line_Items"
  12291. Database = ..\data\tastrade.dbc
  12292. CursorSource = "Order_Line_Items"
  12293. Name = "Cursor4"
  12294. cursor
  12295. cursor
  12296. Cursor5
  12297. Dataenvironment
  12298. Left = 337
  12299. Top = 179
  12300. Width = 118
  12301. Height = 282
  12302. Alias = "Products"
  12303. Database = ..\data\tastrade.dbc
  12304. CursorSource = "Products"
  12305. Name = "Cursor5"
  12306. relation
  12307. relation
  12308.     Relation1
  12309. Dataenvironment
  12310. ParentAlias = "Orders"
  12311. RelationalExpr = "shipper_id"
  12312. ChildAlias = "Shippers"
  12313. ChildOrder = "shipper_id"
  12314. Name = "Relation1"
  12315. relation
  12316. relation
  12317.     Relation2
  12318. Dataenvironment
  12319. ParentAlias = "Orders"
  12320. RelationalExpr = "order_id"
  12321. ChildAlias = "Order_Line_Items"
  12322. ChildOrder = "order_id"
  12323. Name = "Relation2"
  12324. relation
  12325. relation
  12326.     Relation3
  12327. Dataenvironment
  12328. ParentAlias = "Order_Line_Items"
  12329. RelationalExpr = "product_id"
  12330. ChildAlias = "Products"
  12331. ChildOrder = "product_id"
  12332. Name = "Relation3"
  12333. orderentry
  12334. ..\libs\orders.vcx
  12335. frmorderentry
  12336. ScaleMode = 3
  12337. Top = 1
  12338. Left = 11
  12339. Height = 354
  12340. Width = 607
  12341. DoCreate = .T.
  12342. AutoCenter = .F.
  12343. Icon = ..\bitmaps\orders.ico
  12344. HelpContextID = 11
  12345. Name = "frmorderentry"
  12346. cmdFocusControl.TabIndex = 38
  12347. cmdFocusControl.Name = "cmdFocusControl"
  12348. ts3dshape1.Top = 62
  12349. ts3dshape1.Left = 428
  12350. ts3dshape1.Height = 76
  12351. ts3dshape1.Width = 170
  12352. ts3dshape1.Name = "ts3dshape1"
  12353. txtdeliver_by.ControlSource = "orders.deliver_by"
  12354. txtdeliver_by.Left = 524
  12355. txtdeliver_by.TabIndex = 15
  12356. txtdeliver_by.Name = "txtdeliver_by"
  12357. ts3dshape2.Left = 6
  12358. ts3dshape2.Height = 110
  12359. ts3dshape2.Width = 399
  12360. ts3dshape2.Name = "ts3dshape2"
  12361. lblCustomer.Height = 22
  12362. lblCustomer.Left = 10
  12363. lblCustomer.Width = 77
  12364. lblCustomer.TabIndex = 1
  12365. lblCustomer.Name = "lblCustomer"
  12366. tslabel2.Height = 22
  12367. tslabel2.Left = 10
  12368. tslabel2.Width = 77
  12369. tslabel2.TabIndex = 6
  12370. tslabel2.Name = "tslabel2"
  12371. tslabel3.Height = 22
  12372. tslabel3.Left = 10
  12373. tslabel3.Width = 77
  12374. tslabel3.TabIndex = 8
  12375. tslabel3.Name = "tslabel3"
  12376. tslabel5.Height = 22
  12377. tslabel5.Left = 438
  12378. tslabel5.Top = 3
  12379. tslabel5.Width = 77
  12380. tslabel5.TabIndex = 9
  12381. tslabel5.Name = "tslabel5"
  12382. tslabel6.Height = 22
  12383. tslabel6.Left = 438
  12384. tslabel6.Top = 32
  12385. tslabel6.Width = 77
  12386. tslabel6.TabIndex = 12
  12387. tslabel6.Name = "tslabel6"
  12388. lblDeliveryInfo.Height = 22
  12389. lblDeliveryInfo.Left = 440
  12390. lblDeliveryInfo.Width = 156
  12391. lblDeliveryInfo.TabIndex = 13
  12392. lblDeliveryInfo.Name = "lblDeliveryInfo"
  12393. txtship_to_name.ControlSource = "orders.ship_to_name"
  12394. txtship_to_name.Left = 94
  12395. txtship_to_name.TabIndex = 3
  12396. txtship_to_name.Name = "txtship_to_name"
  12397. txtship_to_address.ControlSource = "orders.ship_to_address"
  12398. txtship_to_address.Left = 94
  12399. txtship_to_address.TabIndex = 4
  12400. txtship_to_address.Name = "txtship_to_address"
  12401. txtship_to_city.ControlSource = "orders.ship_to_city"
  12402. txtship_to_city.Left = 94
  12403. txtship_to_city.TabIndex = 5
  12404. txtship_to_city.Name = "txtship_to_city"
  12405. txtorder_number.ControlSource = "orders.order_number"
  12406. txtorder_number.Left = 524
  12407. txtorder_number.TabIndex = 37
  12408. txtorder_number.Top = 3
  12409. txtorder_number.Name = "txtorder_number"
  12410. txtorder_date.ControlSource = "orders.order_date"
  12411. txtorder_date.Left = 524
  12412. txtorder_date.TabIndex = 39
  12413. txtorder_date.Top = 32
  12414. txtorder_date.Name = "txtorder_date"
  12415. cboshipper_id.RowSource = "select company_name, shipper_id from shippers order by company_name into cursor cShipperList"
  12416. cboshipper_id.ControlSource = "Orders.shipper_id"
  12417. cboshipper_id.Left = 439
  12418. cboshipper_id.TabIndex = 14
  12419. cboshipper_id.Name = "cboshipper_id"
  12420. tslabel8.Height = 22
  12421. tslabel8.Left = 10
  12422. tslabel8.Width = 77
  12423. tslabel8.TabIndex = 25
  12424. tslabel8.Name = "tslabel8"
  12425. tslabel9.Height = 22
  12426. tslabel9.Left = 11
  12427. tslabel9.Width = 77
  12428. tslabel9.TabIndex = 26
  12429. tslabel9.Name = "tslabel9"
  12430. tslabel10.Height = 22
  12431. tslabel10.Left = 198
  12432. tslabel10.Width = 98
  12433. tslabel10.TabIndex = 27
  12434. tslabel10.Name = "tslabel10"
  12435. tslabel11.Height = 22
  12436. tslabel11.Left = 198
  12437. tslabel11.Width = 97
  12438. tslabel11.TabIndex = 28
  12439. tslabel11.Name = "tslabel11"
  12440. txtship_to_region.ControlSource = "orders.ship_to_region"
  12441. txtship_to_region.Left = 94
  12442. txtship_to_region.TabIndex = 7
  12443. txtship_to_region.Name = "txtship_to_region"
  12444. txtship_to_postal_code.ControlSource = "orders.ship_to_postal_code"
  12445. txtship_to_postal_code.Left = 300
  12446. txtship_to_postal_code.TabIndex = 10
  12447. txtship_to_postal_code.Name = "txtship_to_postal_code"
  12448. txtcountry.ControlSource = "orders.ship_to_country"
  12449. txtcountry.Left = 300
  12450. txtcountry.TabIndex = 11
  12451. txtcountry.Name = "txtcountry"
  12452. txtsubtotal.InputMask = "99,999,999.99"
  12453. txtsubtotal.Left = 499
  12454. txtsubtotal.TabIndex = 34
  12455. txtsubtotal.Top = 252
  12456. txtsubtotal.Name = "txtsubtotal"
  12457. txtdiscount.InputMask = "99,999,999.99"
  12458. txtdiscount.Left = 499
  12459. txtdiscount.TabIndex = 35
  12460. txtdiscount.Top = 277
  12461. txtdiscount.Name = "txtdiscount"
  12462. txttotal.Left = 499
  12463. txttotal.TabIndex = 36
  12464. txttotal.Top = 329
  12465. txttotal.Name = "txttotal"
  12466. txtfreight.ControlSource = "orders.freight"
  12467. txtfreight.InputMask = "99,999,999.99"
  12468. txtfreight.Left = 499
  12469. txtfreight.TabIndex = 23
  12470. txtfreight.Top = 302
  12471. txtfreight.Name = "txtfreight"
  12472. tslabel13.Height = 22
  12473. tslabel13.Left = 414
  12474. tslabel13.Top = 252
  12475. tslabel13.Width = 77
  12476. tslabel13.TabIndex = 29
  12477. tslabel13.Name = "tslabel13"
  12478. tslabel14.Height = 22
  12479. tslabel14.Left = 414
  12480. tslabel14.Top = 277
  12481. tslabel14.Width = 77
  12482. tslabel14.TabIndex = 30
  12483. tslabel14.Name = "tslabel14"
  12484. tslabel15.Height = 22
  12485. tslabel15.Left = 414
  12486. tslabel15.Top = 302
  12487. tslabel15.Width = 77
  12488. tslabel15.TabIndex = 31
  12489. tslabel15.Name = "tslabel15"
  12490. tslabel16.Height = 22
  12491. tslabel16.Left = 414
  12492. tslabel16.Top = 329
  12493. tslabel16.Width = 77
  12494. tslabel16.TabIndex = 32
  12495. tslabel16.Name = "tslabel16"
  12496. txtdiscountperc.ControlSource = "orders.discount"
  12497. txtdiscountperc.Left = 399
  12498. txtdiscountperc.TabIndex = 21
  12499. txtdiscountperc.Top = 272
  12500. txtdiscountperc.DisabledBackColor = 255,255,255
  12501. txtdiscountperc.Name = "txtdiscountperc"
  12502. edtNotes.Height = 81
  12503. edtNotes.Left = 5
  12504. edtNotes.TabIndex = 17
  12505. edtNotes.Top = 270
  12506. edtNotes.Width = 244
  12507. edtNotes.ControlSource = "orders.notes"
  12508. edtNotes.Name = "edtNotes"
  12509. tslabel4.Height = 22
  12510. tslabel4.Left = 439
  12511. tslabel4.Width = 77
  12512. tslabel4.TabIndex = 33
  12513. tslabel4.Name = "tslabel4"
  12514. Tslabel12.Height = 14
  12515. Tslabel12.Left = 5
  12516. Tslabel12.Top = 255
  12517. Tslabel12.Width = 81
  12518. Tslabel12.TabIndex = 22
  12519. Tslabel12.Name = "Tslabel12"
  12520. PROCEDURE gridpop
  12521. LPARAMETERS tnBar
  12522. DO CASE
  12523.   CASE tnBar = 1
  12524.     thisform.GridAddItem()
  12525.   CASE tnBar = 2
  12526.     thisform.GridRemoveItem()
  12527. ENDCASE
  12528. DEACTIVATE POPUP GridPopup
  12529. ENDPROC
  12530. PROCEDURE gridadditem
  12531. SELECT Order_Line_Items
  12532. *-- Delete any empty line items
  12533. DELETE FOR EMPTY(product_id)
  12534. APPEND BLANK
  12535. REPLACE order_id WITH orders.order_id
  12536. thisform.grdLineItems.Refresh()
  12537. thisform.grdLineItems.SetFocus()
  12538. *-- Activate the product column
  12539. thisform.grdLineItems.ActivateCell(thisform.grdLineItems.ActiveRow, 1)
  12540. ENDPROC
  12541. PROCEDURE gridremoveitem
  12542. IF MessageBox(DELETEREC_LOC, ;
  12543.               MB_ICONQUESTION + MB_YESNO, ;
  12544.               DELETEWARN_LOC) = IDNO
  12545.   RETURN
  12546. ENDIF
  12547. DELETE IN Order_Line_Items
  12548. thisform.grdLineItems.Refresh()
  12549. ENDPROC
  12550. PROCEDURE getcustomerid
  12551. *-- Returns the cusomter ID for the current order
  12552. RETURN thisform.cboCustomer_ID.Value
  12553. ENDPROC
  12554. PROCEDURE getordernumber
  12555. *-- Returns the current order number
  12556. RETURN RIGHT(thisform.txtOrder_Number.Value,6)
  12557. ENDPROC
  12558. PROCEDURE clearlink
  12559. *-- Called when the link between a customer in Order Entry
  12560. *-- and all past orders is being cleared
  12561. thisform.cboCustomer_ID.Enabled = .T.
  12562. thisform.cmdLastOrder.Enabled = .T.
  12563. thisform.Closable = .T.
  12564. thisform.lAllowEdits = .T.
  12565. thisform.lAllowNew = .T.
  12566. ENDPROC
  12567. PROCEDURE getcustomername
  12568. *-- Returns the customer name for the current order
  12569. RETURN thisform.cboCustomer_id.DisplayValue
  12570. ENDPROC
  12571. PROCEDURE Init
  12572. OrderEntry::Init()
  12573. *-- Load the error message array with the appropriate error message if a
  12574. *-- trigger fails
  12575. this.aErrorMsg[INSERTTRIG] = INSORDER_LOC
  12576. thisform.RefreshForm()
  12577. ENDPROC
  12578. PROCEDURE Load
  12579. *-- (c) Microsoft Corporation 1995
  12580. OrderEntry::Load()
  12581. *-DO menus\ordentry.mpr
  12582. ENDPROC
  12583. PROCEDURE Destroy
  12584. Orderentry::Destroy()
  12585. IF USED("cProducts")
  12586.   USE IN cProducts
  12587. ENDIF
  12588. IF USED("orders")
  12589.   SELECT orders
  12590.   SET RELATION TO
  12591. ENDIF
  12592. IF USED("order_line_items")
  12593.   SELECT order_line_items
  12594.   =TABLEREVERT(.T.)
  12595.   SET RELATION TO
  12596. ENDIF
  12597. RELEASE PAD orderentry OF _msysmenu
  12598. ENDPROC
  12599. PROCEDURE Activate
  12600. *-- (c) Microsoft Corporation 1995
  12601. OrderEntry::Activate()
  12602. DO menus\ordentry.mpr
  12603. ENDPROC
  12604. PROCEDURE Deactivate
  12605. OrderEntry::Deactivate()
  12606. RELEASE PAD orderentry OF _msysmenu
  12607. ENDPROC
  12608. ..\include\tastrade.h"
  12609. ..\..\..\dev\foxpro.h*
  12610. ..\include\strings.h2
  12611. THISFORM
  12612. TXTAVAILCREDIT
  12613. VALUE
  12614. REMAININGCREDIT
  12615. CBOCUSTOMER_ID
  12616. REFRESHFORM
  12617. THISFORM
  12618. LALLOWEDITS
  12619. InteractiveChange,
  12620. Refresh
  12621. orders
  12622. orders
  12623. ENABLED
  12624. findOrder
  12625. ordersO
  12626. orders
  12627. order_id
  12628. LCCUSTOMER_ID
  12629. LCORDER_ID
  12630. LIRECNO
  12631. DOFORMRETVAL
  12632. THISFORM
  12633. LOCKSCREEN
  12634. FIRST
  12635. REFRESHFORM
  12636. ORDERS
  12637. Refresh,
  12638. Click
  12639. orders
  12640. orders
  12641. ENABLED
  12642. Must select a customer first.
  12643. Tasmanian Traders
  12644. ORDERS
  12645. Customer has no prior order.
  12646. Tasmanian Traders
  12647. ordhist
  12648. LCCUSTOMERID    
  12649. LNOLDAREA
  12650. THISFORM
  12651. CBOCUSTOMER_ID
  12652. VALUE
  12653. DISPLAYVALUE
  12654. SETFOCUS
  12655. ORDERS
  12656. CUSTOMER_ID
  12657. ORDERS_TEMP
  12658. CLOSABLE
  12659. ENABLED
  12660. LALLOWEDITS    
  12661. LALLOWNEW
  12662. REFRESHFORM
  12663. DOFORM
  12664. Refresh,
  12665. Click~
  12666. frmorderentry
  12667. chkPaid
  12668. checkbox
  12669. tscheckbox
  12670. *gridpop Handles the popup selection made when right clicking in the grid. 
  12671. *gridadditem Adds items to the grid.
  12672. *gridremoveitem Removes items from the grid.
  12673. *getcustomerid Returns the customer id for the current order.
  12674. *getordernumber Returns the order number for the current order.
  12675. *clearlink Resets the environment when the Order History form to which this form is "linked" is being destroyed. 
  12676. *getcustomername Returns the customer name for the current order.
  12677. ordtextbox
  12678. ..\libs\orders.vcx
  12679. textbox
  12680. txtAvailCredit
  12681. frmorderentry
  12682. Alignment = 1
  12683. Value = 0.00
  12684. Enabled = .F.
  12685. Format = "K$"
  12686. InputMask = "999,999,999.99"
  12687. Left = 268
  12688. TabIndex = 34
  12689. Top = 296
  12690. ZOrderSet = 26
  12691. ldynamicenable = .F.
  12692. Name = "txtAvailCredit"
  12693. tsgrid
  12694. ..\libs\tsbase.vcx
  12695. grdLineItems
  12696. frmorderentry
  12697. ColumnCount = 4
  12698. ChildOrder = "order_id"
  12699. Height = 103
  12700. Left = 5
  12701. LinkMaster = "Orders"
  12702. Panel = 1
  12703. RecordSource = "Order_Line_Items"
  12704. RowHeight = 21
  12705. ScrollBars = 2
  12706. TabIndex = 16
  12707. Top = 145
  12708. Width = 595
  12709. cfieldtosum = quantity * unit_price
  12710. Name = "grdLineItems"
  12711. Column1.FontBold = .F.
  12712. Column1.FontSize = 8
  12713. Column1.Alignment = 0
  12714. Column1.Bound = .F.
  12715. Column1.ControlSource = "products.product_name"
  12716. Column1.CurrentControl = "cboProduct"
  12717. Column1.Width = 243
  12718. Column1.Name = "grcProduct"
  12719. Column2.FontBold = .F.
  12720. Column2.FontSize = 8
  12721. Column2.Alignment = 1
  12722. Column2.ControlSource = "Order_Line_Items.quantity"
  12723. Column2.Width = 110
  12724. Column2.DynamicBackColor = '"iif(this.Enabled, COLOR_WHITE, COLOR_GRAY)"'
  12725. Column2.Name = "grcQuantity"
  12726. Column3.FontBold = .F.
  12727. Column3.FontSize = 8
  12728. Column3.Alignment = 1
  12729. Column3.ControlSource = "Order_Line_Items.unit_price"
  12730. Column3.Enabled = .F.
  12731. Column3.Width = 113
  12732. Column3.ReadOnly = .T.
  12733. Column3.BackColor = 192,192,192
  12734. Column3.Name = "grcUnitPrice"
  12735. Column4.FontBold = .F.
  12736. Column4.FontSize = 8
  12737. Column4.Alignment = 1
  12738. Column4.Bound = .F.
  12739. Column4.ControlSource = "order_line_items.quantity * order_line_items.unit_price"
  12740. Column4.Enabled = .F.
  12741. Column4.Width = 110
  12742. Column4.ReadOnly = .T.
  12743. Column4.BackColor = 192,192,192
  12744. Column4.Name = "grcExtension"
  12745. PROCEDURE RightClick
  12746. SET SHADOW ON
  12747. DEFINE POPUP GridPopup ;
  12748.   FROM MROW(), MCOL() ;
  12749.   MARGIN ;
  12750.   SHORTCUT        && add shadow (jd 06/20/96)
  12751. DEFINE BAR 1 OF GridPopup PROMPT ADDITEM_LOC
  12752. DEFINE BAR 2 OF GridPopup PROMPT REMOVEITEM_LOC
  12753. ON SELECTION POPUP GridPopup _screen.activeform.GridPop(BAR())
  12754. ACTIVATE POPUP GridPopup
  12755. RELEASE POPUP GridPopup
  12756. ENDPROC
  12757. PROCEDURE Refresh
  12758. tsGrid::Refresh()
  12759. thisform.txtSubTotal.Value = this.nColumnSum
  12760. thisform.txtAvailCredit.Value = RemainingCredit(orders.customer_id)
  12761. this.Enabled = thisform.lAllowEdits
  12762. THISFORM.tsLabelRightClick.Visible = this.Enabled    && only show "Right click" message if the user can use it
  12763. ENDPROC
  12764. THISFORM
  12765. HELPCONTEXTID
  12766. Click,
  12767. PARENT
  12768. RIGHTCLICK
  12769. RightClick,
  12770. PARENT
  12771. RIGHTCLICK
  12772. RightClick,
  12773. header
  12774. header
  12775. grhProduct
  12776. %frmorderentry.grdLineItems.grcProduct
  12777. WFontBold = .F.
  12778. FontSize = 8
  12779. Alignment = 2
  12780. Caption = "Product"
  12781. Name = "grhProduct"
  12782. textbox
  12783. textbox
  12784. Text1
  12785. %frmorderentry.grdLineItems.grcProduct
  12786. =FontSize = 8
  12787. BorderStyle = 0
  12788. TabIndex = 1
  12789. Name = "Text1"
  12790. tscombobox
  12791. ..\libs\tsbase.vcx
  12792. combobox
  12793. cboProduct
  12794. %frmorderentry.grdLineItems.grcProduct
  12795. Alignment = 0
  12796. BoundColumn = 2
  12797. RowSourceType = 3
  12798. RowSource = "select product_name, product_id from products order by product_name into cursor cProducts"
  12799. ControlSource = "Order_line_items.product_id"
  12800. Style = 2
  12801. TabIndex = 2
  12802. Name = "cboProduct"
  12803. SPROCEDURE InteractiveChange
  12804. *-- Force relation to product table to be updated  
  12805. REPLACE order_line_items.product_id WITH this.Value
  12806. GO recno() IN order_line_items
  12807. REPLACE order_line_items.unit_price WITH products.unit_price
  12808. thisform.grdLineItems.Refresh()
  12809. ENDPROC
  12810. PROCEDURE RightClick
  12811. this.Parent.Parent.RightClick()
  12812. ENDPROC
  12813. PARENT
  12814. RIGHTCLICKD
  12815. oAppb
  12816. OAPP    
  12817. LQUITTING
  12818. THISFORM
  12819. GRDLINEITEMS
  12820. REFRESH
  12821. RightClick,
  12822. LostFocus`
  12823. ..\libs\tsbase.vcx
  12824. frmorderentry
  12825. cmdFind
  12826. header
  12827. header
  12828. grhQuantity
  12829. &frmorderentry.grdLineItems.grcQuantity
  12830. YFontBold = .F.
  12831. FontSize = 8
  12832. Alignment = 2
  12833. Caption = "Quantity"
  12834. Name = "grhQuantity"
  12835. textbox
  12836. textbox
  12837. Text1
  12838. &frmorderentry.grdLineItems.grcQuantity
  12839. \FontBold = .F.
  12840. FontSize = 8
  12841. Alignment = 1
  12842. BorderStyle = 0
  12843. TabIndex = 1
  12844. Name = "Text1"
  12845. PROCEDURE RightClick
  12846. this.Parent.Parent.RightClick()
  12847. ENDPROC
  12848. PROCEDURE LostFocus
  12849. IF TYPE("oApp") == 'O' AND !ISNULL(oApp) AND !oApp.lQuitting
  12850.     thisform.grdLineItems.Refresh()
  12851. ENDIF
  12852. ENDPROC
  12853. cArial, 0, 8, 5, 14, 11, 20, 3, 0
  12854. Arial, 0, 9, 5, 15, 12, 21, 3, 0
  12855. Arial, 1, 8, 5, 14, 11, 14, 3, 0
  12856. PROCEDURE InteractiveChange
  12857. THISFORM.txtAvailCredit.Value = RemainingCredit(THISFORM.cboCustomer_ID.Value)
  12858. THISFORM.RefreshForm
  12859. ENDPROC
  12860. PROCEDURE Refresh
  12861. thisform.lAllowEdits = .T.    && make sure Save is active
  12862. ENDPROC
  12863. commandbutton
  12864. ..\libs\tsbase.vcx
  12865. header
  12866. header
  12867. grhUnitPrice
  12868. 'frmorderentry.grdLineItems.grcUnitPrice
  12869. \FontBold = .F.
  12870. FontSize = 8
  12871. Alignment = 2
  12872. Caption = "Unit Price"
  12873. Name = "grhUnitPrice"
  12874. textbox
  12875. textbox
  12876. Text1
  12877. 'frmorderentry.grdLineItems.grcUnitPrice
  12878. FontBold = .F.
  12879. FontSize = 8
  12880. Alignment = 1
  12881. BorderStyle = 0
  12882. Enabled = .F.
  12883. ReadOnly = .T.
  12884. TabIndex = 1
  12885. BackColor = 192,192,192
  12886. Name = "Text1"
  12887. BPROCEDURE RightClick
  12888. this.Parent.Parent.RightClick()
  12889. ENDPROC
  12890. Top = 301
  12891. Left = 379
  12892. Height = 15
  12893. Width = 49
  12894. FontBold = .T.
  12895. Alignment = 1
  12896. Caption = "Paid"
  12897. Value = .F.
  12898. ControlSource = "Orders.paid"
  12899. Name = "chkPaid"
  12900. tscommandbutton
  12901. frmorderentry
  12902. Tslabel1
  12903. header
  12904. header
  12905. grhExtension
  12906. 'frmorderentry.grdLineItems.grcExtension
  12907. [FontBold = .F.
  12908. FontSize = 8
  12909. Alignment = 2
  12910. Caption = "Extension"
  12911. Name = "grhExtension"
  12912. textbox
  12913. textbox
  12914. Text1
  12915. 'frmorderentry.grdLineItems.grcExtension
  12916. FontBold = .F.
  12917. FontSize = 8
  12918. Alignment = 1
  12919. BorderStyle = 0
  12920. Enabled = .F.
  12921. ReadOnly = .T.
  12922. TabIndex = 1
  12923. BackColor = 192,192,192
  12924. DisabledForeColor = 0,0,0
  12925. Name = "Text1"
  12926. BPROCEDURE RightClick
  12927. this.Parent.Parent.RightClick()
  12928. ENDPROC
  12929. oTop = 3
  12930. Left = 445
  12931. Height = 24
  12932. Width = 24
  12933. Picture = ..\bitmaps\locate.bmp
  12934. Caption = ""
  12935. Name = "cmdFind"
  12936. bCaption = "Available Credit:"
  12937. Height = 22
  12938. Left = 271
  12939. Top = 281
  12940. Width = 96
  12941. Name = "Tslabel1"
  12942. label
  12943. tslabel
  12944. ..\libs\tsbase.vcx
  12945. label
  12946. tsLabelRightClick
  12947. frmorderentry
  12948. AutoSize = .T.
  12949. Caption = "Right click on grid for menu "
  12950. Height = 16
  12951. Left = 93
  12952. Top = 255
  12953. Width = 157
  12954. TabIndex = 24
  12955. Name = "tsLabelRightClick"
  12956. tscommandbutton
  12957. ..\libs\tsbase.vcx
  12958. commandbutton
  12959. cmdHelp
  12960. frmorderentry
  12961. fTop = 325
  12962. Left = 269
  12963. Height = 26
  12964. Width = 101
  12965. Caption = "Hel\<p"
  12966. TabIndex = 20
  12967. Name = "cmdHelp"
  12968. :PROCEDURE Click
  12969. HELP ID thisform.HelpContextID
  12970. ENDPROC
  12971. ..\libs\tsbase.vcx
  12972. tslabel
  12973. qTop = 252
  12974. Left = 269
  12975. Height = 26
  12976. Width = 101
  12977. Caption = "\<Last Order"
  12978. TabIndex = 18
  12979. Name = "cmdLastOrder"
  12980. frmorderentry
  12981. cmdLastOrder
  12982. combobox
  12983.     tsifcombo
  12984. ..\libs\tsbase.vcx
  12985. cboCustomer_ID
  12986. frmorderentry
  12987. >BoundColumn = 2
  12988. RowSource = "select company_name, customer_id from customer order by company_name into cursor cCustomerList"
  12989. ControlSource = "Orders.customer_id"
  12990. Enabled = .F.
  12991. Height = 21
  12992. Left = 94
  12993. TabIndex = 2
  12994. Top = 4
  12995. Width = 306
  12996. DisabledBackColor = 255,255,255
  12997. llimittolist = .F.
  12998. Name = "cboCustomer_ID"
  12999. PROCEDURE Destroy
  13000. IF USED("cCustomerList")
  13001.   USE IN cCustomerList
  13002. ENDIF
  13003. ENDPROC
  13004. PROCEDURE ProgrammaticChange
  13005. tsifCombo::ProgrammaticChange()
  13006. THISFORM.txtAvailCredit.Value = RemainingCredit(THIS.Value)
  13007. thisform.RefreshCustomerInfo()
  13008. ENDPROC
  13009. PROCEDURE InteractiveChange
  13010. tsifCombo::InteractiveChange()
  13011. THISFORM.txtAvailCredit.Value = RemainingCredit(THIS.Value)
  13012. thisform.RefreshCustomerInfo()
  13013. ENDPROC
  13014. PROCEDURE Refresh
  13015. *-- Only allow change of customer if we're adding a new record.
  13016. this.Enabled = ("3" $ GETFLDSTATE(-1, "orders") OR "4" $ GETFLDSTATE(-1, "orders"))
  13017. tsifCombo::Refresh()
  13018. ENDPROC
  13019. PROCEDURE Valid
  13020. LOCAL llAdded, ;
  13021.       lcDisplayValue
  13022. IF tsifCombo::Valid() AND this.Enabled
  13023.   this.Refresh()
  13024.   IF EMPTY(this.Value) AND !EMPTY(this.DisplayValue) AND THIS.DisplayValue # CHR(12) AND THIS.DisplayValue # '
  13025.     *-- Prompt user to add the new customer
  13026.     IF MESSAGEBOX(ADDCUSTOMER_LOC, ;
  13027.                   MB_ICONQUESTION + MB_YESNO, ;
  13028.                   TASTRADE_LOC) = IDNO
  13029.       RETURN .F.
  13030.     ENDIF
  13031.     *-- Add the new customer
  13032.     lcDisplayValue = this.DisplayValue
  13033.     DO FORM custadd WITH this.DisplayValue TO llAdded
  13034.     *-- llAdded will be .T. if user pressed OK
  13035.     IF llAdded
  13036.       *-- Add the customer to the combobox
  13037.       this.Requery()
  13038.       this.DisplayValue = lcDisplayValue
  13039.       *-- Position the record pointer in the customer table
  13040.       =SEEK(this.Value, "customer", "customer_i")
  13041.       THISFORM.txtAvailCredit.Value = RemainingCredit(THIS.Value)
  13042.       thisform.RefreshCustomerInfo()
  13043.     ELSE
  13044.       this.DisplayValue = ""
  13045.       RETURN .F.
  13046.     ENDIF      
  13047.   ENDIF
  13048. ENDIF
  13049. ENDPROC
  13050. PROCEDURE Init
  13051. tsifCombo::Init
  13052. THIS.DisplayValue = ""
  13053. =TABLEREVERT(.T.)        && prevent from thinking data has changed
  13054. ENDPROC
  13055. cCustomerList
  13056. CCUSTOMERLIST8
  13057. TSIFCOMBO
  13058. PROGRAMMATICCHANGE
  13059. THISFORM
  13060. TXTAVAILCREDIT
  13061. VALUE
  13062. REMAININGCREDIT
  13063. REFRESHCUSTOMERINFO8
  13064. TSIFCOMBO
  13065. INTERACTIVECHANGE
  13066. THISFORM
  13067. TXTAVAILCREDIT
  13068. VALUE
  13069. REMAININGCREDIT
  13070. REFRESHCUSTOMERINFOM
  13071. orders
  13072. orders
  13073. ENABLED    
  13074. TSIFCOMBO
  13075. REFRESH
  13076. Do you want to add this customer to the Customer master file?
  13077. Tasmanian Traders
  13078. custadd(
  13079. customer
  13080. customer_i
  13081. LLADDED
  13082. LCDISPLAYVALUE    
  13083. TSIFCOMBO
  13084. VALID
  13085. ENABLED
  13086. REFRESH
  13087. VALUE
  13088. DISPLAYVALUE
  13089. CUSTADD
  13090. REQUERY
  13091. THISFORM
  13092. TXTAVAILCREDIT
  13093. REMAININGCREDIT
  13094. REFRESHCUSTOMERINFO+
  13095. TSIFCOMBO
  13096. DISPLAYVALUE
  13097. Destroy,
  13098. ProgrammaticChangej
  13099. InteractiveChange
  13100. Refresh
  13101. Valid-
  13102. tscommandbutton
  13103. ..\libs\tsbase.vcx
  13104. commandbutton
  13105. ;PROCEDURE Refresh
  13106. *-- Only allow access to last order if we're adding a new record.
  13107. this.Enabled = ("3" $ GETFLDSTATE(-1, "orders") OR ;
  13108.       "4" $ GETFLDSTATE(-1, "orders"))
  13109. ENDPROC
  13110. PROCEDURE Click
  13111. LOCAL lcCustomerID, ;
  13112.       lnOldArea
  13113.       
  13114. IF EMPTY(thisform.cboCustomer_ID.Value) OR ;
  13115.     EMPTY(thisform.cboCustomer_ID.DisplayValue)
  13116.   =MESSAGEBOX(SELCUSTFIRST_LOC, ;
  13117.               MB_ICONEXCLAMATION, ;
  13118.               TASTRADE_LOC)
  13119.   thisform.cboCustomer_ID.SetFocus()
  13120.   RETURN
  13121. ENDIF
  13122. *-- Make sure customer has a prior order
  13123. lnOldArea = SELECT()
  13124. lcCustomerID = orders.customer_id
  13125. USE ORDERS IN 0 AGAIN ALIAS orders_temp
  13126. SELECT orders_temp
  13127. COUNT FOR customer_id = lcCustomerID
  13128. SELECT (lnOldArea)
  13129. IF _tally = 0
  13130.   =MESSAGEBOX(NOLASTORDER_LOC, ;
  13131.               MB_ICONEXCLAMATION, ;
  13132.               TASTRADE_LOC)
  13133.   thisform.Closable = .F.
  13134.   this.Enabled = .F.
  13135.   thisform.lAllowEdits = .F.
  13136.   thisform.lAllowNew = .F.
  13137.   thisform.cboCustomer_ID.Enabled = .F.
  13138.   thisform.RefreshForm()
  13139.   oApp.DoForm("ordhist", thisform)
  13140. ENDIF
  13141. ENDPROC
  13142. ORDER_LINE_ITEMS
  13143. PRODUCT_ID
  13144. VALUE
  13145. UNIT_PRICE
  13146. PRODUCTS
  13147. THISFORM
  13148. GRDLINEITEMS
  13149. REFRESH
  13150. PARENT
  13151. RIGHTCLICK
  13152. InteractiveChange,
  13153. RightClick
  13154. Add Item
  13155. Remove Item
  13156. _screen.activeform.GridPop(BAR())
  13157. GRIDPOPUPj
  13158. TSGRID
  13159. REFRESH
  13160. THISFORM
  13161. TXTSUBTOTAL
  13162. VALUE
  13163. NCOLUMNSUM
  13164. TXTAVAILCREDIT
  13165. REMAININGCREDIT
  13166. ORDERS
  13167. CUSTOMER_ID
  13168. ENABLED
  13169. LALLOWEDITS
  13170. TSLABELRIGHTCLICK
  13171. VISIBLE
  13172. RightClick,
  13173. Refresh
  13174. PROCEDURE Refresh
  13175. this.Enabled = !("3" $ GETFLDSTATE(-1, "orders") OR "4" $ GETFLDSTATE(-1, "orders"))
  13176. ENDPROC
  13177. PROCEDURE Click
  13178. LOCAL lcCustomer_id, lcOrder_ID, liRecno
  13179. lcOrder_ID = oApp.DoFormRetVal("findOrder")
  13180. IF !EMPTY(lcOrder_id) AND !ISNULL(lcOrder_id)
  13181.     liRecno = RECNO("orders")
  13182.     THISFORM.lockscreen = .T.
  13183.     THISFORM.first    && force any save actions
  13184.     IF SEEK(lcOrder_id, "orders", "order_id")
  13185.         THISFORM.RefreshForm
  13186.     ELSE
  13187.         GO liRecno IN Orders
  13188.     ENDIF
  13189. ENDIF
  13190. #IF 0
  13191.     lcCustomer_id = oApp.DoFormRetVal("findCustomer")
  13192.     IF !EMPTY(lcCustomer_id)
  13193.         REPLACE orders.customer_id WITH lcCustomer_id
  13194.         THISFORM.cboCustomer_ID.Refresh
  13195.         THISFORM.cboCustomer_ID.InteractiveChange
  13196.     ENDIF
  13197. #ENDIF
  13198. ENDPROC
  13199. TNBAR
  13200. THISFORM
  13201. GRIDADDITEM
  13202. GRIDREMOVEITEM    
  13203. GRIDPOPUPg
  13204. ORDER_LINE_ITEMS
  13205. PRODUCT_ID
  13206. ORDER_ID
  13207. ORDERS
  13208. THISFORM
  13209. GRDLINEITEMS
  13210. REFRESH
  13211. SETFOCUS
  13212. ACTIVATECELL    
  13213. ACTIVEROWw
  13214. Are you sure you want to delete this record?
  13215. Delete Warning
  13216. ORDER_LINE_ITEMS
  13217. THISFORM
  13218. GRDLINEITEMS
  13219. REFRESH
  13220. THISFORM
  13221. CBOCUSTOMER_ID
  13222. VALUE
  13223. THISFORM
  13224. TXTORDER_NUMBER
  13225. VALUEO
  13226. THISFORM
  13227. CBOCUSTOMER_ID
  13228. ENABLED
  13229. CMDLASTORDER
  13230. CLOSABLE
  13231. LALLOWEDITS    
  13232. LALLOWNEW
  13233. THISFORM
  13234. CBOCUSTOMER_ID
  13235. DISPLAYVALUEc
  13236. All orders must have a customer and a shipper. 
  13237. ORDERENTRY
  13238. THIS    
  13239. AERRORMSG
  13240. THISFORM
  13241. REFRESHFORM
  13242. ORDERENTRY
  13243. cProducts
  13244. orders
  13245. order_line_items
  13246. ORDERENTRY
  13247. DESTROY    
  13248. CPRODUCTS
  13249. ORDERS
  13250. ORDER_LINE_ITEMS*
  13251. menus\ordentry.mpr
  13252. ORDERENTRY
  13253. ACTIVATE
  13254. MENUS
  13255. ORDERENTRY
  13256. DEACTIVATE
  13257. gridpop,
  13258. gridadditem
  13259. gridremoveitem
  13260. getcustomeridU
  13261. getordernumber
  13262. clearlink
  13263. getcustomernameo
  13264. LoadN
  13265. Destroyu
  13266. ActivateS
  13267. Deactivate
  13268. PLATFORM
  13269. UNIQUEID
  13270. TIMESTAMP
  13271. CLASS
  13272. CLASSLOC
  13273. BASECLASS
  13274. OBJNAME
  13275. PARENT
  13276. PROPERTIES
  13277. PROTECTED
  13278. METHODS
  13279. OBJCODE
  13280. RESERVED1
  13281. RESERVED2
  13282. RESERVED3
  13283. RESERVED4
  13284. RESERVED5
  13285. RESERVED6
  13286. RESERVED7
  13287. RESERVED8
  13288.  COMMENT Class              0
  13289.  WINDOWS _R020GARDA 552372016
  13290.  WINDOWS _R020GAPPH 552372016}
  13291.  WINDOWS _R020GAPQL 552372016w
  13292.  WINDOWS _R020GAPRF 552372016p
  13293.  WINDOWS _R020GAPSJ 552372016i
  13294.  WINDOWS _R020GAPTN 552372016b
  13295.  WINDOWS _R020GAPUR 552372016[
  13296.  WINDOWS _R020GAPVL 552372016U
  13297.  WINDOWS _R020GAPWZ 552372016N
  13298.  WINDOWS _R020GAPY3 514407560G
  13299.  WINDOWS _R020GAQM0 514407560;
  13300.  WINDOWS _R020GARA7 552372016-
  13301.  WINDOWS _R020GARBC 552372016&
  13302.  WINDOWS _R020GARC6 552372016
  13303.  COMMENT RESERVED            
  13304. VERSION =  0.029
  13305. ..\include\tastrade.h
  13306. ..\..\..\dev\foxpro.h
  13307. ..\include\strings.h
  13308. BArial, 0, 8, 5, 14, 11, 20, 3, 0
  13309. Arial, 1, 8, 5, 14, 11, 14, 3, 0
  13310. aboutbox
  13311. ..\include\tastrade.h
  13312. <restorewindowpos
  13313. savewindowpos
  13314. addtomenu
  13315. removefrommenu
  13316. Pixels
  13317. EThis class displays an About Application that the user can customize.
  13318. Class
  13319. tsbaseform
  13320. aboutbox
  13321. ^Height = 0
  13322. Left = 0
  13323. Top = 240
  13324. Width = 376
  13325. BorderColor = 0,0,0
  13326. Name = "linBlackVertical"
  13327. aboutbox.
  13328. linBlackVertical
  13329. BorderStyle = 1
  13330. BorderWidth = 2
  13331. Height = 1
  13332. Left = 1
  13333. Top = 241
  13334. Width = 375
  13335. BorderColor = 255,255,255
  13336. Name = "linWhiteShadow"
  13337. aboutbox.
  13338. linWhiteShadow
  13339. FontSize = 8
  13340. BackStyle = 0
  13341. Caption = "Copyright Information"
  13342. Height = 16
  13343. Left = 120
  13344. Top = 55
  13345. Width = 233
  13346. TabIndex = 3
  13347. Name = "lblCopyright"
  13348. aboutbox.
  13349. lblCopyright
  13350. label
  13351. label
  13352. RUN/N1 &lcMSInfoWinDir
  13353. LCMSINFOWINDIR
  13354. THISFORM
  13355. CMSINFODIR
  13356. Click,
  13357. qPROCEDURE Click
  13358. LOCAL lcMSInfoWinDir
  13359. lcMSInfoWinDir= thisform.cMSInfoDir
  13360. RUN/N1 &lcMSInfoWinDir
  13361. ENDPROC
  13362. Top = 283
  13363. Left = 269
  13364. Height = 25
  13365. Width = 100
  13366. FontSize = 8
  13367. Caption = "\<System Info..."
  13368. TabIndex = 2
  13369. Name = "cmdSysInfo"
  13370. aboutbox.
  13371. cmdSysInfo
  13372. commandbutton
  13373. commandbutton
  13374. THISFORM
  13375. Click,
  13376. 0PROCEDURE Click
  13377. RELEASE thisform
  13378. ENDPROC
  13379. Top = 252
  13380. Left = 269
  13381. Height = 25
  13382. Width = 100
  13383. FontBold = .T.
  13384. FontSize = 8
  13385. Caption = "OK"
  13386. Default = .T.
  13387. TabIndex = 1
  13388. Name = "cmdOK"
  13389. aboutbox.
  13390. cmdOK
  13391. commandbutton
  13392. commandbutton
  13393. FontBold = .F.
  13394. FontSize = 8
  13395. BackStyle = 0
  13396. Caption = "UserCorp"
  13397. Height = 25
  13398. Left = 130
  13399. Top = 202
  13400. Width = 205
  13401. TabIndex = 6
  13402. Name = "lblUserCorp"
  13403. aboutbox.
  13404. lblUserCorp
  13405. label
  13406. label
  13407. FontBold = .F.
  13408. FontSize = 8
  13409. BackStyle = 0
  13410. Caption = "UserName"
  13411. Height = 25
  13412. Left = 130
  13413. Top = 181
  13414. Width = 205
  13415. TabIndex = 5
  13416. Name = "lblUserName"
  13417. aboutbox.
  13418. lblUserName
  13419. label
  13420. label
  13421. tTop = 169
  13422. Left = 119
  13423. Height = 60
  13424. Width = 252
  13425. SpecialEffect = 0
  13426. BackColor = 192,192,192
  13427. Name = "shpRectangle"
  13428. aboutbox.
  13429. shpRectangle
  13430. shape
  13431. shape
  13432. FontSize = 8
  13433. BackStyle = 0
  13434. Caption = "This product is licensed to:"
  13435. Height = 16
  13436. Left = 120
  13437. Top = 152
  13438. Width = 234
  13439. TabIndex = 4
  13440. Name = "lblLicense"
  13441. aboutbox.
  13442. lblLicense
  13443. label
  13444. label
  13445. FontBold = .F.
  13446. FontSize = 8
  13447. BackStyle = 0
  13448. Caption = "Trademark Information"
  13449. Height = 19
  13450. Left = 120
  13451. Top = 75
  13452. Width = 233
  13453. TabIndex = 3
  13454. Name = "lblTrademark"
  13455. aboutbox.
  13456. lblTrademark
  13457. label
  13458. label
  13459. FontSize = 8
  13460. BackStyle = 0
  13461. Caption = "Version #"
  13462. Height = 16
  13463. Left = 120
  13464. Top = 35
  13465. Width = 233
  13466. TabIndex = 2
  13467. Name = "lblVersion"
  13468. aboutbox.
  13469. lblVersion
  13470. label
  13471. label
  13472. FontSize = 8
  13473. BackStyle = 0
  13474. Caption = "Your application name"
  13475. Height = 14
  13476. Left = 120
  13477. Top = 17
  13478. Width = 233
  13479. TabIndex = 1
  13480. Name = "lblAppName"
  13481. aboutbox.
  13482. lblAppName
  13483. label
  13484. label
  13485. ^Stretch = 1
  13486. BackStyle = 0
  13487. Height = 111
  13488. Left = 10
  13489. Top = 11
  13490. Width = 100
  13491. Name = "imgLogo"
  13492. aboutbox.
  13493. imgLogo
  13494. image
  13495. image
  13496. 6cmsinfodir Holds the path of the MSINFO.EXE program.
  13497. m.gTTradeb
  13498. This class cannot be used outside of the Tastrade application.
  13499. tcAppNameb
  13500. About C
  13501. tcVersionb
  13502. Version C
  13503. tcCopyrightb
  13504. tcTrademarkb
  13505. tcLogoBMPb
  13506. WINDOWS NT
  13507. Software\Microsoft\Shared Tools Location
  13508. MSINFO
  13509. \MSINFO32.EXE
  13510. \MSINFO.EXE
  13511. Software\Microsoft\Windows NT\CurrentVersion
  13512. RegisteredOwner
  13513. RegisteredOrganization
  13514. WINDOWS 4
  13515. Software\Microsoft\Shared Tools\MSInfo
  13516. Software\Microsoft\Windows\CurrentVersion
  13517. RegisteredOwner
  13518. RegisteredOrganization
  13519. MS USER INFO
  13520. DEFNAME
  13521. MS USER INFO
  13522. DEFCOMPANY
  13523. MICROSOFT SYSTEM INFO
  13524. MSINFO
  13525. TCAPPNAME    
  13526. TCVERSION
  13527. TCCOPYRIGHT
  13528. TCTRADEMARK    
  13529. TCLOGOBMP
  13530. LCBUFFER
  13531. LNBUFFERSIZE
  13532. LCRETVAL
  13533. LNRESERVED
  13534. LNRESULT
  13535. LNERROR
  13536. LNTYPE
  13537. LCKEY
  13538. GTTRADE
  13539. THISFORM
  13540. CAPTION
  13541. LBLAPPNAME
  13542. LBLVERSION
  13543. LBLCOPYRIGHT
  13544. LBLTRADEMARK
  13545. WORDWRAP
  13546. IMGLOGO
  13547. PICTURE
  13548. LBLUSERNAME
  13549. LBLUSERCORP
  13550. CMSINFODIR
  13551. REGOPENKEYEX
  13552. REGQUERYVALUEEX
  13553. REGCLOSEKEY    
  13554. GETPROSTR
  13555. CMDSYSINFO
  13556. ENABLED
  13557. HEIGHT
  13558. THISFORM
  13559. CAPTION
  13560. Unload,
  13561. Init9
  13562. ActivateC
  13563. zPROCEDURE Unload
  13564. SET MESSAGE TO
  13565. ENDPROC
  13566. PROCEDURE Init
  13567. *-- (c) Microsoft Corporation 1995
  13568. LPARAMETERS tcAppName, tcVersion, tcCopyright, tcTrademark, tcLogoBMP
  13569. LOCAL lcBuffer, ;
  13570.       lnBufferSize, ;
  13571.       lcRetVal, ;
  13572.       lnReserved, ;
  13573.       lnResult, ;
  13574.       lnError, ;
  13575.       lnType, ;
  13576.       lcKey
  13577. *- this class can't be used independent of the application
  13578. IF TYPE("m.gTTrade") # 'L' OR !m.gTTrade
  13579.     =MESSAGEBOX(CLASSBROWERR_LOC)
  13580.     RETURN .F.
  13581. ENDIF
  13582. *-- Initialize variables for DLL calls
  13583. STORE 0 TO lnReserved, lnResult, lnType
  13584. lcBuffer = SPACE(128)
  13585. lnBufferSize = LEN(lcBuffer)
  13586. *-- Set new property values if parameters do not contain .F.
  13587. IF TYPE("tcAppName") = "C"
  13588.   thisform.Caption = ABOUT_LOC + ALLTRIM(tcAppName)
  13589.   thisform.lblAppName.Caption = ALLTRIM(tcAppName)
  13590. ENDIF    
  13591. IF TYPE("tcVersion") = "C"
  13592.   thisform.lblVersion.Caption = VERSIONLABEL_LOC + ALLTRIM(tcVersion)
  13593. ENDIF  
  13594. IF TYPE("tcCopyright") = "C"    
  13595.   thisform.lblCopyright.Caption = ALLTRIM(tcCopyright)
  13596. ENDIF  
  13597. IF TYPE("tcTrademark") = "C"    
  13598.   thisform.lblTrademark.Caption = tcTrademark
  13599.   thisform.lblTrademark.WordWrap = 1
  13600. ENDIF  
  13601. IF TYPE("tcLogoBMP") = "C"
  13602.   thisform.imgLogo.Picture = tcLogoBMP
  13603. ENDIF
  13604. STORE "" TO ;
  13605.   thisform.lblUserName.Caption, ;
  13606.   thisform.lblUserCorp.Caption, ;
  13607.   thisform.cMSInfoDir
  13608. DO CASE
  13609.   CASE UPPER(OS()) = "WINDOWS NT"
  13610.     *-- Gets default user name, organization, and location of MSINFO.EXE from 
  13611.     *-- system registry
  13612.     *-- First need to open the appropriate key
  13613.     lnError = RegOpenKeyEx(HKEY_LOCAL_MACHINE, KEY_SHARED_TOOLS_LOCATION, ;
  13614.                    lnReserved, KEY_QUERY_VALUE, @lnResult)
  13615.     IF lnError = ERROR_SUCCESS
  13616.       *-- Read the value for the MSINFO entry
  13617.       lnError = RegQueryValueEx(lnResult, "MSINFO", lnReserved, ;
  13618.                                 @lnType, @lcBuffer, @lnBufferSize)
  13619.                               
  13620.       IF lnError = ERROR_SUCCESS
  13621.         *-- Strip off the "junk" at the end, and set the form property
  13622.         thisform.cMSInfoDir = LEFT(lcBuffer, lnBufferSize - 1) + "\MSINFO32.EXE"
  13623.         IF !FILE(thisform.cMSInfoDir)
  13624.           *- try the older version
  13625.           thisform.cMSInfoDir = LEFT(lcBuffer, lnBufferSize - 1) + "\MSINFO.EXE"
  13626.           IF !FILE(thisform.cMSInfoDir)
  13627.             thisform.cMSInfoDir = ""
  13628.           ENDIF
  13629.         ENDIF
  13630.       ENDIF
  13631.       *-- Close the key
  13632.       =RegCloseKey(lnResult)
  13633.       lnResult = 0
  13634.       lcKey = KEY_NTCURRENTVERSION
  13635.       lnError = RegOpenKeyEx(HKEY_LOCAL_MACHINE, lcKey, ;
  13636.                      lnReserved, KEY_QUERY_VALUE, @lnResult)
  13637.       *-- The next 2 calls to RegQueryValueEx() retrieve the registered owner
  13638.       *-- and registered organization of the operating system
  13639.       IF lnError = ERROR_SUCCESS
  13640.         lnType = 0
  13641.         lcBuffer = SPACE(128)
  13642.         lnBufferSize = LEN(lcBuffer)
  13643.         lnError = RegQueryValueEx(lnResult, "RegisteredOwner", lnReserved, ;
  13644.                                   @lnType, @lcBuffer, @lnBufferSize)
  13645.         IF lnError = ERROR_SUCCESS AND lcBuffer <> CHR(0)
  13646.           thisform.lblUserName.Caption = LEFT(lcBuffer, lnBufferSize - 1)
  13647.         ENDIF
  13648.       ENDIF
  13649.       lnType = 0
  13650.       lcBuffer = SPACE(128)
  13651.       lnBufferSize = LEN(lcBuffer)
  13652.       lnError = RegQueryValueEx(lnResult, "RegisteredOrganization", lnReserved, ;
  13653.                                 @lnType, @lcBuffer, @lnBufferSize)
  13654.       IF lnError = ERROR_SUCCESS AND lcBuffer <> CHR(0)
  13655.         thisform.lblUserCorp.Caption = LEFT(lcBuffer, lnBufferSize - 1)
  13656.       ENDIF
  13657.     ENDIF
  13658.     *-- Close the key
  13659.     =RegCloseKey(lnResult)
  13660.   CASE UPPER(OS()) = "WINDOWS 4"
  13661.     *-- Gets default user name, organization, and location of MSINFO32.EXE from 
  13662.     *-- system registry
  13663.     *-- First need to open the appropriate key
  13664.     lnError = RegOpenKeyEx(HKEY_LOCAL_MACHINE, KEY_WIN4_MSINFO, ;
  13665.                    lnReserved, KEY_QUERY_VALUE, @lnResult)
  13666.     IF lnError = ERROR_SUCCESS
  13667.       *-- Read the value for the MSINFO entry
  13668.       lnError = RegQueryValueEx(lnResult, "PATH", lnReserved, ;
  13669.                                 @lnType, @lcBuffer, @lnBufferSize)
  13670.                               
  13671.       IF lnError = ERROR_SUCCESS
  13672.         *-- Strip off the "junk" at the end, and set the form property
  13673.         thisform.cMSInfoDir = LEFT(lcBuffer, lnBufferSize - 1)
  13674.         IF !FILE(thisform.cMSInfoDir)
  13675.           thisform.cMSInfoDir = ""
  13676.         ENDIF
  13677.       ENDIF
  13678.       *-- Close the key
  13679.       =RegCloseKey(lnResult)
  13680.       lnResult = 0
  13681.       lcKey = KEY_WIN4CURRENTVERSION
  13682.       lnError = RegOpenKeyEx(HKEY_LOCAL_MACHINE, lcKey, ;
  13683.                      lnReserved, KEY_QUERY_VALUE, @lnResult)
  13684.       *-- The next 2 calls to RegQueryValueEx() retrieve the registered owner
  13685.       *-- and registered organization of the operating system
  13686.       IF lnError = ERROR_SUCCESS
  13687.         lnType = 0
  13688.         lcBuffer = SPACE(128)
  13689.         lnBufferSize = LEN(lcBuffer)
  13690.         lnError = RegQueryValueEx(lnResult, "RegisteredOwner", lnReserved, ;
  13691.                                   @lnType, @lcBuffer, @lnBufferSize)
  13692.         IF lnError = ERROR_SUCCESS AND lcBuffer <> CHR(0)
  13693.           thisform.lblUserName.Caption = LEFT(lcBuffer, lnBufferSize - 1)
  13694.         ENDIF
  13695.       ENDIF
  13696.       lnType = 0
  13697.       lcBuffer = SPACE(128)
  13698.       lnBufferSize = LEN(lcBuffer)
  13699.       lnError = RegQueryValueEx(lnResult, "RegisteredOrganization", lnReserved, ;
  13700.                                 @lnType, @lcBuffer, @lnBufferSize)
  13701.       IF lnError = ERROR_SUCCESS AND lcBuffer <> CHR(0)
  13702.         thisform.lblUserCorp.Caption = LEFT(lcBuffer, lnBufferSize - 1)
  13703.       ENDIF
  13704.     ENDIF
  13705.     *-- Close the key
  13706.     =RegCloseKey(lnResult)
  13707.   OTHERWISE
  13708.     *-- Gets default user name, organization, and location of MSINFO.EXE from 
  13709.     *-- WIN.INI (for Windows 3.x machines)
  13710.     *-- Gets default user name 
  13711.     lcRetVal = GetProStr("MS USER INFO", "DEFNAME", "", @lcBuffer, lnBufferSize)
  13712.     thisform.lblUserName.Caption = LEFT(lcBuffer, lcRetVal)
  13713.     *-- Get default corporation name 
  13714.     lcRetVal = GetProStr("MS USER INFO", "DEFCOMPANY", "", @lcBuffer, lnBufferSize)
  13715.     thisform.lblUserCorp.Caption = LEFT(lcBuffer, lcRetVal)
  13716.     *-- Get location of MSINFO.EXE name
  13717.     lcRetVal = GetProStr("MICROSOFT SYSTEM INFO", "MSINFO", "", @lcBuffer, lnBufferSize)
  13718.     thisform.cMSInfoDir = LEFT(lcBuffer, lcRetVal)
  13719. ENDCASE
  13720. *-- Check if MSINFO.EXE exists, otherwise remove the System Info command button and
  13721. *-- shorten the form
  13722. IF EMPTY(thisform.cMSInfoDir)
  13723.     thisform.cMSInfoDir = " "
  13724.     thisform.cmdSysInfo.Enabled = .F.
  13725.     thisform.Height = 282
  13726. ENDIF
  13727. ENDPROC
  13728. PROCEDURE Activate
  13729. SET MESSAGE TO thisform.Caption
  13730. ENDPROC
  13731. UHeight = 319
  13732. Width = 374
  13733. DoCreate = .T.
  13734. AutoCenter = .T.
  13735. BorderStyle = 2
  13736. Caption = "About Custom Application"
  13737. FontSize = 8
  13738. MaxButton = .F.
  13739. MinButton = .F.
  13740. MinWidth = 1
  13741. WindowType = 1
  13742. AlwaysOnTop = .T.
  13743. BackColor = 192,192,192
  13744. cmsinfodir = 
  13745. lallowdelete = .F.
  13746. lallownew = .F.
  13747. lallowedits = .F.
  13748. ctoolbar = 
  13749. Name = "aboutbox"
  13750. tsbase.vcx
  13751. PLATFORM
  13752. UNIQUEID
  13753. TIMESTAMP
  13754. OBJTYPE
  13755. OBJCODE
  13756. HEIGHT
  13757. WIDTH
  13758. STYLE
  13759. PICTURE
  13760. ORDER
  13761. UNIQUE
  13762. COMMENT
  13763. ENVIRON
  13764. BOXCHAR
  13765. FILLCHAR
  13766. PENRED
  13767. PENGREEN
  13768. PENBLUE
  13769. FILLRED
  13770. FILLGREEN
  13771. FILLBLUE
  13772. PENSIZE
  13773. PENPAT
  13774. FILLPAT
  13775. FONTFACE
  13776. FONTSTYLE
  13777. FONTSIZE
  13778. RULER
  13779. RULERLINES
  13780. GRIDV
  13781. GRIDH
  13782. FLOAT
  13783. STRETCH
  13784. STRETCHTOP
  13785. BOTTOM
  13786. SUPTYPE
  13787. SUPREST
  13788. NOREPEAT
  13789. RESETRPT
  13790. PAGEBREAK
  13791. COLBREAK
  13792. RESETPAGE
  13793. GENERAL
  13794. SPACING
  13795. DOUBLE
  13796. SWAPHEADER
  13797. SWAPFOOTER
  13798. EJECTBEFOR
  13799. EJECTAFTER
  13800. PLAIN
  13801. SUMMARY
  13802. ADDALIAS
  13803. OFFSET
  13804. TOPMARGIN
  13805. BOTMARGIN
  13806. TOTALTYPE
  13807. RESETTOTAL
  13808. RESOID
  13809. CURPOS
  13810. SUPALWAYS
  13811. SUPOVFLOW
  13812. SUPRPCOL
  13813. SUPGROUP
  13814. SUPVALCHNG
  13815. SUPEXPR
  13816.  WINDOWS _QWK0UD2IE 505639229 1 53
  13817.     1.000    0.000    0.000   -1.000
  13818.                                              
  13819.   0 10   10T 5 5   FF                     T                F      
  13820.  WINDOWS _QWK0UD2IG           9  1
  13821.                   21875.000    0.000
  13822.                                              
  13823.                        F  FFF           F                         
  13824.  WINDOWS _QWK0UD2IH           9  4
  13825.                   19375.000    0.000
  13826.                                              
  13827.                        F  FFF           F                         
  13828.  WINDOWS _QWK0UD2II           9  7
  13829.                    5000.000    0.000
  13830.                                              
  13831.                        F  FFF           F                         
  13832.  WINDOWS _QWK0UPAYJ 505639534 7  4
  13833. 17500.000    0.000 3854.16780312.500
  13834.    -1   -1   -1  192  192  192    1    8    1
  13835.         0          T   F                     0              TF3 0F
  13836.  WINDOWS _QWK0UDY3V 505639345 5  0
  13837. 18437.500  520.833 2083.33312291.667
  13838.     0    0    0   -1   -1   -1               "
  13839.   1 12  1       T      F          0                         TF3 0F
  13840.  WINDOWS _QWK0UDY3W 505639521 5  0
  13841. 18437.50018229.167 2083.333 9166.667
  13842.     0    0    0   -1   -1   -1               $
  13843.   1 12  1       T      F          0                         TF3 0F
  13844.  WINDOWS _QV60X56R9 493911332 5  0
  13845.  7708.33317187.500 3437.50013333.333
  13846.     0    0    0   -1   -1   -1               '
  13847.   1 20  1          T   F          0                         TF3 0F
  13848.  WINDOWS _QV60XLBHG 493911315 5  0
  13849.  7187.50015520.833 3958.333 2083.333
  13850.     0    0  255   -1   -1   -1               *
  13851.   1 24  1          T   F          0                         TF3 0F
  13852.  WINDOWS _QV60X56R9 493911394 5  0
  13853.  7708.33333333.333 3437.500 8750.000
  13854.     0    0    0   -1   -1   -1               -
  13855.   1 20  1          T   F          0                         TF3 0F
  13856.  WINDOWS _QV60XLBHG 493911387 5  0
  13857.  7187.50031666.667 3958.333 2083.333
  13858.     0    0  255   -1   -1   -1               0
  13859.   1 24  1          T   F          0                         TF3 0F
  13860.  WINDOWS _QWK0UDY46 505639252 8  0
  13861.  6041.66772916.667 2083.333 6770.833
  13862.     0    0    0   -1   -1   -1               3
  13863.   0 12  1          T   F          2          0       0 1    TF3 0F
  13864.  WINDOWS _QWK0UDY47 512986613 5  0
  13865.  3125.00067916.667 2083.333 4062.500
  13866.     0    0    0   -1   -1   -1               5
  13867.   1 12  1          T   F          0                         TF3 0F
  13868.  WINDOWS _QWK0UDY48 505639252 8  0
  13869.  3125.00074583.333 2083.333 5104.167
  13870.     0    0    0   -1   -1   -1               8
  13871.   0 12  1          T   F          2          1       0 1    TF3 0F
  13872.  WINDOWS _QWK0UDY4F 512986616 5  0
  13873.  6041.66767916.667 2083.333 3645.833
  13874.     0    0    0   -1   -1   -1               :
  13875.   1 12  1          T   F          0                         TF3 0F
  13876.  WINDOWS _QWK0UDY4G 51147761417  0
  13877.  1250.000 3645.833 9166.667 8645.833
  13878.                                              
  13879.         0          T   F       0   F         0              TF3 0F
  13880.  WINDOWS _QWK0UDY4H 505639296 5  0
  13881. 12187.50016250.000 2083.33313125.000
  13882.     0    0    0   -1   -1   -1               @
  13883.   1 12  1          T   F          0                         TF3 0F
  13884.  WINDOWS _QWK0UDY4I 505639252 6   
  13885. 11250.000    0.000  104.16780312.500
  13886.    -1   -1   -1   -1   -1   -1    1    8     
  13887.         0          T   F                     1              TF3 0F
  13888.  WINDOWS _QWK0UJ73U 505639476 8  0
  13889. 23958.333  520.833 2083.33317395.833
  13890.     0    0    0   -1   -1   -1               D
  13891.   0 12  1       TT     F          2          0       0 1    TF3 0F
  13892.  WINDOWS _QWK0UJOPS 512986500 8  0
  13893. 23958.33318229.16717083.33335520.833
  13894.     0    0    0   -1   -1   -1               G
  13895.   0 12  1       T      F          2          0       0 1    TF3 0F
  13896.  WINDOWS _QWK0UK44R 50564054717  0H
  13897. 23958.33354270.83318854.16726041.667
  13898.                                              
  13899.         0       T      F       1   T         1              TF3 0F
  13900.  WINDOWS _QWK0UDY45 50563925210  0
  13901.     4.000    4.000                  
  13902.                                              
  13903.                                                                   
  13904.  WINDOWS                     23   
  13905.    16.000    8.000   12.000   16.000
  13906.     4    0                                   J
  13907.   0 10                                                            
  13908.  WINDOWS                     23   
  13909.    20.000    8.000   15.000   20.000
  13910.     4    1                                   K
  13911.   1 12                                                            
  13912.  WINDOWS                     23   
  13913.    33.000   13.000   25.000   34.000
  13914.     7    1                                   L
  13915.   1 20                                                            
  13916.  WINDOWS                     23   
  13917.    38.000   15.000   30.000   40.000
  13918.     7    1                                   M
  13919.   1 24                                                            
  13920.  WINDOWS                     23   
  13921.    19.000    7.000   15.000   29.000
  13922.     3    1                                   N
  13923.   0 12                                                            
  13924.  WINDOWS                     25   O
  13925.                                     
  13926.                                              
  13927.                                                                   
  13928.  WINDOWS                     26   S
  13929.                                     
  13930.                                              
  13931.                                                                   
  13932. Courier New
  13933. winspool
  13934. \\MSPRINT32\2/1MC PRIVJ 157.56.32.242
  13935. Ne02:
  13936. \\MSPRINT32\2/1MC PRIVJ 157.56.
  13937. Letter
  13938. DRIVER=winspool
  13939. DEVICE=\\MSPRINT32\2/1MC PRIVJ 157.56.32.242
  13940. OUTPUT=Ne02:
  13941. ORIENTATION=0
  13942. PAPERSIZE=1
  13943. COPIES=1
  13944. DEFAULTSOURCE=7
  13945. DUPLEX=1
  13946. TTOPTION=3
  13947. Arial
  13948. "Category Name"
  13949. Arial
  13950. "Description"
  13951. Arial
  13952. "asmanian"
  13953. Arial
  13954. Arial
  13955.     "raders
  13956. Arial
  13957. DATE()
  13958. Arial
  13959. Arial
  13960. "Page"
  13961. _PAGENO
  13962. Arial
  13963. Arial
  13964. "Date"
  13965. (c) Microsoft Corporation 1995
  13966. "..\bitmaps\ttradesm.bmp"
  13967. Arial
  13968. "Category Listing"
  13969. category_name
  13970. Arial
  13971. Description
  13972. Arial
  13973. Picture
  13974. Courier New
  13975. Arial
  13976. Arial
  13977. Arial
  13978. Arial
  13979. dataenvironment
  13980. LLeft = 134
  13981. Top = 244
  13982. Width = 281
  13983. Height = 200
  13984. Name = "Dataenvironment"
  13985. cursor
  13986. Left = 20
  13987. Top = 10
  13988. Width = 102
  13989. Height = 112
  13990. Alias = "category_listing"
  13991. Database = ..\data\tastrade.dbc
  13992. CursorSource = "category listing"
  13993. Name = "cursor1"
  13994. PLATFORM
  13995. UNIQUEID
  13996. TIMESTAMP
  13997. OBJTYPE
  13998. OBJCODE
  13999. HEIGHT
  14000. WIDTH
  14001. STYLE
  14002. PICTURE
  14003. ORDER
  14004. UNIQUE
  14005. COMMENT
  14006. ENVIRON
  14007. BOXCHAR
  14008. FILLCHAR
  14009. PENRED
  14010. PENGREEN
  14011. PENBLUE
  14012. FILLRED
  14013. FILLGREEN
  14014. FILLBLUE
  14015. PENSIZE
  14016. PENPAT
  14017. FILLPAT
  14018. FONTFACE
  14019. FONTSTYLE
  14020. FONTSIZE
  14021. RULER
  14022. RULERLINES
  14023. GRIDV
  14024. GRIDH
  14025. FLOAT
  14026. STRETCH
  14027. STRETCHTOP
  14028. BOTTOM
  14029. SUPTYPE
  14030. SUPREST
  14031. NOREPEAT
  14032. RESETRPT
  14033. PAGEBREAK
  14034. COLBREAK
  14035. RESETPAGE
  14036. GENERAL
  14037. SPACING
  14038. DOUBLE
  14039. SWAPHEADER
  14040. SWAPFOOTER
  14041. EJECTBEFOR
  14042. EJECTAFTER
  14043. PLAIN
  14044. SUMMARY
  14045. ADDALIAS
  14046. OFFSET
  14047. TOPMARGIN
  14048. BOTMARGIN
  14049. TOTALTYPE
  14050. RESETTOTAL
  14051. RESOID
  14052. CURPOS
  14053. SUPALWAYS
  14054. SUPOVFLOW
  14055. SUPRPCOL
  14056. SUPGROUP
  14057. SUPVALCHNG
  14058. SUPEXPR
  14059.  WINDOWS _QWK0RKTIN 505636481 1 53
  14060.     1.000    0.000    0.000   -1.000
  14061.                                              
  14062.   0 10   10T 5 5   FF                     T                F      
  14063.  WINDOWS _QWK0RKTIY           9  1
  14064.                   19896.000    0.000
  14065.                                              
  14066.                        F  FFF           F                         
  14067.  WINDOWS _QWK0RKTIZ           9  4
  14068.                    2917.000    0.000
  14069.                                              
  14070.                        F  FFF           F                         
  14071.  WINDOWS _QWK0RKTJ0           9  7
  14072.                       0.000    0.000
  14073.                                              
  14074.                        F  FFF           F                         
  14075.  WINDOWS _QWK0U0EIB 505638916 7  4
  14076. 16354.167    0.000 3541.66780312.500
  14077.    -1   -1   -1  192  192  192    1    8    1
  14078.         0          T   F                     0              TF3 0F
  14079.  WINDOWS _QWK0T54WP 505638537 5  0
  14080. 17187.500  520.833 2083.33312708.333
  14081.     0    0    0   -1   -1   -1               "
  14082.   1 12  1       T      F          0                         TF3 0F
  14083.  WINDOWS _QWK0T54WQ 505638009 8  0
  14084. 21979.167  520.833 2083.33332604.167
  14085.     0    0    0   -1   -1   -1               %
  14086.   0 12  1       TT     F          2          0       0 1    TF3 0F
  14087.  WINDOWS _QWK0T54WR 505638541 5  0
  14088. 17187.50033645.833 2083.33311250.000
  14089.     0    0    0   -1   -1   -1               &
  14090.   1 12  1       T      F          0                         TF3 0F
  14091.  WINDOWS _QWK0T54WZ 505638009 8  0
  14092. 21979.16733645.833 2083.33327812.500
  14093.     0    0    0   -1   -1   -1               )
  14094.   0 12  1       TT     F          2          0       0 1    TF3 0F
  14095.  WINDOWS _QWK0T54XC 505638009 5  0
  14096. 17187.50062500.000 2083.333 5208.333
  14097.     0    0    0   -1   -1   -1               *
  14098.   1 12  1       T      F          0                         TF3 0F
  14099.  WINDOWS _QWK0T54XJ 505638009 8  0
  14100. 21979.16762500.000 2083.33317604.167
  14101.     0    0    0   -1   -1   -1               -
  14102.   0 12  1       TT     F          2          0       0 1    TF3 0F
  14103.  WINDOWS _QV60X56R9 493911332 5  0
  14104.  6458.33315937.500 3437.50013333.333
  14105.     0    0    0   -1   -1   -1               /
  14106.   1 20  1          T   F          0                         TF3 0F
  14107.  WINDOWS _QV60XLBHG 493911315 5  0
  14108.  5937.50014270.833 3958.333 2083.333
  14109.     0    0  255   -1   -1   -1               2
  14110.   1 24  1          T   F          0                         TF3 0F
  14111.  WINDOWS _QV60X56R9 493911394 5  0
  14112.  6458.33332083.333 3437.500 8750.000
  14113.     0    0    0   -1   -1   -1               5
  14114.   1 20  1          T   F          0                         TF3 0F
  14115.  WINDOWS _QV60XLBHG 493911387 5  0
  14116.  5937.50030416.667 3958.333 2083.333
  14117.     0    0  255   -1   -1   -1               8
  14118.   1 24  1          T   F          0                         TF3 0F
  14119.  WINDOWS _QWK0U54AP 505639068 5  0
  14120. 12187.50015000.000 2083.33313645.833
  14121.     0    0    0   -1   -1   -1               ;
  14122.   1 12  1          T   F          0                         TF3 0F
  14123.  WINDOWS _QWK0U5JPO 505639044 6   
  14124. 11250.000    0.000  104.16781354.167
  14125.    -1   -1   -1   -1   -1   -1    1    8     
  14126.         0          T   F                     1              TF3 0F
  14127.  WINDOWS _QYK13ISMH 51147762517  0
  14128.  1250.000 3645.833 9166.667 8645.833
  14129.                                              
  14130.         0          T   F       0   F         0              TF3 0F
  14131.  WINDOWS _QZI12AW88 512986759 8  0
  14132.  5520.83373229.167 2083.333 6770.833
  14133.     0    0    0   -1   -1   -1               A
  14134.   0 12  1          T   F          2          0       0 1    TF3 0F
  14135.  WINDOWS _QZI12AW8I 512986759 5  0
  14136.  2604.16768229.167 2083.333 4062.500
  14137.     0    0    0   -1   -1   -1               C
  14138.   1 12  1          T   F          0                         TF3 0F
  14139.  WINDOWS _QZI12AW8J 512986759 8  0
  14140.  2604.16774895.833 2083.333 5104.167
  14141.     0    0    0   -1   -1   -1               F
  14142.   0 12  1          T   F          2          1       0 1    TF3 0F
  14143.  WINDOWS _QZI12AW8K 512986759 5  0
  14144.  5520.83368229.167 2083.333 3645.833
  14145.     0    0    0   -1   -1   -1               H
  14146.   1 12  1          T   F          0                         TF3 0F
  14147.  WINDOWS _QWK0TYV7Z 50563874810  0
  14148.     8.000    4.000                  
  14149.                                              
  14150.                                                                   
  14151.  WINDOWS                     23   
  14152.    16.000    8.000   12.000   16.000
  14153.     4    0                                   J
  14154.   0 10                                                            
  14155.  WINDOWS                     23   
  14156.    20.000    8.000   15.000   20.000
  14157.     4    1                                   K
  14158.   1 12                                                            
  14159.  WINDOWS                     23   
  14160.    19.000    7.000   15.000   29.000
  14161.     3    1                                   L
  14162.   0 12                                                            
  14163.  WINDOWS                     23   
  14164.    33.000   13.000   25.000   34.000
  14165.     7    1                                   M
  14166.   1 20                                                            
  14167.  WINDOWS                     23   
  14168.    38.000   15.000   30.000   40.000
  14169.     7    1                                   N
  14170.   1 24                                                            
  14171.  WINDOWS                     25   O
  14172.                                     
  14173.                                              
  14174.                                                                   
  14175.  WINDOWS                     26   S
  14176.                                     
  14177.                                              
  14178.                                                                   
  14179. Courier New
  14180. winspool
  14181. \\MSPRINT32\2/1MC PRIVJ 157.56.32.242
  14182. Ne02:
  14183. \\MSPRINT32\2/1MC PRIVJ 157.56.
  14184. Letter
  14185. DRIVER=winspool
  14186. DEVICE=\\MSPRINT32\2/1MC PRIVJ 157.56.32.242
  14187. OUTPUT=Ne02:
  14188. ORIENTATION=0
  14189. PAPERSIZE=1
  14190. COPIES=1
  14191. DEFAULTSOURCE=7
  14192. DUPLEX=1
  14193. TTOPTION=3
  14194. Arial
  14195. "Company Name"
  14196. company_name
  14197. Arial
  14198. Arial
  14199. "Contact Name"
  14200. contact_name
  14201. Arial
  14202. Arial
  14203. "Phone"
  14204. phone
  14205. Arial
  14206. Arial
  14207. "asmanian"
  14208. Arial
  14209. Arial
  14210.     "raders
  14211. Arial
  14212. Arial
  14213. "Customer Listing"
  14214.  (c) Microsoft Corporation 1995
  14215. "..\bitmaps\ttradesm.bmp"
  14216. DATE()
  14217. Arial
  14218. Arial
  14219. "Page"
  14220. _PAGENO
  14221. Arial
  14222. Arial
  14223. "Date"
  14224. Courier New
  14225. Arial
  14226. Arial
  14227. Arial
  14228. Arial
  14229. dataenvironment
  14230. LLeft = 134
  14231. Top = 244
  14232. Width = 401
  14233. Height = 240
  14234. Name = "Dataenvironment"
  14235. cursor
  14236. Left = 20
  14237. Top = 10
  14238. Width = 102
  14239. Height = 112
  14240. Alias = "customer_listing"
  14241. Database = ..\data\tastrade.dbc
  14242. CursorSource = "customer listing"
  14243. Name = "cursor1"
  14244. PLATFORM
  14245. UNIQUEID
  14246. TIMESTAMP
  14247. OBJTYPE
  14248. OBJCODE
  14249. HEIGHT
  14250. WIDTH
  14251. STYLE
  14252. PICTURE
  14253. ORDER
  14254. UNIQUE
  14255. COMMENT
  14256. ENVIRON
  14257. BOXCHAR
  14258. FILLCHAR
  14259. PENRED
  14260. PENGREEN
  14261. PENBLUE
  14262. FILLRED
  14263. FILLGREEN
  14264. FILLBLUE
  14265. PENSIZE
  14266. PENPAT
  14267. FILLPAT
  14268. FONTFACE
  14269. FONTSTYLE
  14270. FONTSIZE
  14271. RULER
  14272. RULERLINES
  14273. GRIDV
  14274. GRIDH
  14275. FLOAT
  14276. STRETCH
  14277. STRETCHTOP
  14278. BOTTOM
  14279. SUPTYPE
  14280. SUPREST
  14281. NOREPEAT
  14282. RESETRPT
  14283. PAGEBREAK
  14284. COLBREAK
  14285. RESETPAGE
  14286. GENERAL
  14287. SPACING
  14288. DOUBLE
  14289. SWAPHEADER
  14290. SWAPFOOTER
  14291. EJECTBEFOR
  14292. EJECTAFTER
  14293. PLAIN
  14294. SUMMARY
  14295. ADDALIAS
  14296. OFFSET
  14297. TOPMARGIN
  14298. BOTMARGIN
  14299. TOTALTYPE
  14300. RESETTOTAL
  14301. RESOID
  14302. CURPOS
  14303. SUPALWAYS
  14304. SUPOVFLOW
  14305. SUPRPCOL
  14306. SUPGROUP
  14307. SUPVALCHNG
  14308. SUPEXPR
  14309.  WINDOWS _QWK0VZIG3 505640684 1 53
  14310.     1.000    0.000    0.000   -1.000
  14311.                                              
  14312.   0 12   10T 5 5   FF                     T                F      
  14313.  WINDOWS _QWK0VZIG5           9  1
  14314.                   20938.000    0.000
  14315.                                              
  14316.                        F  FFF           F                         
  14317.  WINDOWS _QWK0WFW80           9  3
  14318.                    3438.000 3500.000
  14319.                                              
  14320.                        F  FFF           F                         
  14321.  WINDOWS _QWK0VZIG6           9  4
  14322.                    3542.000    0.000
  14323.                                              
  14324.                        F  FFF           F                         
  14325.  WINDOWS _QWK0WFXMX           9  5
  14326.                       0.000 3500.000
  14327.                                              
  14328.                        F  FFF           F                         
  14329.  WINDOWS _QWK0VZIG7           9  7
  14330.                    1146.000    0.000
  14331.                                              
  14332.                        F  FFF           F                         
  14333.  WINDOWS _QWK0WG9FP 505641229 7  4
  14334. 17500.000    0.000 3437.50080312.500
  14335.    -1   -1   -1  192  192  192    1    8    1
  14336.         0          T   F                     0              TF3 0F
  14337.  WINDOWS _QWK0VZOZP 505641037 5  0
  14338. 18437.500  520.833 2083.33312916.667
  14339.     0    0    0   -1   -1   -1               $
  14340.   1 12  1       T      F          0                         TF3 0F
  14341.  WINDOWS _QWK0VZOZQ 505641052 5  0
  14342. 18437.50032291.667 2083.333 2604.167
  14343.     0    0    0   -1   -1   -1               '
  14344.   1 12  1       T      F          0                         TF3 0F
  14345.  WINDOWS _QWK0VZOZR 505641101 5  0
  14346. 18437.50037604.167 2083.333 4687.500
  14347.     0    0    0   -1   -1   -1               *
  14348.   1 12  1       T      F          0                         TF3 0F
  14349.  WINDOWS _QV60X56R9 493911332 5  0
  14350.  7708.33317187.500 3437.50013333.333
  14351.     0    0    0   -1   -1   -1               -
  14352.   1 20  1          T   F          0                         TF3 0F
  14353.  WINDOWS _QV60XLBHG 493911315 5  0
  14354.  7187.50015520.833 3958.333 2083.333
  14355.     0    0  255   -1   -1   -1               0
  14356.   1 24  1          T   F          0                         TF3 0F
  14357.  WINDOWS _QV60X56R9 493911394 5  0
  14358.  7708.33333333.333 3437.500 8750.000
  14359.     0    0    0   -1   -1   -1               3
  14360.   1 20  1          T   F          0                         TF3 0F
  14361.  WINDOWS _QV60XLBHG 493911387 5  0
  14362.  7187.50031666.667 3958.333 2083.333
  14363.     0    0  255   -1   -1   -1               6
  14364.   1 24  1          T   F          0                         TF3 0F
  14365.  WINDOWS _QWK0VZP1P 505640709 5  0
  14366. 12187.50016250.000 2083.33313750.000
  14367.     0    0    0   -1   -1   -1               9
  14368.   1 12  1          T   F          0                         TF3 0F
  14369.  WINDOWS _QWK0VZP1Q 505640689 6   
  14370. 11250.000    0.000  104.16780312.500
  14371.    -1   -1   -1   -1   -1   -1    1    8     
  14372.         0          T   F                     1              TF3 0F
  14373.  WINDOWS _QWK0W35VC 505640802 8  0
  14374. 28541.667 2604.167 2083.33328958.333
  14375.    -1   -1   -1   -1   -1   -1               >
  14376.   0 12  1       TT     F          0          0       0 1    TF3 0F
  14377.  WINDOWS _QWK0W4GPX 505640811 8  0
  14378. 28541.66732291.667 2083.333 4062.500
  14379.    -1   -1   -1   -1   -1   -1               A
  14380.   0 12  1       TT     F          0          0       0 1    TF3 0F
  14381.  WINDOWS _QWK0W512X 505640824 8  0
  14382. 28541.66737604.167 2083.33342708.333
  14383.    -1   -1   -1   -1   -1   -1               D
  14384.   0 12  1       TT     F          0          0       0 1    TF3 0F
  14385.  WINDOWS _QWK0WGZ9X 505641249 8  0
  14386. 24270.833  520.833 2187.50030625.000
  14387.     0    0  128   -1   -1   -1               G
  14388.   1 12  1          T   F          2          0       0 1    TF3 0F
  14389.  WINDOWS _QYK13JJAG 51147776017  0
  14390.  1250.000 4895.833 9166.667 8645.833
  14391.                                              
  14392.         0          T   F       0   F         0              TF3 0F
  14393.  WINDOWS _QZI13C725 512987816 8  0
  14394.  6041.66773229.167 2083.333 6770.833
  14395.     0    0    0   -1   -1   -1               L
  14396.   0 12  1          T   F          2          0       0 1    TF3 0F
  14397.  WINDOWS _QZI13C726 512987816 5  0
  14398.  3125.00068229.167 2083.333 4062.500
  14399.     0    0    0   -1   -1   -1               N
  14400.   1 12  1          T   F          0                         TF3 0F
  14401.  WINDOWS _QZI13C727 512987816 8  0
  14402.  3125.00074895.833 2083.333 5104.167
  14403.     0    0    0   -1   -1   -1               Q
  14404.   0 12  1          T   F          2          1       0 1    TF3 0F
  14405.  WINDOWS _QZI13C728 512987816 5  0
  14406.  6041.66768229.167 2083.333 3645.833
  14407.     0    0    0   -1   -1   -1               S
  14408.   1 12  1          T   F          0                         TF3 0F
  14409.  WINDOWS _QWK0VZOZZ 50564068910  0
  14410.     5.000    4.000                  
  14411.                                              
  14412.                                                                   
  14413.  WINDOWS                     23   
  14414.    19.000    7.000   15.000   29.000
  14415.     3    1                                   U
  14416.   0 12                                                            
  14417.  WINDOWS                     23   
  14418.    20.000    8.000   15.000   20.000
  14419.     4    1                                   V
  14420.   1 12                                                            
  14421.  WINDOWS                     23   
  14422.    33.000   13.000   25.000   34.000
  14423.     7    1                                   W
  14424.   1 20                                                            
  14425.  WINDOWS                     23   
  14426.    38.000   15.000   30.000   40.000
  14427.     7    1                                   X
  14428.   1 24                                                            
  14429.  WINDOWS                     25   Y
  14430.                                     
  14431.                                              
  14432.                                                                   
  14433.  WINDOWS                     26   
  14434.                                     
  14435.                                              
  14436.                                                                   
  14437. Arial
  14438. winspool
  14439. \\MSPRINT32\2/1MC PRIVJ 157.56.32.242
  14440. Ne02:
  14441. \\MSPRINT32\2/1MC PRIVJ 157.56.
  14442. Letter
  14443. DRIVER=winspool
  14444. DEVICE=\\MSPRINT32\2/1MC PRIVJ 157.56.32.242
  14445. OUTPUT=Ne02:
  14446. ORIENTATION=0
  14447. PAPERSIZE=1
  14448. COPIES=1
  14449. DEFAULTSOURCE=265
  14450. DUPLEX=1
  14451. TTOPTION=3
  14452. Title
  14453. Arial
  14454. "Employee Name"
  14455. Arial
  14456. "Ext"
  14457. Arial
  14458. "Notes"
  14459. Arial
  14460. "asmanian"
  14461. Arial
  14462. Arial
  14463.     "raders
  14464. Arial
  14465. Arial
  14466. "Employee Listing"
  14467. !trim(last_name)+', ' + first_name
  14468. Arial
  14469.     extension
  14470. Arial
  14471. notes
  14472. Arial
  14473. Title
  14474. Arial
  14475.  (c) Microsoft Corporation 1995
  14476. "..\bitmaps\ttradesm.bmp"
  14477. DATE()
  14478. Arial
  14479. Arial
  14480. "Page"
  14481. _PAGENO
  14482. Arial
  14483. Arial
  14484. "Date"
  14485. Arial
  14486. Arial
  14487. Arial
  14488. Arial
  14489. dataenvironment
  14490. Left = 57
  14491. Top = 83
  14492. Width = 343
  14493. Height = 238
  14494. AutoOpenTables = .F.
  14495. AutoCloseTables = .F.
  14496. InitialSelectedAlias = "employee_listing"
  14497. Name = "Dataenvironment"
  14498. PROCEDURE Init
  14499. #DEFINE C_TASTRADEDIR_LOC    "Samples\Tastrade\"        && Location of Tastrade, off of HOME()
  14500. LOCAL llContinue
  14501. IF WEXIST("Project Manager")
  14502.     *- assume that TasTrade isn't running, since it closes the Project Manager window
  14503.     DO FORM (HOME() + C_TASTRADEDIR_LOC + "forms\gettitle") TO cTitle
  14504.     DO FORM forms\gettitle TO cTitle
  14505. ENDIf
  14506. IF EMPTY(cTitle)
  14507.   RETURN .F.
  14508. ENDIF
  14509. IF UPPER(cTitle) = "ALL"
  14510.   cTitle = ""
  14511. ENDIF
  14512. this.OpenTables()
  14513. llContinue = !(_tally = 0)
  14514. IF !llContinue
  14515.   =MESSAGEBOX(NOTHINGTOPRINT_LOC, ;
  14516.               MB_ICONEXCLAMATION, ;
  14517.               TASTRADE_LOC)
  14518.   this.CloseTables()
  14519. ENDIF
  14520. *=REQUERY()
  14521. RETURN llContinue
  14522. ENDPROC
  14523. PROCEDURE Destroy
  14524. THIS.CLOSETABLES()
  14525. ENDPROC
  14526. Project Manager
  14527. Samples\Tastrade\
  14528. forms\gettitle
  14529. forms\gettitle(
  14530. LLCONTINUE
  14531. CTITLE
  14532. FORMS
  14533. OPENTABLES
  14534. NOTHINGTOPRINT_LOC
  14535. MB_ICONEXCLAMATION
  14536. TASTRADE_LOC
  14537. CLOSETABLES
  14538. CLOSETABLES
  14539. Init,
  14540. Destroy
  14541. cursor
  14542. Left = 20
  14543. Top = 13
  14544. Width = 235
  14545. Height = 90
  14546. Alias = "employee_listing"
  14547. Database = ..\data\tastrade.dbc
  14548. CursorSource = "employee listing"
  14549. Name = "Cursor1"
  14550. PLATFORM
  14551. UNIQUEID
  14552. TIMESTAMP
  14553. OBJTYPE
  14554. OBJCODE
  14555. HEIGHT
  14556. WIDTH
  14557. STYLE
  14558. PICTURE
  14559. ORDER
  14560. UNIQUE
  14561. COMMENT
  14562. ENVIRON
  14563. BOXCHAR
  14564. FILLCHAR
  14565. PENRED
  14566. PENGREEN
  14567. PENBLUE
  14568. FILLRED
  14569. FILLGREEN
  14570. FILLBLUE
  14571. PENSIZE
  14572. PENPAT
  14573. FILLPAT
  14574. FONTFACE
  14575. FONTSTYLE
  14576. FONTSIZE
  14577. RULER
  14578. RULERLINES
  14579. GRIDV
  14580. GRIDH
  14581. FLOAT
  14582. STRETCH
  14583. STRETCHTOP
  14584. BOTTOM
  14585. SUPTYPE
  14586. SUPREST
  14587. NOREPEAT
  14588. RESETRPT
  14589. PAGEBREAK
  14590. COLBREAK
  14591. RESETPAGE
  14592. GENERAL
  14593. SPACING
  14594. DOUBLE
  14595. SWAPHEADER
  14596. SWAPFOOTER
  14597. EJECTBEFOR
  14598. EJECTAFTER
  14599. PLAIN
  14600. SUMMARY
  14601. ADDALIAS
  14602. OFFSET
  14603. TOPMARGIN
  14604. BOTMARGIN
  14605. TOTALTYPE
  14606. RESETTOTAL
  14607. RESOID
  14608. CURPOS
  14609. SUPALWAYS
  14610. SUPOVFLOW
  14611. SUPRPCOL
  14612. SUPGROUP
  14613. SUPVALCHNG
  14614. SUPEXPR
  14615.  WINDOWS _QWK11SUDO 505646278 1 53
  14616.     1.000    0.000    0.000   -1.000
  14617.                                              
  14618.   0 12   10T 5 5   FF                     T                F      
  14619.  WINDOWS _QWK11SUDZ           9  1
  14620.                   22188.000    0.000
  14621.                                              
  14622.                        F  FFF           F                         
  14623.  WINDOWS _QWK11SUE0           9  4
  14624.                    2709.000    0.000
  14625.                                              
  14626.                        F  FFF           F                         
  14627.  WINDOWS _QWK11SUE1           9  7
  14628.                    1563.000    0.000
  14629.                                              
  14630.                        F  FFF           F                         
  14631.  WINDOWS _QWK11WEWL 505646368 7  4
  14632. 18333.333    0.000 3854.16780312.500
  14633.    -1   -1   -1  192  192  192    1    8    1
  14634.         0          T   F                     0              TF3 0F
  14635.  WINDOWS _QV60X56R9 493911332 5  0
  14636. 10208.33319687.500 3437.50013333.333
  14637.     0    0    0   -1   -1   -1               #
  14638.   1 20  1          T   F          0                         TF3 0F
  14639.  WINDOWS _QV60XLBHG 493911315 5  0
  14640.  9687.50018020.833 3958.333 2083.333
  14641.     0    0  255   -1   -1   -1               &
  14642.   1 24  1          T   F          0                         TF3 0F
  14643.  WINDOWS _QV60X56R9 493911394 5  0
  14644. 10208.33335833.333 3437.500 8750.000
  14645.     0    0    0   -1   -1   -1               )
  14646.   1 20  1          T   F          0                         TF3 0F
  14647.  WINDOWS _QV60XLBHG 493911387 5  0
  14648.  9687.50034166.667 3958.333 2083.333
  14649.     0    0  255   -1   -1   -1               ,
  14650.   1 24  1          T   F          0                         TF3 0F
  14651.  WINDOWS _QWK11WEWZ 505646389 5  0
  14652. 14687.50018750.000 2083.33312187.500
  14653.     0    0    0   -1   -1   -1               /
  14654.   1 12  1          T   F          0                         TF3 0F
  14655.  WINDOWS _QWK11WEX0 505646368 6   
  14656. 13750.000    0.000  104.16779791.667
  14657.    -1   -1   -1   -1   -1   -1    1    8     
  14658.         0          T   F                     1              TF3 0F
  14659.  WINDOWS _QWK11V498 505646394 5  0
  14660. 19375.000 1041.667 2083.33311354.167
  14661.    -1   -1   -1   -1   -1   -1               1
  14662.   1 12  1       T      F          0                         TF3 0F
  14663.  WINDOWS _QWK11V499 505646333 8  0
  14664. 24270.833 1041.667 2083.33332395.833
  14665.    -1   -1   -1   -1   -1   -1               4
  14666.   0 12  1       TT     F          0          0       0 1    TF3 0F
  14667.  WINDOWS _QWK11V49A 505646407 5  0
  14668. 19375.00034166.667 2083.33312187.500
  14669.    -1   -1   -1   -1   -1   -1               5
  14670.   1 12  1       T      F          0                         TF3 0F
  14671.  WINDOWS _QWK11V49I 505646333 8  0
  14672. 24270.83334062.500 2083.33323645.833
  14673.    -1   -1   -1   -1   -1   -1               8
  14674.   0 12  1       TT     F          0          0       0 1    TF3 0F
  14675.  WINDOWS _QWK11V49J 505646415 5  0
  14676. 19375.00059166.667 2083.333 7708.333
  14677.    -1   -1   -1   -1   -1   -1               9
  14678.   1 12  1       T      F          0                         TF3 0F
  14679.  WINDOWS _QWK11V49K 505646620 8  0
  14680. 24270.83359062.500 2083.333 9583.333
  14681.    -1   -1   -1   -1   -1   -1               =
  14682.   0 12  1       T      F          0          0       0 1    TF3 0F
  14683.  WINDOWS _QWK11V49L 505646414 5  0
  14684. 19375.00070416.667 2083.333 7395.833
  14685.    -1   -1   -1   -1   -1   -1               ?
  14686.   1 12  1       T      F          0                         TF3 0F
  14687.  WINDOWS _QWK11V49M 505646625 8  0
  14688. 24270.83370312.500 2083.333 9583.333
  14689.    -1   -1   -1   -1   -1   -1               C
  14690.   0 12  1       T      F          0          0       0 1    TF3 0F
  14691.  WINDOWS _QYK13JPXZ 51147776417  0
  14692.  3750.000 7395.833 9166.667 8645.833
  14693.                                              
  14694.         0          T   F       0   F         0              TF3 0F
  14695.  WINDOWS _QZI15ZDOD 512990312 8  0
  14696.  6145.83373437.500 2083.333 6770.833
  14697.     0    0    0   -1   -1   -1               I
  14698.   0 12  1          T   F          2          0       0 1    TF3 0F
  14699.  WINDOWS _QZI15ZDOE 512990312 5  0
  14700.  3229.16768437.500 2083.333 4062.500
  14701.     0    0    0   -1   -1   -1               K
  14702.   1 12  1          T   F          0                         TF3 0F
  14703.  WINDOWS _QZI15ZDOF 512990312 8  0
  14704.  3229.16775104.167 2083.333 5104.167
  14705.     0    0    0   -1   -1   -1               N
  14706.   0 12  1          T   F          2          1       0 1    TF3 0F
  14707.  WINDOWS _QZI15ZDOG 512990312 5  0
  14708.  6145.83368437.500 2083.333 3645.833
  14709.     0    0    0   -1   -1   -1               P
  14710.   1 12  1          T   F          0                         TF3 0F
  14711.  WINDOWS _QWK11WEWN 50564636810  0
  14712.     2.000    4.000                  
  14713.                                              
  14714.                                                                   
  14715.  WINDOWS                     23   
  14716.    19.000    7.000   15.000   29.000
  14717.     3    1                                   R
  14718.   0 12                                                            
  14719.  WINDOWS                     23   
  14720.    33.000   13.000   25.000   34.000
  14721.     7    1                                   S
  14722.   1 20                                                            
  14723.  WINDOWS                     23   
  14724.    38.000   15.000   30.000   40.000
  14725.     7    1                                   T
  14726.   1 24                                                            
  14727.  WINDOWS                     23   
  14728.    20.000    8.000   15.000   20.000
  14729.     4    1                                   U
  14730.   1 12                                                            
  14731.  WINDOWS                     25   V
  14732.                                     
  14733.                                              
  14734.                                                                   
  14735.  WINDOWS                     26   Z
  14736.                                     
  14737.                                              
  14738.                                                                   
  14739. Arial
  14740. winspool
  14741. \\MSPRINT32\2/1MC PRIVJ 157.56.32.242
  14742. Ne02:
  14743. \\MSPRINT32\2/1MC PRIVJ 157.56.
  14744. Letter
  14745. DRIVER=winspool
  14746. DEVICE=\\MSPRINT32\2/1MC PRIVJ 157.56.32.242
  14747. OUTPUT=Ne02:
  14748. ORIENTATION=0
  14749. PAPERSIZE=1
  14750. COPIES=1
  14751. DEFAULTSOURCE=7
  14752. DUPLEX=1
  14753. TTOPTION=3
  14754. Arial
  14755. "asmanian"
  14756. Arial
  14757. Arial
  14758.     "raders
  14759. Arial
  14760. Arial
  14761. "Product Listing"
  14762. Arial
  14763. "Product Name"
  14764. product_name
  14765. Arial
  14766. Arial
  14767. "Quantity In Unit"
  14768. quantity_in_unit
  14769. Arial
  14770. Arial
  14771. "Unit Price"
  14772. unit_price
  14773. Arial
  14774. "99999.99"
  14775. Arial
  14776. "Unit Cost"
  14777.     unit_cost
  14778. Arial
  14779. "99999.99"
  14780.  (c) Microsoft Corporation 1995
  14781. "..\bitmaps\ttradesm.bmp"
  14782. DATE()
  14783. Arial
  14784. Arial
  14785. "Page"
  14786. _PAGENO
  14787. Arial
  14788. Arial
  14789. "Date"
  14790. Arial
  14791. Arial
  14792. Arial
  14793. Arial
  14794. dataenvironment
  14795. LLeft = 134
  14796. Top = 244
  14797. Width = 317
  14798. Height = 192
  14799. Name = "Dataenvironment"
  14800. cursor
  14801. Left = 20
  14802. Top = 10
  14803. Width = 102
  14804. Height = 112
  14805. Alias = "product_listing"
  14806. Database = ..\data\tastrade.dbc
  14807. CursorSource = "product listing"
  14808. Name = "cursor1"
  14809. PLATFORM
  14810. UNIQUEID
  14811. TIMESTAMP
  14812. OBJTYPE
  14813. OBJCODE
  14814. HEIGHT
  14815. WIDTH
  14816. STYLE
  14817. PICTURE
  14818. ORDER
  14819. UNIQUE
  14820. COMMENT
  14821. ENVIRON
  14822. BOXCHAR
  14823. FILLCHAR
  14824. PENRED
  14825. PENGREEN
  14826. PENBLUE
  14827. FILLRED
  14828. FILLGREEN
  14829. FILLBLUE
  14830. PENSIZE
  14831. PENPAT
  14832. FILLPAT
  14833. FONTFACE
  14834. FONTSTYLE
  14835. FONTSIZE
  14836. RULER
  14837. RULERLINES
  14838. GRIDV
  14839. GRIDH
  14840. FLOAT
  14841. STRETCH
  14842. STRETCHTOP
  14843. BOTTOM
  14844. SUPTYPE
  14845. SUPREST
  14846. NOREPEAT
  14847. RESETRPT
  14848. PAGEBREAK
  14849. COLBREAK
  14850. RESETPAGE
  14851. GENERAL
  14852. SPACING
  14853. DOUBLE
  14854. SWAPHEADER
  14855. SWAPFOOTER
  14856. EJECTBEFOR
  14857. EJECTAFTER
  14858. PLAIN
  14859. SUMMARY
  14860. ADDALIAS
  14861. OFFSET
  14862. TOPMARGIN
  14863. BOTMARGIN
  14864. TOTALTYPE
  14865. RESETTOTAL
  14866. RESOID
  14867. CURPOS
  14868. SUPALWAYS
  14869. SUPOVFLOW
  14870. SUPRPCOL
  14871. SUPGROUP
  14872. SUPVALCHNG
  14873. SUPEXPR
  14874.  WINDOWS _QWK10DIXM 505644873 1 53
  14875.     1.000    0.000    0.000   -1.000
  14876.                                              
  14877.   0 10   10T 5 5   FF                     T                F      
  14878.  WINDOWS _QWK10DIY7           9  1
  14879.                   22605.000    0.000
  14880.                                              
  14881.                        F  FFF           F                         
  14882.  WINDOWS _QWK10DIY8           9  4
  14883.                    2188.000    0.000
  14884.                                              
  14885.                        F  FFF           F                         
  14886.  WINDOWS _QWK10DIY9           9  7
  14887.                    5000.000    0.000
  14888.                                              
  14889.                        F  FFF           F                         
  14890.  WINDOWS _QWK10FCMP 505644918 7  4
  14891. 18750.000    0.000 3854.16747604.167
  14892.    -1   -1   -1  192  192  192    1    8    1
  14893.         0          T   F                     0              TF3 0F
  14894.  WINDOWS _QWK10EMDG 505645105 5  0
  14895. 19687.500 1250.000 2083.33312708.333
  14896.     0    0    0   -1   -1   -1               "
  14897.   1 12  1       T      F          0                         TF3 0F
  14898.  WINDOWS _QV60X56R9 493911332 5  0
  14899.  8958.33318437.500 3437.50013333.333
  14900.     0    0    0   -1   -1   -1               %
  14901.   1 20  1          T   F          0                         TF3 0F
  14902.  WINDOWS _QV60XLBHG 493911315 5  0
  14903.  8437.50016770.833 3958.333 2083.333
  14904.     0    0  255   -1   -1   -1               (
  14905.   1 24  1          T   F          0                         TF3 0F
  14906.  WINDOWS _QV60X56R9 493911394 5  0
  14907.  8958.33334583.333 3437.500 8750.000
  14908.     0    0    0   -1   -1   -1               +
  14909.   1 20  1          T   F          0                         TF3 0F
  14910.  WINDOWS _QV60XLBHG 493911387 5  0
  14911.  8437.50032916.667 3958.333 2083.333
  14912.     0    0  255   -1   -1   -1               .
  14913.   1 24  1          T   F          0                         TF3 0F
  14914.  WINDOWS _QWK10EMEU 505645065 5  0
  14915. 13437.50017500.000 2083.33312083.333
  14916.     0    0    0   -1   -1   -1               1
  14917.   1 12  1          T   F          0                         TF3 0F
  14918.  WINDOWS _QWK10EMEV 505644901 6   
  14919. 12500.000    0.000  104.16779791.667
  14920.    -1   -1   -1   -1   -1   -1    1    8     
  14921.         0          T   F                     1              TF3 0F
  14922.  WINDOWS _QWK10HARQ 505768537 8  0
  14923. 24687.500 1145.833 2083.33346666.667
  14924.     0    0    0   -1   -1   -1               5
  14925.   0 12  1          T   F          2          0       0 1    TF3 0F
  14926.  WINDOWS _QYK13JYR3 51147776817  0
  14927.  2500.000 4895.833 9166.667 8645.833
  14928.                                              
  14929.         0          T   F       0   F         0              TF3 0F
  14930.  WINDOWS _QZI16741F 512990504 8  0
  14931.  5937.50073333.333 2083.333 6770.833
  14932.     0    0    0   -1   -1   -1               :
  14933.   0 12  1          T   F          2          0       0 1    TF3 0F
  14934.  WINDOWS _QZI16741P 512990504 5  0
  14935.  3020.83368333.333 2083.333 4062.500
  14936.     0    0    0   -1   -1   -1               <
  14937.   1 12  1          T   F          0                         TF3 0F
  14938.  WINDOWS _QZI16741Q 512990504 8  0
  14939.  3020.83375000.000 2083.333 5104.167
  14940.     0    0    0   -1   -1   -1               ?
  14941.   0 12  1          T   F          2          1       0 1    TF3 0F
  14942.  WINDOWS _QZI16741R 512990504 5  0
  14943.  5937.50068333.333 2083.333 3645.833
  14944.     0    0    0   -1   -1   -1               A
  14945.   1 12  1          T   F          0                         TF3 0F
  14946.  WINDOWS _QWK10EMDR 50564490110  0
  14947.     3.000    4.000                  
  14948.                                              
  14949.                                                                   
  14950.  WINDOWS                     23   
  14951.    16.000    8.000   12.000   16.000
  14952.     4    0                                   C
  14953.   0 10                                                            
  14954.  WINDOWS                     23   
  14955.    20.000    8.000   15.000   20.000
  14956.     4    1                                   D
  14957.   1 12                                                            
  14958.  WINDOWS                     23   
  14959.    33.000   13.000   25.000   34.000
  14960.     7    1                                   E
  14961.   1 20                                                            
  14962.  WINDOWS                     23   
  14963.    38.000   15.000   30.000   40.000
  14964.     7    1                                   F
  14965.   1 24                                                            
  14966.  WINDOWS                     23   
  14967.    19.000    7.000   15.000   29.000
  14968.     3    1                                   G
  14969.   0 12                                                            
  14970.  WINDOWS                     25   H
  14971.                                     
  14972.                                              
  14973.                                                                   
  14974.  WINDOWS                     26   L
  14975.                                     
  14976.                                              
  14977.                                                                   
  14978. Courier New
  14979. winspool
  14980. \\MSPRINT32\2/1MC PRIVJ 157.56.32.242
  14981. Ne02:
  14982. \\MSPRINT32\2/1MC PRIVJ 157.56.
  14983. Letter
  14984. DRIVER=winspool
  14985. DEVICE=\\MSPRINT32\2/1MC PRIVJ 157.56.32.242
  14986. OUTPUT=Ne02:
  14987. ORIENTATION=0
  14988. PAPERSIZE=1
  14989. COPIES=1
  14990. DEFAULTSOURCE=7
  14991. DUPLEX=1
  14992. TTOPTION=3
  14993. Arial
  14994. "Company Name"
  14995. Arial
  14996. "asmanian"
  14997. Arial
  14998. Arial
  14999.     "raders
  15000. Arial
  15001. Arial
  15002. "Shipper Listing"
  15003. company_name
  15004. Arial
  15005.  (c) Microsoft Corporation 1995
  15006. "..\bitmaps\ttradesm.bmp"
  15007. DATE()
  15008. Arial
  15009. Arial
  15010. "Page"
  15011. _PAGENO
  15012. Arial
  15013. Arial
  15014. "Date"
  15015. Courier New
  15016. Arial
  15017. Arial
  15018. Arial
  15019. Arial
  15020. dataenvironment
  15021. LLeft = 134
  15022. Top = 244
  15023. Width = 291
  15024. Height = 197
  15025. Name = "Dataenvironment"
  15026. cursor
  15027. Left = 20
  15028. Top = 10
  15029. Width = 102
  15030. Height = 112
  15031. Alias = "shipper_listing"
  15032. Database = ..\data\tastrade.dbc
  15033. CursorSource = "shipper listing"
  15034. Name = "cursor1"
  15035. PLATFORM
  15036. UNIQUEID
  15037. TIMESTAMP
  15038. OBJTYPE
  15039. OBJCODE
  15040. HEIGHT
  15041. WIDTH
  15042. STYLE
  15043. PICTURE
  15044. ORDER
  15045. UNIQUE
  15046. COMMENT
  15047. ENVIRON
  15048. BOXCHAR
  15049. FILLCHAR
  15050. PENRED
  15051. PENGREEN
  15052. PENBLUE
  15053. FILLRED
  15054. FILLGREEN
  15055. FILLBLUE
  15056. PENSIZE
  15057. PENPAT
  15058. FILLPAT
  15059. FONTFACE
  15060. FONTSTYLE
  15061. FONTSIZE
  15062. RULER
  15063. RULERLINES
  15064. GRIDV
  15065. GRIDH
  15066. FLOAT
  15067. STRETCH
  15068. STRETCHTOP
  15069. BOTTOM
  15070. SUPTYPE
  15071. SUPREST
  15072. NOREPEAT
  15073. RESETRPT
  15074. PAGEBREAK
  15075. COLBREAK
  15076. RESETPAGE
  15077. GENERAL
  15078. SPACING
  15079. DOUBLE
  15080. SWAPHEADER
  15081. SWAPFOOTER
  15082. EJECTBEFOR
  15083. EJECTAFTER
  15084. PLAIN
  15085. SUMMARY
  15086. ADDALIAS
  15087. OFFSET
  15088. TOPMARGIN
  15089. BOTMARGIN
  15090. TOTALTYPE
  15091. RESETTOTAL
  15092. RESOID
  15093. CURPOS
  15094. SUPALWAYS
  15095. SUPOVFLOW
  15096. SUPRPCOL
  15097. SUPGROUP
  15098. SUPVALCHNG
  15099. SUPEXPR
  15100.  WINDOWS _QWK0RKTIN 505636481 1 53
  15101.     1.000    0.000    0.000   -1.000
  15102.                                              
  15103.   0 10   10T 5 5   FF                     T                F      
  15104.  WINDOWS _QWK0RKTIY           9  1
  15105.                   19896.000    0.000
  15106.                                              
  15107.                        F  FFF           F                         
  15108.  WINDOWS _QWK0RKTIZ           9  4
  15109.                    2917.000    0.000
  15110.                                              
  15111.                        F  FFF           F                         
  15112.  WINDOWS _QWK0RKTJ0           9  7
  15113.                    1771.000    0.000
  15114.                                              
  15115.                        F  FFF           F                         
  15116.  WINDOWS _QWK0U0EIB 505638916 7  4
  15117. 16354.167    0.000 3541.66780312.500
  15118.    -1   -1   -1  192  192  192    1    8    1
  15119.         0          T   F                     0              TF3 0F
  15120.  WINDOWS _QWK0T54WP 505638537 5  0
  15121. 17187.500 1041.667 2083.33312708.333
  15122.     0    0    0   -1   -1   -1               "
  15123.   1 12  1       T      F          0                         TF3 0F
  15124.  WINDOWS _QWK0T54WQ 505638009 8  0
  15125. 21979.167 1041.667 2083.33334479.167
  15126.     0    0    0   -1   -1   -1               %
  15127.   0 12  1       TT     F          2          0       0 1    TF3 0F
  15128.  WINDOWS _QWK0T54WR 505638541 5  0
  15129. 17187.50036458.333 2083.33311250.000
  15130.     0    0    0   -1   -1   -1               &
  15131.   1 12  1       T      F          0                         TF3 0F
  15132.  WINDOWS _QWK0T54WZ 505638009 8  0
  15133. 21979.16736458.333 2083.33326145.833
  15134.     0    0    0   -1   -1   -1               )
  15135.   0 12  1       TT     F          2          0       0 1    TF3 0F
  15136.  WINDOWS _QWK0T54XC 505638009 5  0
  15137. 17187.50063645.833 2083.333 5208.333
  15138.     0    0    0   -1   -1   -1               *
  15139.   1 12  1       T      F          0                         TF3 0F
  15140.  WINDOWS _QWK0T54XJ 505638009 8  0
  15141. 21979.16763854.167 2083.33317500.000
  15142.     0    0    0   -1   -1   -1               -
  15143.   0 12  1       TT     F          2          0       0 1    TF3 0F
  15144.  WINDOWS _QV60X56R9 493911332 5  0
  15145.  6458.33315937.500 3437.50013333.333
  15146.     0    0    0   -1   -1   -1               /
  15147.   1 20  1          T   F          0                         TF3 0F
  15148.  WINDOWS _QV60XLBHG 493911315 5  0
  15149.  5937.50014270.833 3958.333 2083.333
  15150.     0    0  255   -1   -1   -1               2
  15151.   1 24  1          T   F          0                         TF3 0F
  15152.  WINDOWS _QV60X56R9 493911394 5  0
  15153.  6458.33332083.333 3437.500 8750.000
  15154.     0    0    0   -1   -1   -1               5
  15155.   1 20  1          T   F          0                         TF3 0F
  15156.  WINDOWS _QV60XLBHG 493911387 5  0
  15157.  5937.50030416.667 3958.333 2083.333
  15158.     0    0  255   -1   -1   -1               8
  15159.   1 24  1          T   F          0                         TF3 0F
  15160.  WINDOWS _QWK0U54AP 505646824 5  0
  15161. 10937.50015000.000 2083.33312500.000
  15162.     0    0    0   -1   -1   -1               ;
  15163.   1 12  1          T   F          0                         TF3 0F
  15164.  WINDOWS _QWK0U5JPO 505639044 6   
  15165. 10729.167    0.000  104.16780312.500
  15166.    -1   -1   -1   -1   -1   -1    1    8     
  15167.         0          T   F                     1              TF3 0F
  15168.  WINDOWS _QYK13K3I6 51147777217  0
  15169.  1250.000 4895.833 9166.667 8645.833
  15170.                                              
  15171.         0          T   F       0   F         0              TF3 0F
  15172.  WINDOWS _QZI168JKM 512990540 8  0
  15173.  5625.00073437.500 2083.333 6770.833
  15174.     0    0    0   -1   -1   -1               A
  15175.   0 12  1          T   F          2          0       0 1    TF3 0F
  15176.  WINDOWS _QZI168JKN 512990540 5  0
  15177.  2708.33368437.500 2083.333 4062.500
  15178.     0    0    0   -1   -1   -1               C
  15179.   1 12  1          T   F          0                         TF3 0F
  15180.  WINDOWS _QZI168JKO 512990540 8  0
  15181.  2708.33375104.167 2083.333 5104.167
  15182.     0    0    0   -1   -1   -1               F
  15183.   0 12  1          T   F          2          1       0 1    TF3 0F
  15184.  WINDOWS _QZI168JKP 512990540 5  0
  15185.  5625.00068437.500 2083.333 3645.833
  15186.     0    0    0   -1   -1   -1               H
  15187.   1 12  1          T   F          0                         TF3 0F
  15188.  WINDOWS _QWK0TYV7Z 50563874810  0
  15189.     8.000    4.000                  
  15190.                                              
  15191.                                                                   
  15192.  WINDOWS                     23   
  15193.    16.000    8.000   12.000   16.000
  15194.     4    0                                   J
  15195.   0 10                                                            
  15196.  WINDOWS                     23   
  15197.    20.000    8.000   15.000   20.000
  15198.     4    1                                   K
  15199.   1 12                                                            
  15200.  WINDOWS                     23   
  15201.    19.000    7.000   15.000   29.000
  15202.     3    1                                   L
  15203.   0 12                                                            
  15204.  WINDOWS                     23   
  15205.    33.000   13.000   25.000   34.000
  15206.     7    1                                   M
  15207.   1 20                                                            
  15208.  WINDOWS                     23   
  15209.    38.000   15.000   30.000   40.000
  15210.     7    1                                   N
  15211.   1 24                                                            
  15212.  WINDOWS                     25   O
  15213.                                     
  15214.                                              
  15215.                                                                   
  15216.  WINDOWS                     26   S
  15217.                                     
  15218.                                              
  15219.                                                                   
  15220. Courier New
  15221. winspool
  15222. \\MSPRINT32\2/1MC PRIVJ 157.56.32.242
  15223. Ne02:
  15224. \\MSPRINT32\2/1MC PRIVJ 157.56.
  15225. Letter
  15226. DRIVER=winspool
  15227. DEVICE=\\MSPRINT32\2/1MC PRIVJ 157.56.32.242
  15228. OUTPUT=Ne02:
  15229. ORIENTATION=0
  15230. PAPERSIZE=1
  15231. COPIES=1
  15232. DEFAULTSOURCE=7
  15233. DUPLEX=1
  15234. TTOPTION=3
  15235. Arial
  15236. "Company Name"
  15237. company_name
  15238. Arial
  15239. Arial
  15240. "Contact Name"
  15241. contact_name
  15242. Arial
  15243. Arial
  15244. "Phone"
  15245. phone
  15246. Arial
  15247. Arial
  15248. "asmanian"
  15249. Arial
  15250. Arial
  15251.     "raders
  15252. Arial
  15253. Arial
  15254. "Supplier Listing"
  15255.  (c) Microsoft Corporation 1995
  15256. "..\bitmaps\ttradesm.bmp"
  15257. DATE()
  15258. Arial
  15259. Arial
  15260. "Page"
  15261. _PAGENO
  15262. Arial
  15263. Arial
  15264. "Date"
  15265. Courier New
  15266. Arial
  15267. Arial
  15268. Arial
  15269. Arial
  15270. dataenvironment
  15271. LLeft = 134
  15272. Top = 244
  15273. Width = 211
  15274. Height = 168
  15275. Name = "Dataenvironment"
  15276. cursor
  15277. Left = 20
  15278. Top = 10
  15279. Width = 102
  15280. Height = 112
  15281. Alias = "supplier_listing"
  15282. Database = ..\data\tastrade.dbc
  15283. CursorSource = "supplier listing"
  15284. Name = "cursor1"
  15285. PLATFORM
  15286. UNIQUEID
  15287. TIMESTAMP
  15288. CLASS
  15289. CLASSLOC
  15290. BASECLASS
  15291. OBJNAME
  15292. PARENT
  15293. PROPERTIES
  15294. PROTECTED
  15295. METHODS
  15296. OBJCODE
  15297. RESERVED1
  15298. RESERVED2
  15299. RESERVED3
  15300. RESERVED4
  15301. RESERVED5
  15302. RESERVED6
  15303. RESERVED7
  15304. RESERVED8
  15305.  COMMENT Screen              
  15306.  WINDOWS _QWM1BPPUC 511948074
  15307.  WINDOWS _QYH118NJ6 511948074
  15308.  WINDOWS _QWM1BPPUM 511948074
  15309.  WINDOWS _QWM1BPPVQ 510498569
  15310.  WINDOWS _QWM1BPPXE 509067043
  15311.  WINDOWS _QWM1BPPYI 510498569
  15312.  WINDOWS _QXZ1FC4TJ 510498569T
  15313.  WINDOWS _QXZ1FC4UD 510498569S
  15314.  COMMENT FONTINFO            
  15315. VERSION =   3.00
  15316. dataenvironment
  15317. dataenvironment
  15318. Dataenvironment
  15319. LLeft = 128
  15320. Top = 239
  15321. Width = 383
  15322. Height = 285
  15323. Name = "Dataenvironment"
  15324. FPROCEDURE BeforeOpenTables
  15325. SET TALK OFF
  15326. SET EXCLUSIVE OFF
  15327. ENDPROC
  15328. PROCEDURE InteractiveChange
  15329. thisform.cTitle = this.Value
  15330. ENDPROC
  15331. PROCEDURE Destroy
  15332. IF USED("cTitles")
  15333.   USE IN cTitles
  15334. ENDIF
  15335. ENDPROC
  15336. commandbutton
  15337. frmGetTitle
  15338. cursor
  15339. cursor
  15340. Cursor1
  15341. Dataenvironment
  15342. Left = 20
  15343. Top = 10
  15344. Width = 138
  15345. Height = 244
  15346. Alias = "Employee"
  15347. Database = ..\data\tastrade.dbc
  15348. CursorSource = "Employee"
  15349. Name = "Cursor1"
  15350. frmGetTitle
  15351. DataSession = 2
  15352. ScaleMode = 3
  15353. Height = 135
  15354. Width = 302
  15355. DoCreate = .T.
  15356. AutoCenter = .T.
  15357. BackColor = 192,192,192
  15358. BorderStyle = 2
  15359. Caption = "Report Parameters"
  15360. ControlBox = .F.
  15361. FontSize = 8
  15362. MaxButton = .F.
  15363. MinButton = .F.
  15364. WindowType = 1
  15365. ctitle = ALL
  15366. Name = "frmGetTitle"
  15367. PROCEDURE Activate
  15368. SET MESSAGE TO thisform.Caption
  15369. ENDPROC
  15370. PROCEDURE Unload
  15371. SET MESSAGE TO
  15372. RETURN thisform.cTitle
  15373. ENDPROC
  15374. PROCEDURE Init
  15375. *-- (c) Microsoft Corporation 1995
  15376. thisform.cboTitle.ListIndex = 1
  15377. ENDPROC
  15378. THISFORM
  15379. CTITLE
  15380. Click,
  15381. !Arial, 1, 8, 5, 14, 11, 13, 3, 0
  15382. BPROCEDURE Click
  15383. thisform.cTitle = ""
  15384. RELEASE thisform
  15385. ENDPROC
  15386. frmGetTitle
  15387.     cmdCancel
  15388. cmdOK
  15389. "ctitle Stores the selected title
  15390. combobox
  15391. combobox
  15392. cboTitle
  15393. frmGetTitle
  15394. FontSize = 8
  15395. RowSourceType = 3
  15396. RowSource = "SELECT DISTINCT Employee.Title FROM Employee ORDER BY 1 INTO CURSOR cTitles"
  15397. Value = 
  15398. Enabled = .F.
  15399. Height = 21
  15400. Left = 15
  15401. Style = 2
  15402. TabIndex = 2
  15403. Top = 55
  15404. Width = 277
  15405. Name = "cboTitle"
  15406. THISFORM
  15407. Click,
  15408. uTop = 95
  15409. Left = 165
  15410. Height = 26
  15411. Width = 81
  15412. Cancel = .T.
  15413. Caption = "\<Cancel"
  15414. TabIndex = 4
  15415. Name = "cmdCancel"
  15416. ..\libs\tsbase.vcx
  15417. commandbutton
  15418. ..\libs\tsbase.vcx
  15419. tscommandbutton
  15420. .PROCEDURE Click
  15421. RELEASE thisform
  15422. ENDPROC
  15423. label
  15424. label
  15425. label1
  15426. frmGetTitle
  15427. FontSize = 8
  15428. BackStyle = 0
  15429. Caption = "What employee title would you like to print?"
  15430. Height = 16
  15431. Left = 15
  15432. Top = 10
  15433. Width = 242
  15434. AutoSize = .T.
  15435. TabIndex = 3
  15436. Name = "label1"
  15437. checkbox
  15438. checkbox
  15439. chkAllTitles
  15440. frmGetTitle
  15441. Top = 32
  15442. Left = 15
  15443. Height = 17
  15444. Width = 85
  15445. FontSize = 8
  15446. BackStyle = 0
  15447. Caption = "All Titles"
  15448. Value = .T.
  15449. TabIndex = 1
  15450. Name = "chkAllTitles"
  15451. VALUE
  15452. THISFORM
  15453. CBOTITLE
  15454. ENABLED
  15455. CTITLE
  15456. InteractiveChange,
  15457. mTop = 95
  15458. Left = 55
  15459. Height = 26
  15460. Width = 81
  15461. Caption = "\<OK"
  15462. Default = .T.
  15463. TabIndex = 3
  15464. Name = "cmdOK"
  15465. tscommandbutton
  15466. PROCEDURE InteractiveChange
  15467. IF this.Value
  15468.   thisform.cboTitle.Enabled = .F.
  15469.   thisform.cTitle = "ALL"
  15470.   thisform.cboTitle.Enabled = .T.
  15471.   thisform.cTitle = thisform.cboTitle.Value
  15472. ENDIF
  15473. ENDPROC
  15474. THISFORM
  15475. CTITLE
  15476. VALUE%
  15477. cTitles
  15478. CTITLES
  15479. InteractiveChange,
  15480. Destroye
  15481. THISFORM
  15482. CAPTION
  15483. THISFORM
  15484. CTITLE
  15485. THISFORM
  15486. CBOTITLE    
  15487. LISTINDEX
  15488. Activate,
  15489. UnloadT
  15490. BeforeOpenTables,
  15491. wwwwp
  15492. wwwwp
  15493. 99999990
  15494. y9911999
  15495. 991999
  15496. PLATFORM
  15497. UNIQUEID
  15498. TIMESTAMP
  15499. CLASS
  15500. CLASSLOC
  15501. BASECLASS
  15502. OBJNAME
  15503. PARENT
  15504. PROPERTIES
  15505. PROTECTED
  15506. METHODS
  15507. OBJCODE
  15508. RESERVED1
  15509. RESERVED2
  15510. RESERVED3
  15511. RESERVED4
  15512. RESERVED5
  15513. RESERVED6
  15514. RESERVED7
  15515. RESERVED8
  15516.  COMMENT Screen              
  15517.  WINDOWS _QWP0RWI9I 505964580
  15518.  WINDOWS _QWP0RWI9S 511477495
  15519.  WINDOWS _QWP0X7TK2 505969594
  15520.  WINDOWS _QWP0RWIAM 510161990
  15521.  WINDOWS _QWP0RWIBG 510161990W    
  15522.  WINDOWS _QWP0X7TNY 505969594
  15523.  WINDOWS _QY30L2U7I 510161990#    
  15524.  COMMENT FONTINFO            
  15525. VERSION =   3.00
  15526. dataenvironment
  15527. dataenvironment
  15528. Dataenvironment
  15529. Name = "Dataenvironment"
  15530. Form1
  15531. ScaleMode = 3
  15532. Height = 157
  15533. Width = 261
  15534. DoCreate = .T.
  15535. AutoCenter = .T.
  15536. BackColor = 192,192,192
  15537. BorderStyle = 2
  15538. Caption = "Report Parameters"
  15539. MaxButton = .F.
  15540. MinButton = .F.
  15541. WindowType = 1
  15542. ddateto = 
  15543. ddatefrom = 
  15544. lretval = .T.
  15545. Name = "Form1"
  15546. PROCEDURE Activate
  15547. SET MESSAGE TO thisform.Caption
  15548. ENDPROC
  15549. PROCEDURE Unload
  15550. *-- (c) Microsoft Corporation 1995
  15551. SET MESSAGE TO
  15552. ENDPROC
  15553. dArial, 1, 10, 6, 16, 13, 15, 3, 0
  15554. Arial, 1, 8, 5, 14, 11, 13, 3, 0
  15555. Arial, 0, 8, 5, 14, 11, 13, 3, 0
  15556. CPROCEDURE Click
  15557. thisform.lRetVal = .F.
  15558. thisform.Hide()
  15559. ENDPROC
  15560.     cmdCancel
  15561. commandbutton
  15562. Form1
  15563. Form1
  15564. ddateto Holds the ending date for the report.
  15565. ddatefrom Holds the beginning date for the report.
  15566. lretval Returns .T. if OK was clicked, otherwise returns .F.
  15567.     ts3dshape
  15568. ..\libs\tsbase.vcx
  15569. shape
  15570. Ts3dshape1
  15571. Form1
  15572. DHeight = 91
  15573. Left = 30
  15574. Top = 15
  15575. Width = 206
  15576. Name = "Ts3dshape1"
  15577. tscommandbutton
  15578. ..\libs\tsbase.vcx
  15579. commandbutton
  15580. cmdOK
  15581. Form1
  15582. |Top = 120
  15583. Left = 40
  15584. Height = 26
  15585. Width = 76
  15586. Cancel = .T.
  15587. Caption = "\<OK"
  15588. Default = .T.
  15589. TabIndex = 2
  15590. Name = "cmdOK"
  15591. PROCEDURE Click
  15592. thisform.dDateFrom = thisform.ctlDateRange.GetDateFrom()
  15593. thisform.dDateTo = thisform.ctlDateRange.GetDateTo()
  15594. thisform.Hide()
  15595. ENDPROC
  15596. THISFORM
  15597. LRETVAL
  15598. Click,
  15599. ..\libs\tsbase.vcx
  15600. tscommandbutton
  15601. Tslabel1
  15602. label
  15603.     daterange
  15604. ..\libs\tsgen.vcx
  15605. control
  15606. ctlDateRange
  15607. Form1
  15608. Top = 30
  15609. Left = 45
  15610. TabIndex = 1
  15611. Name = "ctlDateRange"
  15612. txtdatefrom.Name = "txtdatefrom"
  15613. txtdateto.Name = "txtdateto"
  15614. tslabel1.TabIndex = 3
  15615. tslabel1.Name = "tslabel1"
  15616. tslabel2.TabIndex = 4
  15617. tslabel2.Name = "tslabel2"
  15618. tslabel
  15619. ..\libs\tsbase.vcx
  15620. Alignment = 0
  15621. BackColor = 192,192,192
  15622. BackStyle = 1
  15623. Caption = "Order date range:"
  15624. Height = 16
  15625. Left = 40
  15626. Top = 10
  15627. Width = 97
  15628. AutoSize = .T.
  15629. TabIndex = 2
  15630. Name = "Tslabel1"
  15631. hTop = 120
  15632. Left = 150
  15633. Height = 26
  15634. Width = 76
  15635. Caption = "\<Cancel"
  15636. TabIndex = 3
  15637. Name = "cmdCancel"
  15638. THISFORM    
  15639. DDATEFROM
  15640. CTLDATERANGE
  15641. GETDATEFROM
  15642. DDATETO    
  15643. GETDATETO
  15644. Click,
  15645. THISFORM
  15646. CAPTION    
  15647. Activate,
  15648. UnloadT
  15649. PLATFORM
  15650. UNIQUEID
  15651. TIMESTAMP
  15652. CLASS
  15653. CLASSLOC
  15654. BASECLASS
  15655. OBJNAME
  15656. PARENT
  15657. PROPERTIES
  15658. PROTECTED
  15659. METHODS
  15660. OBJCODE
  15661. RESERVED1
  15662. RESERVED2
  15663. RESERVED3
  15664. RESERVED4
  15665. RESERVED5
  15666. RESERVED6
  15667. RESERVED7
  15668. RESERVED8
  15669.  COMMENT Screen              
  15670.  WINDOWS _R2Y12ZOJK 5215071845
  15671.  WINDOWS _R2Y12ZP7H 548054081    
  15672.  WINDOWS _QXA0UGTHC 548054081
  15673.  COMMENT RESERVED            
  15674. VERSION =   3.00
  15675. ..\include\tastrade.h
  15676. dataenvironment
  15677. dataenvironment
  15678. Dataenvironment
  15679. oLeft = 100
  15680. Top = 196
  15681. Width = 600
  15682. Height = 250
  15683. InitialSelectedAlias = "behindsc"
  15684. Name = "Dataenvironment"
  15685. FPROCEDURE BeforeOpenTables
  15686. SET TALK OFF
  15687. SET EXCLUSIVE OFF
  15688. ENDPROC
  15689. ..\include\tastrade.hr
  15690. ..\..\..\dev\foxpro.hz
  15691. ..\include\strings.h
  15692. BArial, 0, 8, 5, 14, 11, 20, 3, 0
  15693. Arial, 1, 8, 5, 14, 11, 14, 3, 0
  15694. frmcasestudy
  15695. cursor
  15696. cursor
  15697. Cursor1
  15698. Dataenvironment
  15699. yLeft = 20
  15700. Top = 10
  15701. Width = 90
  15702. Height = 90
  15703. Alias = "behindsc"
  15704. CursorSource = ..\data\behindsc.dbf
  15705. Name = "Cursor1"
  15706. tstextform
  15707. ..\libs\tsbase.vcx
  15708. DataSession = 2
  15709. ScaleMode = 3
  15710. Top = 17
  15711. Left = 25
  15712. Height = 341
  15713. Width = 578
  15714. DoCreate = .T.
  15715. BufferMode = 0
  15716. AutoCenter = .F.
  15717. BorderStyle = 3
  15718. Caption = "Case Study"
  15719. MinHeight = 200
  15720. MinWidth = 400
  15721. WindowType = 1
  15722. BackColor = 192,192,192
  15723. lallowedits = .F.
  15724. ctoolbar = 
  15725. lallownew = .F.
  15726. lallowdelete = .F.
  15727. Name = "frmcasestudy"
  15728. edtText.BackColor = 255,255,255
  15729. edtText.ControlSource = "behindsc.desc"
  15730. edtText.Name = "edtText"
  15731. cmdClose.Name = "cmdClose"
  15732. cmdPrint.TabIndex = 3
  15733. cmdPrint.Name = "cmdPrint"
  15734. JPROCEDURE Load
  15735. *-- (c) Microsoft Corporation 1995
  15736. =SEEK(SEEKVALUE_LOC, ALIAS(), "screen_id")    &&"*Case Study"
  15737. ENDPROC
  15738. PROCEDURE cmdPrint.Click
  15739. LOCAL lnAnswer
  15740. lnAnswer = MESSAGEBOX(VIEWCSDTYPRINT_LOC, ;
  15741.                       MB_ICONQUESTION + MB_YESNO, ;
  15742.                       TASTRADE_LOC)
  15743. IF lnAnswer = IDYES
  15744.   thisform.WaitMode(.T.)
  15745.   IF PRINTSTATUS()
  15746.     WAIT WINDOW NOWAIT PRINTING_LOC
  15747.     REPORT FORM casestdy TO PRINTER NOCONSOLE
  15748.   ELSE
  15749.     =MESSAGEBOX(PRINTERNOTREADY_LOC, MB_ICONEXCLAMATION)
  15750.   ENDIF
  15751.   WAIT CLEAR
  15752.   thisform.WaitMode(.F.)
  15753. ENDIF
  15754. ENDPROC
  15755. *Case StudyC
  15756. screen_id
  15757. This report may be lengthy. Do you want to continue?
  15758. Tasmanian Traders
  15759. Printing ...
  15760. casestdy(!9
  15761. Printer not ready.
  15762. LNANSWER
  15763. THISFORM
  15764. WAITMODE
  15765. CASESTDY
  15766. Load,
  15767. cmdPrint.ClickW
  15768. BeforeOpenTables,
  15769. \<File
  15770. ALT+F
  15771. ALT+F
  15772. \<Help
  15773. ALT+H
  15774. ALT+H
  15775. Return to Visual Fo\<xPro
  15776. _screen.activeform.Close()
  15777. \<Contents
  15778. Displays Help table of contents
  15779. \<Search for Help on...
  15780. Searches for Help topics by keyword
  15781. \<About Tasmanian Traders...
  15782. Displays information about this application and the system configuration
  15783. DO _rcn0i4g3o  IN LOCFILE("XPIECES\TASTRADE\MENUS\INTRO" ,"MPX;MPR|FXP;PRG" ,"WHERE is INTRO?")
  15784. *-- (c) Microsoft Corporation 1995
  15785. DO _rcn0i4g3y  IN LOCFILE("XPIECES\TASTRADE\MENUS\INTRO" ,"MPX;MPR|FXP;PRG" ,"WHERE is INTRO?")
  15786. libs\about.vcx
  15787. AboutBox
  15788. Tasmanian Traders
  15789. Copyright 1994 Microsoft Corporation
  15790. All rights reserved
  15791. BITMAPS\SMSWIRLT.BMP
  15792. about.vcx
  15793. LOABOUTBOX
  15794. ABOUT
  15795. AddNew
  15796. _screen.activeform.
  15797. &lcCmd
  15798. LCCMD
  15799. _rcn0i4g3o
  15800. _rcn0i4g3yu
  15801. PLATFORM
  15802. UNIQUEID
  15803. TIMESTAMP
  15804. CLASS
  15805. CLASSLOC
  15806. BASECLASS
  15807. OBJNAME
  15808. PARENT
  15809. PROPERTIES
  15810. PROTECTED
  15811. METHODS
  15812. OBJCODE
  15813. RESERVED1
  15814. RESERVED2
  15815. RESERVED3
  15816. RESERVED4
  15817. RESERVED5
  15818. RESERVED6
  15819. RESERVED7
  15820. RESERVED8
  15821.  COMMENT Class               
  15822.  WINDOWS _R470U6ADM 553350584
  15823.  COMMENT RESERVED            
  15824. VERSION =  0.029
  15825. ..\include\tastrade.h
  15826. ..\..\..\dev\foxpro.h
  15827. ..\include\strings.h"
  15828. tastrade
  15829. ..\include\tastrade.h
  15830. Iainstances
  15831. cuserlevel
  15832. cemployeeid
  15833. getstartupaction
  15834. cmainwindcaption
  15835. Pixels
  15836. Tastrade Application Class
  15837. Class
  15838. application
  15839. tastrade
  15840. Ucuserlevel The user level of the currently logged in user.
  15841. cemployeeid Holds the ID of the employee who is currently logged in. 
  15842. *getstartupaction Gets the startup action to take when user first logs into the system.
  15843. *getuserlevel Returns the current user level.
  15844. *getemployeeid Returns the employee ID of the employee who is logged on.
  15845. user_level
  15846. user_level
  15847. DESCRIPTIO~
  15848. LNOLDAREA
  15849. LCACTION
  15850. LLCLOSEWHENDONE
  15851. USER_LEVEL
  15852. STARTUP_ACTION
  15853. CUSERLEVEL
  15854. DESCRIPTION
  15855. CUSERLEVEL
  15856. CEMPLOYEEID
  15857. loginpicture
  15858. LCEMPLOYEEID
  15859. LCUSERLEVEL
  15860. CEMPLOYEEID
  15861. CUSERLEVEL
  15862. LCLOGINSTRING
  15863. DOFORMRETVAL
  15864. &lcAction
  15865. LCACTION
  15866. THIS    
  15867. CMAINMENU
  15868. GETSTARTUPACTION
  15869. CLEANUP
  15870. CAPTION
  15871. COLDWINDCAPTION
  15872. SHOWTOOLBARS
  15873. LISCLEANf
  15874. m.gTTradeb
  15875. This class cannot be used outside of the Tastrade application.
  15876. Tasmanian Traders
  15877. menus\intro.mpr
  15878. Defaults
  15879. ShowIntroForm
  15880. TASTRADE.INI
  15881. introform
  15882. APPLICATIONS DEVELOPER
  15883. LLRETVAL
  15884. LNRETVAL
  15885. LCUSERLEVEL
  15886. LCBUFFER
  15887. LLSHOWINTRO
  15888. LCLOGINSTRING
  15889. GTTRADE
  15890. CMAINWINDCAPTION
  15891. APPLICATION
  15892. MENUS
  15893. GETPRIVSTR
  15894. DOFORMRETVAL
  15895. LOGIN
  15896. CEMPLOYEEID
  15897. CUSERLEVEL
  15898. CLEANUP
  15899. getstartupaction,
  15900. getuserlevelJ
  15901. getemployeeido
  15902. login
  15903. APTION
  15904. APPLICATION
  15905. ePROCEDURE getstartupaction
  15906. *-- Returns the action to take based on the user level
  15907. *-- The action is just a Visual FoxPro command stored as a character
  15908. *-- string in the startup_action field of the user_level
  15909. *-- table.
  15910. LOCAL lnOldArea, ;
  15911.       lcAction, ;
  15912.       llCloseWhenDone
  15913. lnOldArea = SELECT()
  15914. IF !USED("user_level")
  15915.   USE user_level IN 0
  15916.   llCloseWhenDone = .T.
  15917. ENDIF
  15918. SELECT user_level
  15919. lcAction = LOOKUP(startup_action, ;
  15920.                 UPPER(this.cUserLevel), ;
  15921.                 description, ;
  15922.                 "DESCRIPTIO")
  15923. IF llCloseWhenDone
  15924.   USE IN user_level
  15925. ENDIF
  15926. SELECT (lnOldArea)
  15927. RETURN lcAction
  15928. ENDPROC
  15929. PROCEDURE getuserlevel
  15930. RETURN this.cUserLevel
  15931. ENDPROC
  15932. PROCEDURE getemployeeid
  15933. RETURN this.cEmployeeID
  15934. ENDPROC
  15935. PROCEDURE login
  15936. LOCAL lcEmployeeID, ;
  15937.       lcUserLevel
  15938. *-- Save the current values of these vars in case user is logging in
  15939. *-- again but decides to cancel
  15940. lcEmployeeID = this.cEmployeeID
  15941. lcUserLevel = this.cUserLevel
  15942. lcLoginString = this.DoFormRetVal("loginpicture")
  15943. this.cEmployeeID = LEFT(lcLoginString, AT(",", lcLoginString) - 1)
  15944. this.cUserLevel = SUBSTR(lcLoginString, AT(",", lcLoginString) + 1)
  15945. IF EMPTY(this.cUserLevel)
  15946.   this.cEmployeeID = lcEmployeeID 
  15947.   this.cUserLevel = lcUserLevel
  15948. ENDIF
  15949. *-- The user level is what determines if the user successfully logged
  15950. *-- in or not, and determines what menu pads are shown.
  15951. RETURN !EMPTY(this.cUserLevel)
  15952. ENDPROC
  15953. PROCEDURE do
  15954. LOCAL lcAction
  15955. *-- Put up main menu
  15956. DO (this.cMainMenu)
  15957. IF !DEBUGMODE
  15958.   lcAction = this.GetStartupAction()
  15959.   IF !EMPTY(lcAction)
  15960.     &lcAction
  15961.   ENDIF
  15962. ENDIF
  15963. DO WHILE .T.
  15964.     *-- Start the event loop
  15965.     READ EVENTS
  15966.     *- We do cleanup here, instead of in the menu code
  15967.     *- because windows cannot be released from the menu code if
  15968.     *- a grid has the focus.
  15969.     IF THIS.Cleanup()
  15970.         _screen.caption = this.cOldWindCaption
  15971.         POP MENU _MSYSMENU TO MASTER
  15972.         this.ShowToolBars()
  15973.         this.lIsClean = .T.
  15974.         EXIT
  15975.     ENDIF
  15976. ENDDO
  15977. ENDPROC
  15978. PROCEDURE Init
  15979. *-- (c) Microsoft Corporation 1995
  15980. LOCAL llRetVal, ;
  15981.       lnRetVal, ;
  15982.       lcUserLevel, ;
  15983.       lcBuffer, ;
  15984.       llShowIntro, ;
  15985.       lcLoginString
  15986. *- this class can't be used independent of the application
  15987. IF TYPE("m.gTTrade") # 'L' OR !m.gTTrade
  15988.     =MESSAGEBOX(CLASSBROWERR_LOC)
  15989.     RETURN .F.
  15990. ENDIF
  15991. *-- Set the caption
  15992. This.cMainWindCaption = TASTRADE_LOC
  15993. *-- Initialize the base class
  15994. llRetVal = Application::Init()
  15995. IF llRetVal
  15996.   DO menus\intro.mpr
  15997.   *-- Put up intro form
  15998.   lcBuffer = " " + CHR(0)
  15999.   llShowIntro = .T.
  16000.   IF GetPrivStr("Defaults", "ShowIntroForm", "", @lcBuffer, LEN(lcBuffer), CURDIR() + INIFILE) > 0
  16001.     llShowIntro = (VAL(lcBuffer) = 1)
  16002.   ENDIF
  16003.   lnRetVal = IIF(llShowIntro, this.DoFormRetVal("introform"), 1)
  16004.   DO CASE 
  16005.     CASE lnRetVal = 1      && Continue
  16006.       IF !DEBUGMODE
  16007.         llRetVal = this.Login()
  16008.       ELSE
  16009.         this.cEmployeeID = ""
  16010.         this.cUserLevel = USER_APPDEV_LOC
  16011.       ENDIF
  16012.     CASE lnRetVal = 2      && Exit
  16013.       llRetVal = .F.
  16014.   ENDCASE
  16015. ENDIF
  16016. IF !llRetVal
  16017.   this.CleanUp()
  16018. ENDIF
  16019. RETURN llRetVal
  16020. ENDPROC
  16021. custom
  16022.     tsgen.vcx
  16023. fHeight = 31
  16024. Width = 81
  16025. cuserlevel = 
  16026. cemployeeid = 
  16027. cdatabase = DATA\TASTRADE
  16028. Name = "tastrade"
  16029. PLATFORM
  16030. UNIQUEID
  16031. TIMESTAMP
  16032. CLASS
  16033. CLASSLOC
  16034. BASECLASS
  16035. OBJNAME
  16036. PARENT
  16037. PROPERTIES
  16038. PROTECTED
  16039. METHODS
  16040. OBJCODE
  16041. RESERVED1
  16042. RESERVED2
  16043. RESERVED3
  16044. RESERVED4
  16045. RESERVED5
  16046. RESERVED6
  16047. RESERVED7
  16048. RESERVED8
  16049.  COMMENT Screen              
  16050.  WINDOWS _QZQ0LPDOW 5134952835
  16051.  WINDOWS _QZQ0LPDOX 513495283
  16052.  WINDOWS _QY51EZQSC 513495283
  16053.  WINDOWS _QY51EZQU0 511578371g
  16054.  WINDOWS _QY51EZRMY 512001304
  16055.  WINDOWS _QY51EZRO2 510231522
  16056.  WINDOWS _QYD0ZEICJ 513495284
  16057.  COMMENT FONTINFO            
  16058. VERSION =   3.00
  16059. ..\include\tastrade.h
  16060. dataenvironment
  16061. dataenvironment
  16062. Dataenvironment
  16063. oLeft = 133
  16064. Top = 244
  16065. Width = 328
  16066. Height = 323
  16067. InitialSelectedAlias = "Customer"
  16068. Name = "Dataenvironment"
  16069. cursor
  16070. cursor
  16071. Cursor1
  16072. Dataenvironment
  16073. Left = 20
  16074. Top = 10
  16075. Width = 122
  16076. Height = 264
  16077. Alias = "Customer"
  16078. Database = ..\data\tastrade.dbc
  16079. CursorSource = "Customer"
  16080. Name = "Cursor1"
  16081. tsbaseform
  16082. ..\libs\tsbase.vcx
  16083. frmAddCustomer
  16084. DataSession = 2
  16085. Top = 4
  16086. Left = 15
  16087. Height = 354
  16088. Width = 599
  16089. DoCreate = .T.
  16090. AutoCenter = .F.
  16091. BorderStyle = 2
  16092. Caption = "Add Customer"
  16093. WindowType = 1
  16094. lretval = .T.
  16095. ctoolbar = 
  16096. lallownew = .F.
  16097. Name = "frmAddCustomer"
  16098. tscommandbutton
  16099. ..\libs\tsbase.vcx
  16100.     cmdCancel
  16101. frmAddCustomer
  16102. BArial, 1, 8, 5, 14, 11, 14, 3, 0
  16103. Arial, 0, 8, 5, 14, 11, 20, 3, 0
  16104. vTop = 325
  16105. Left = 410
  16106. Height = 26
  16107. Width = 116
  16108. Caption = "\<Behind the Scenes"
  16109. TabIndex = 4
  16110. Name = "cmdBehindSC"
  16111. ..\libs\tsbase.vcx
  16112. commandbutton
  16113. customerinfo
  16114. Klretval Return value for this form. If OK is selected, lRetVal will = .T.
  16115. cmdBehindSC
  16116. frmAddCustomer
  16117. frmAddCustomer
  16118. commandbutton
  16119. cmdOK
  16120. oTop = 325
  16121. Left = 80
  16122. Height = 26
  16123. Width = 116
  16124. Caption = "\<OK"
  16125. Default = .T.
  16126. TabIndex = 2
  16127. Name = "cmdOK"
  16128. commandbutton
  16129. ..\libs\tsbase.vcx
  16130. tscommandbutton
  16131. frmAddCustomer
  16132. cntCustomerInfo
  16133.     container
  16134. ..\libs\tsgen.vcx
  16135. PROCEDURE Click
  16136. llError = !TABLEUPDATE(.T.)
  16137. IF llError
  16138.   IF AERROR(laError) > 0
  16139.     thisform.Error(laError[1])
  16140.   ENDIF
  16141.   WAIT WINDOW NOWAIT INFSAVED_LOC
  16142.   thisform.Release()
  16143. ENDIF
  16144. ENDPROC
  16145. tscommandbutton
  16146. TPROCEDURE Click
  16147. thisform.lRetVal = .F.
  16148. =TABLEREVERT()
  16149. RELEASE thisform
  16150. ENDPROC
  16151. wTop = 325
  16152. Left = 245
  16153. Height = 26
  16154. Width = 116
  16155. Cancel = .T.
  16156. Caption = "\<Cancel"
  16157. TabIndex = 3
  16158. Name = "cmdCancel"
  16159. PROCEDURE Click
  16160. *-- Since this form is modal, we need to make
  16161. *-- 'Behind the Scenes' modal as well
  16162. DO FORM behindsc WITH .T.
  16163. SELECT customer
  16164. this.Enabled = .F.
  16165. ENDPROC
  16166. Top = -5
  16167. Left = 5
  16168. Width = 599
  16169. Height = 321
  16170. TabIndex = 1
  16171. Name = "cntCustomerInfo"
  16172. txtCompany_Name.TabIndex = 2
  16173. txtCompany_Name.Name = "txtCompany_Name"
  16174. txtContact_Name.TabIndex = 3
  16175. txtContact_Name.Name = "txtContact_Name"
  16176. txtContact_Title.TabIndex = 4
  16177. txtContact_Title.Name = "txtContact_Title"
  16178. txtAddress.TabIndex = 5
  16179. txtAddress.Name = "txtAddress"
  16180. txtCity.TabIndex = 6
  16181. txtCity.Name = "txtCity"
  16182. txtRegion.TabIndex = 7
  16183. txtRegion.Name = "txtRegion"
  16184. txtPostal_Code.TabIndex = 8
  16185. txtPostal_Code.Name = "txtPostal_Code"
  16186. txtCountry.TabIndex = 9
  16187. txtCountry.Name = "txtCountry"
  16188. txtPhone.TabIndex = 10
  16189. txtPhone.Name = "txtPhone"
  16190. Tslabel12.TabIndex = 15
  16191. Tslabel12.Name = "Tslabel12"
  16192. Tslabel13.TabIndex = 16
  16193. Tslabel13.Name = "Tslabel13"
  16194. Tslabel14.TabIndex = 17
  16195. Tslabel14.Name = "Tslabel14"
  16196. Tslabel15.TabIndex = 18
  16197. Tslabel15.Name = "Tslabel15"
  16198. Tslabel16.TabIndex = 21
  16199. Tslabel16.Name = "Tslabel16"
  16200. Tslabel17.TabIndex = 23
  16201. Tslabel17.Name = "Tslabel17"
  16202. Tslabel18.TabIndex = 24
  16203. Tslabel18.Name = "Tslabel18"
  16204. Tslabel19.TabIndex = 25
  16205. Tslabel19.Name = "Tslabel19"
  16206. Tslabel20.TabIndex = 26
  16207. Tslabel20.Name = "Tslabel20"
  16208. Tslabel21.TabIndex = 27
  16209. Tslabel21.Name = "Tslabel21"
  16210. Tslabel1.TabIndex = 28
  16211. Tslabel1.Name = "Tslabel1"
  16212. txtCustomer_ID.TabIndex = 1
  16213. txtCustomer_ID.Name = "txtCustomer_ID"
  16214. Ts3dshape1.Name = "Ts3dshape1"
  16215. txtMax_Ord_Amt.TabIndex = 12
  16216. txtMax_Ord_Amt.Name = "txtMax_Ord_Amt"
  16217. txtMin_Ord_Amt.TabIndex = 13
  16218. txtMin_Ord_Amt.Name = "txtMin_Ord_Amt"
  16219. txtDiscount.TabIndex = 14
  16220. txtDiscount.Name = "txtDiscount"
  16221. lblMaximum.TabIndex = 19
  16222. lblMaximum.Name = "lblMaximum"
  16223. Tslabel2.TabIndex = 20
  16224. Tslabel2.Name = "Tslabel2"
  16225. Tslabel3.TabIndex = 22
  16226. Tslabel3.Name = "Tslabel3"
  16227. txtFax.TabIndex = 11
  16228. txtFax.Name = "txtFax"
  16229. PROCEDURE Activate
  16230. *-- Disable command button if Behind the Scenes is
  16231. *-- already active
  16232. thisform.cmdBehindSC.Enabled = !WEXIST("frmBehindSC")
  16233. ENDPROC
  16234. PROCEDURE Destroy
  16235. tsBaseForm::Destroy()
  16236. IF thisform.ReleaseType = 1    && Form closed from close box
  16237.   thisform.lRetVal = .F.
  16238.   =TABLEREVERT()
  16239. ENDIF
  16240. ENDPROC
  16241. PROCEDURE Unload
  16242. RETURN thisform.lRetVal
  16243. ENDPROC
  16244. PROCEDURE Init
  16245. *-- (c) Microsoft Corporation 1995
  16246. LPARAMETERS tcCompanyName
  16247. tsBaseForm::Init()
  16248. APPEND BLANK
  16249. IF !EMPTY(tcCompanyName)
  16250.   thisform.cntCustomerInfo.txtCompany_Name.Value = tcCompanyName
  16251. ENDIF
  16252. ENDPROC
  16253. PROCEDURE Error
  16254. LPARAMETERS nError, cMethod, nLine
  16255. DO CASE
  16256.   CASE nError = 1884    && Primary key violated
  16257.     thisform.cntCustomerInfo.Error(nError, cMethod, nLine)
  16258.   CASE nError = 1582    && Field rule violated
  16259.     thisform.cntCustomerInfo.Error(nError, cMethod, nLine)
  16260.   OTHERWISE
  16261.     tsBaseForm::Error(nError, cMethod, nLine)
  16262. ENDCASE
  16263. ENDPROC
  16264. ..\include\tastrade.hb
  16265. ..\..\..\dev\foxpro.hj
  16266. ..\include\strings.hr
  16267. behindsc
  16268. BEHINDSC
  16269. CUSTOMER
  16270. ENABLED
  16271. Click,
  16272. THISFORM
  16273. LRETVAL
  16274. Click,
  16275. Information saved.
  16276. LLERROR
  16277. LAERROR
  16278. THISFORM
  16279. ERROR
  16280. RELEASE
  16281. Click,
  16282. frmBehindSC
  16283. THISFORM
  16284. CMDBEHINDSC
  16285. ENABLED@
  16286. TSBASEFORM
  16287. DESTROY
  16288. THISFORM
  16289. RELEASETYPE
  16290. LRETVAL
  16291. THISFORM
  16292. LRETVALG
  16293. TCCOMPANYNAME
  16294. TSBASEFORM
  16295. THISFORM
  16296. CNTCUSTOMERINFO
  16297. TXTCOMPANY_NAME
  16298. VALUE
  16299. NERROR
  16300. CMETHOD
  16301. NLINE
  16302. THISFORM
  16303. CNTCUSTOMERINFO
  16304. ERROR
  16305. TSBASEFORM
  16306. Activate,
  16307. Destroyt
  16308. Unload
  16309. Error
  16310. PLATFORM
  16311. UNIQUEID
  16312. TIMESTAMP
  16313. CLASS
  16314. CLASSLOC
  16315. BASECLASS
  16316. OBJNAME
  16317. PARENT
  16318. PROPERTIES
  16319. PROTECTED
  16320. METHODS
  16321. OBJCODE
  16322. RESERVED1
  16323. RESERVED2
  16324. RESERVED3
  16325. RESERVED4
  16326. RESERVED5
  16327. RESERVED6
  16328. RESERVED7
  16329. RESERVED8
  16330.  COMMENT Screen              
  16331.  WINDOWS _QZ90VFMP8 5123903975
  16332.  WINDOWS _QZ90VFNB8 512390400
  16333.  WINDOWS _QY70Z0YZC 512390400
  16334.  WINDOWS _QY70Z0Z10 511215914
  16335.  WINDOWS _QY70Z0Z24 510496793
  16336.  WINDOWS _QY70Z0Z3I 510219979
  16337.  WINDOWS _QY70Z0Z4C 510219979
  16338.  WINDOWS _QY70Z0Z57 510219979D    
  16339.  WINDOWS _QY70Z0Z61 512389992S    
  16340.  WINDOWS _QY70Z0Z7F 510219979t
  16341.  WINDOWS _QY70Z0Z89 512390147
  16342.  WINDOWS _QY70ZX872 512389992
  16343.  WINDOWS _QY70ZX87W 512389993z
  16344.  WINDOWS _QYC0NC3OZ 510219980
  16345.  WINDOWS _QYC0NC3Q3 510219980
  16346.  WINDOWS _QYD0LNVS4 512389993
  16347.  COMMENT FONTINFO            
  16348. VERSION =   3.00
  16349. ..\include\tastrade.h
  16350. dataenvironment
  16351. dataenvironment
  16352. Dataenvironment
  16353. oLeft = 138
  16354. Top = 347
  16355. Width = 329
  16356. Height = 214
  16357. InitialSelectedAlias = "Employee"
  16358. Name = "Dataenvironment"
  16359. HPROCEDURE BeforeOpenTables
  16360. SET TALK OFF
  16361. SET EXCLUSIVE OFF
  16362. ENDPROC
  16363. frmChangePassword
  16364. ..\libs\tsbase.vcx
  16365. tslabel
  16366. gCaption = "User Name"
  16367. Height = 22
  16368. Left = 16
  16369. Top = 15
  16370. Width = 141
  16371. TabIndex = 4
  16372. Name = "Tslabel4"
  16373. label
  16374. cursor
  16375. cursor
  16376. Cursor1
  16377. Dataenvironment
  16378. Left = 20
  16379. Top = 10
  16380. Width = 134
  16381. Height = 163
  16382. Alias = "Employee"
  16383. Order = "employee_i"
  16384. Database = ..\data\tastrade.dbc
  16385. CursorSource = "Employee"
  16386. Name = "Cursor1"
  16387. tsbaseform
  16388. ..\libs\tsbase.vcx
  16389. frmChangePassword
  16390. DataSession = 2
  16391. Height = 168
  16392. Width = 426
  16393. DoCreate = .T.
  16394. BorderStyle = 2
  16395. Caption = "Change Password"
  16396. ControlBox = .F.
  16397. WindowType = 1
  16398. lallowedits = .F.
  16399. lallownew = .F.
  16400. ctoolbar = 
  16401. Name = "frmChangePassword"
  16402. ..\include\tastrade.h
  16403. ..\..\..\dev\foxpro.h
  16404. ..\include\strings.h"
  16405. behindsc
  16406. BEHINDSC
  16407. ENABLED
  16408. Click,
  16409. THISFORM
  16410. Click,
  16411. qControlSource = ""
  16412. Enabled = .F.
  16413. Left = 165
  16414. TabIndex = 3
  16415. Top = 135
  16416. PasswordChar = "*"
  16417. Name = "txtConfirm"
  16418. ..\libs\tsbase.vcx
  16419. frmChangePassword
  16420. Tslabel2
  16421. frmChangePassword
  16422. Tslabel3
  16423. label
  16424. tslabel
  16425.     tstextbox
  16426. ControlSource = ""
  16427. Enabled = .F.
  16428. Height = 22
  16429. Left = 165
  16430. TabIndex = 4
  16431. Top = 15
  16432. Width = 241
  16433. PasswordChar = ""
  16434. Name = "txtUserName"
  16435. textbox
  16436. ..\libs\tsbase.vcx
  16437. frmChangePassword
  16438. txtConfirm
  16439. PROCEDURE Click
  16440. IF thisform.Validate()
  16441.   REPLACE employee.password WITH thisform.txtConfirm.Value
  16442.   =TABLEUPDATE()
  16443.   RELEASE thisform
  16444. ENDIF
  16445. ENDPROC
  16446. jControlSource = "Employee.password"
  16447. Enabled = .F.
  16448. Left = 165
  16449. TabIndex = 7
  16450. Top = 75
  16451. Name = "txtHint"
  16452. <PROCEDURE Click
  16453. =TABLEREVERT()
  16454. RELEASE thisform
  16455. ENDPROC
  16456. vTop = 85
  16457. Left = 285
  16458. Height = 26
  16459. Width = 120
  16460. Cancel = .T.
  16461. Caption = "\<Cancel"
  16462. TabIndex = 6
  16463. Name = "cmdCancel"
  16464. frmChangePassword
  16465.     cmdCancel
  16466. commandbutton
  16467. ..\libs\tsbase.vcx
  16468. tscommandbutton
  16469.     tstextbox
  16470. ..\libs\tsbase.vcx
  16471. textbox
  16472. txtHint
  16473. frmChangePassword
  16474. tslabel
  16475. ..\libs\tsbase.vcx
  16476. label
  16477. Tslabel5
  16478. frmChangePassword
  16479. bCaption = "Hint"
  16480. Height = 22
  16481. Left = 16
  16482. Top = 75
  16483. Width = 141
  16484. TabIndex = 8
  16485. Name = "Tslabel5"
  16486. oTop = 50
  16487. Left = 285
  16488. Height = 26
  16489. Width = 120
  16490. Caption = "\<OK"
  16491. Default = .T.
  16492. TabIndex = 5
  16493. Name = "cmdOK"
  16494. frmChangePassword
  16495. cmdOK
  16496. commandbutton
  16497. ..\libs\tsbase.vcx
  16498. tscommandbutton
  16499. frmChangePassword
  16500. txtUserName
  16501. textbox
  16502. ..\libs\tsbase.vcx
  16503.     tstextbox
  16504. Tslabel4
  16505. BArial, 1, 8, 5, 14, 11, 13, 3, 0
  16506. Arial, 0, 8, 5, 14, 11, 13, 3, 0
  16507. frmChangePassword
  16508. cmdBehindSC
  16509. commandbutton
  16510. _coldpassword The employee's old password.
  16511. *validate Validates all entries made in this form.
  16512.     tstextbox
  16513. ..\libs\tsbase.vcx
  16514. textbox
  16515. txtOldPassword
  16516. frmChangePassword
  16517. QLeft = 165
  16518. TabIndex = 1
  16519. Top = 50
  16520. PasswordChar = "*"
  16521. Name = "txtOldPassword"
  16522. PROCEDURE InteractiveChange
  16523. LOCAL llEnabled
  16524. llEnabled = (ALLT(thisform.cOldPassword) == ALLT(this.Value)) 
  16525. thisform.txtNewPassword.Enabled = llEnabled
  16526. thisform.txtConfirm.Enabled = llEnabled
  16527. ENDPROC
  16528. PROCEDURE Click
  16529. *-- Since this form is modal, we need to make
  16530. *-- 'Behind the Scenes' modal as well
  16531. DO FORM behindsc WITH .T.
  16532. this.Enabled = .F.
  16533. ENDPROC
  16534. vTop = 131
  16535. Left = 285
  16536. Height = 26
  16537. Width = 120
  16538. Caption = "\<Behind the Scenes"
  16539. TabIndex = 8
  16540. Name = "cmdBehindSC"
  16541. ..\libs\tsbase.vcx
  16542. tscommandbutton
  16543.     tstextbox
  16544. ..\libs\tsbase.vcx
  16545. textbox
  16546. txtNewPassword
  16547. frmChangePassword
  16548. aEnabled = .F.
  16549. Left = 165
  16550. TabIndex = 2
  16551. Top = 110
  16552. PasswordChar = "*"
  16553. Name = "txtNewPassword"
  16554. tslabel
  16555. ..\libs\tsbase.vcx
  16556. label
  16557. Tslabel1
  16558. frmChangePassword
  16559. jCaption = "Old Password"
  16560. Height = 22
  16561. Left = 16
  16562. Top = 50
  16563. Width = 141
  16564. TabIndex = 3
  16565. Name = "Tslabel1"
  16566. tslabel
  16567. ..\libs\tsbase.vcx
  16568. label
  16569. kCaption = "New Password"
  16570. Height = 22
  16571. Left = 16
  16572. Top = 110
  16573. Width = 141
  16574. TabIndex = 4
  16575. Name = "Tslabel2"
  16576. sCaption = "Confirm New Password"
  16577. Height = 22
  16578. Left = 16
  16579. Top = 135
  16580. Width = 141
  16581. TabIndex = 5
  16582. Name = "Tslabel3"
  16583. THISFORM
  16584. VALIDATE
  16585. EMPLOYEE
  16586. PASSWORD
  16587. TXTCONFIRM
  16588. VALUE
  16589. Click,
  16590. PROCEDURE validate
  16591. IF !thisform.txtNewPassword.Enabled
  16592.   IF MESSAGEBOX(NOPSWDENTERED_LOC, ;
  16593.               MB_ICONQUESTION + MB_YESNO, ;
  16594.               TASTRADE_LOC) = IDNO
  16595.     =TABLEREVERT()
  16596.     RELEASE thisform
  16597.   ELSE
  16598.     thisform.txtOldPassword.Value = ""
  16599.     thisform.txtOldPassword.SetFocus()
  16600.   ENDIF
  16601.   RETURN .F.
  16602. ENDIF
  16603. IF EMPTY(thisform.txtNewPassword.Value)
  16604.   =MESSAGEBOX(PASSWORDEMPTY_LOC, ;
  16605.               MB_ICONEXCLAMATION, ;
  16606.               TASTRADE_LOC)
  16607.   thisform.txtNewPassword.SetFocus()
  16608.   RETURN .F.
  16609. ENDIF
  16610. IF thisform.txtConfirm.Value <> ;
  16611.     thisform.txtNewPassword.Value
  16612.   =MESSAGEBOX(PSWDNOTCNFRM_LOC, ;
  16613.               MB_ICONEXCLAMATION ,;
  16614.               TASTRADE_LOC)
  16615.   thisform.txtConfirm.Value = ""
  16616.   thisform.txtConfirm.SetFocus()
  16617.   RETURN .F.
  16618. ENDIF    
  16619. ENDPROC
  16620. PROCEDURE Load
  16621. *-- (c) Microsoft Corporation 1995
  16622. =SEEK(oApp.GetEmployeeID(), "employee", "employee_i")
  16623. thisform.cOldPassword = employee.password
  16624. ENDPROC
  16625. PROCEDURE Activate
  16626. tsBaseForm::Activate()
  16627. *-- Disable command button if Behind the Scenes is
  16628. *-- already active
  16629. thisform.cmdBehindSC.Enabled = !WEXIST("frmBehindSC")
  16630. SELECT employee
  16631. ENDPROC
  16632. PROCEDURE Init
  16633. thisform.txtUserName.Value = ALLT(employee.first_name) + " " + employee.last_name
  16634. ENDPROC
  16635. LLENABLED
  16636. THISFORM
  16637. COLDPASSWORD
  16638. VALUE
  16639. TXTNEWPASSWORD
  16640. ENABLED
  16641. TXTCONFIRM
  16642. InteractiveChange,
  16643. You have not yet entered the old password. Do you want to continue?
  16644. Tasmanian Traders
  16645. New password cannot be empty.
  16646. Tasmanian Traders
  16647. Cannot confirm new password. Please try again.
  16648. Tasmanian Traders
  16649. THISFORM
  16650. TXTNEWPASSWORD
  16651. ENABLED
  16652. TXTOLDPASSWORD
  16653. VALUE
  16654. SETFOCUS
  16655. TXTCONFIRM=
  16656. employee
  16657. employee_i
  16658. GETEMPLOYEEID
  16659. THISFORM
  16660. COLDPASSWORD
  16661. EMPLOYEE
  16662. PASSWORD9
  16663. frmBehindSC
  16664. TSBASEFORM
  16665. ACTIVATE
  16666. THISFORM
  16667. CMDBEHINDSC
  16668. ENABLED
  16669. EMPLOYEE'
  16670. THISFORM
  16671. TXTUSERNAME
  16672. VALUE
  16673. EMPLOYEE
  16674. FIRST_NAME    
  16675. LAST_NAME
  16676. validate,
  16677. Load[
  16678. Activate
  16679. InitZ
  16680. BeforeOpenTables,
  16681. wwwwx3
  16682. DDDDwx3
  16683. DDDDwx
  16684. DDDDwx
  16685. DDDDws
  16686. DDDDws
  16687. DDDDwx
  16688. DDDDwx
  16689. DDDDwx3
  16690. DDDDwx3
  16691. DDDDwx
  16692. DDDDwx
  16693. DDDDws
  16694. DDDDws
  16695. 4DDDDwx
  16696. 4DDDDwx
  16697. DDDDwx3
  16698. DDDDwx3
  16699. DDDDwx
  16700. 4DDDDwx
  16701. DDDDGw
  16702. 4DDDDws
  16703. DDDDGw
  16704. DDDDws
  16705. DDDDGw
  16706. 4DDDDwx
  16707. DDDDGw
  16708. 4DDDDwx
  16709. DDDDGw
  16710. DDDDwx3
  16711. DDDDGw
  16712. DDDDwx3
  16713. DDDDGw
  16714. DDDDwx
  16715. DDDDGw
  16716. 4DDDDwx
  16717. DDDDGw
  16718. 4DDDDws
  16719. DDDDGw
  16720. DDDDws
  16721. DDDDGw
  16722. 4DDDDwx
  16723. DDDDGw
  16724. 4DDDDwx
  16725. DDDDGw3
  16726. DDDDwx3
  16727. DDDDGw3
  16728. DDDDwx3
  16729. DDDDGw
  16730. DDDDwx
  16731. DDDDGw
  16732. 4DDDDwx
  16733. DDDDGw
  16734. 4DDDDwq
  16735. DDDDGw
  16736. DDDDwq
  16737. DDDDGw
  16738. 4DDDDwq
  16739. DDDDGw
  16740. 4DDDDwq
  16741. DDDDGw3
  16742. DDDDwq
  16743. DDDDGw3
  16744. DDDDwq
  16745. DDDDGw
  16746. DDDDwx
  16747. DDDDGw
  16748. 4DDDDwx
  16749. DDDDGw
  16750. 4DDDDwx
  16751. DDDDGw
  16752. DDDDwx
  16753. 3DDDDGw
  16754. 4DDDDwx
  16755. 3DDDDGw
  16756. 4DDDDwx
  16757. DDDDGw3
  16758. DDDDwx
  16759. DDDDGw3
  16760. DDDDwx
  16761. DDDDGw
  16762. DDDDwx
  16763. 8DDDDGw
  16764. 4DDDDwx
  16765. 8DDDDGw
  16766. 4DDDDwx
  16767. DDDDGw
  16768. DDDDws
  16769. 3DDDDGw
  16770. 4DDDDwx
  16771. 3DDDDGw
  16772. 4DDDDwx
  16773. DDDDGw3
  16774. DDDDwx3
  16775. DDDDGw3
  16776. DDDDwx3
  16777. DDDDGw
  16778. DDDDwx
  16779. 8DDDDGw
  16780. 4DDDDwx
  16781. 8DDDDGw
  16782. 4DDDDws
  16783. DDDDGw
  16784. DDDDws
  16785. 3DDDDGw
  16786. 4DDDDwx
  16787. 3DDDDGw
  16788. 4DDDDwx
  16789. DDDDGw3
  16790. DDDDwx3
  16791. DDDDGw3
  16792. DDDDwx3
  16793. DDDDGw
  16794. DDDDwx
  16795. DDDDGw
  16796. 4DDDDwx
  16797. DDDDGw
  16798. 4DDDDws
  16799. DDDDGw
  16800. DDDDws
  16801. DDDDGw
  16802. 4DDDDwx
  16803. DDDDGw
  16804. 4DDDDwx
  16805. DDDDGw
  16806. DDDDwx3
  16807. DDDDGw
  16808. DDDDwx3
  16809. DDDDGw
  16810. DDDDwx
  16811. DDDDGw
  16812. DDDDwx
  16813. DDDDGw
  16814. DDDDws
  16815. DDDDGw
  16816. DDDDwq
  16817. DDDDGw
  16818. DDDDwq
  16819. DDDDGw
  16820. DDDDwq
  16821. DDDDGw
  16822. DDDDwq
  16823. DDDDGw
  16824. DDDDwq
  16825. DDDDGw
  16826. DDDDwx
  16827. DDDDGw
  16828. DDDDwx
  16829. DDDDGw
  16830. DDDDwx
  16831. DDDDGw
  16832. DDDDw
  16833. DDDDGw
  16834. DDDDw
  16835. DDDDGw
  16836. DDDDw
  16837. DDDDGw
  16838. wwwwwtDDDDwwwwwwwww
  16839. DDDDGw
  16840. wwwwwtDDDDwwwwwwwww
  16841. DDDDGw
  16842. wwwwwtDDDDwwwwwwwww
  16843. DDDDGw
  16844. DDDDDDDDDDDDDDDDDDDGw
  16845. DDDDGw
  16846. DDDDDDDDDDDDDDDDDDDGw
  16847. DDDDGw
  16848. DDDDDDDDDDDDDDDDDDDGw
  16849. DDDDGw
  16850. DDDDDDDDDDDDDDDDDDDGw
  16851. DDDDGw
  16852. DDDDDDDDDDDDDDDDDDDGw
  16853. DDDDGw
  16854. DDDDDDDDDDDDDDDDDDDGw
  16855. DDDDGw
  16856. DDDDDDDDDDDDDDDDDDDO
  16857. DDDDGw
  16858. DDDDDDDDDDDDDDDDDDDO
  16859. DDDDGw
  16860. DDDDDDDDDDDDDDDDDDDH
  16861. DDDDGw
  16862. DDDDGw
  16863. DDDDGw
  16864. DDDDGw
  16865. DDDDGw
  16866. DDDDGw
  16867. DDDDGw
  16868. wwwwwwDDDDGwwwwwwww
  16869. wwwwwwDDDDGwwwwwwwwx
  16870. wwwwwwDDDDGwwwwwwwwx
  16871. DDDDDDDDDDDDDDDDDDDw
  16872. DDDDDDDDDDDDDDDDDDDw
  16873. DDDDDDDDDDDDDDDDDDDwx
  16874. DDDDDDDDDDDDDDDDDDDw
  16875. DDDDDDDDDDDDDDDDDDDw
  16876. DDDDDDDDDDDDDDDDDDDwx
  16877. DDDDDDDDDDDDDDDDDDD
  16878. DDDDDDDDDDDDDDDDDDD
  16879. DDDDDDDDDDDDDDDDDDD
  16880. PLATFORM
  16881. UNIQUEID
  16882. TIMESTAMP
  16883. CLASS
  16884. CLASSLOC
  16885. BASECLASS
  16886. OBJNAME
  16887. PARENT
  16888. PROPERTIES
  16889. PROTECTED
  16890. METHODS
  16891. OBJCODE
  16892. RESERVED1
  16893. RESERVED2
  16894. RESERVED3
  16895. RESERVED4
  16896. RESERVED5
  16897. RESERVED6
  16898. RESERVED7
  16899. RESERVED8
  16900.  COMMENT Screen              
  16901.  WINDOWS _R0O0S7SMK 5158607955
  16902.  WINDOWS _QYK0TL121 515860795
  16903.  WINDOWS _QYK0XT9EK 510689134
  16904.  WINDOWS _QYK0XT9FY 511149504
  16905.  WINDOWS _QYK0XT9H2 511149504
  16906.  WINDOWS _QYK0XT9I6 510689134
  16907.  COMMENT FONTINFO            
  16908. VERSION =   3.00
  16909. ..\include\tastrade.h
  16910. dataenvironment
  16911. dataenvironment
  16912. Dataenvironment
  16913. Name = "Dataenvironment"
  16914. tsbaseform
  16915. ..\libs\tsbase.vcx
  16916. frmDatabaseUtils
  16917. DataSession = 1
  16918. Height = 130
  16919. Width = 252
  16920. DoCreate = .T.
  16921. BorderStyle = 2
  16922. Caption = "Database Utilities"
  16923. WindowType = 1
  16924. ctoolbar = 
  16925. lallowdelete = .F.
  16926. lallowedits = .F.
  16927. lallownew = .F.
  16928. Name = "frmDatabaseUtils"
  16929. ,PROCEDURE Click
  16930. RELEASE thisform
  16931. ENDPROC
  16932. tscheckbox
  16933. checkbox
  16934. uTop = 90
  16935. Left = 140
  16936. Height = 26
  16937. Width = 76
  16938. Cancel = .T.
  16939. Caption = "\<Cancel"
  16940. TabIndex = 4
  16941. Name = "cmdCancel"
  16942. !Arial, 1, 8, 5, 14, 11, 14, 3, 0
  16943. ..\libs\tsbase.vcx
  16944. _PROCEDURE Click
  16945. thisform.cmdOK.Enabled = this.Value OR thisform.chkValidate.Value
  16946. ENDPROC
  16947. commandbutton
  16948. frmDatabaseUtils
  16949. frmDatabaseUtils
  16950. cmdOK
  16951. commandbutton
  16952. ..\libs\tsbase.vcx
  16953. tscommandbutton
  16954. checkbox
  16955. chkRebuild
  16956. frmDatabaseUtils
  16957. dTop = 50
  16958. Left = 60
  16959. Caption = "\<Rebuild Indexes"
  16960. Value = .F.
  16961. TabIndex = 2
  16962. Name = "chkRebuild"
  16963. tscommandbutton
  16964. ..\libs\tsbase.vcx
  16965.     cmdCancel
  16966. tscheckbox
  16967. bTop = 25
  16968. Left = 60
  16969. Caption = "\<Validate DBC"
  16970. Value = .F.
  16971. TabIndex = 1
  16972. Name = "chkValidate"
  16973. frmDatabaseUtils
  16974. chkValidate
  16975. ..\libs\tsbase.vcx
  16976. `PROCEDURE Click
  16977. thisform.cmdOK.Enabled = this.Value OR thisform.chkRebuild.Value
  16978. ENDPROC
  16979. PROCEDURE Click
  16980. IF thisform.chkValidate.Value
  16981.   thisform.ValidateDBC()
  16982. ENDIF
  16983. IF thisform.chkRebuild.Value
  16984.   thisform.RebuildIndexes()
  16985. ENDIF
  16986. RELEASE thisform
  16987. ENDPROC
  16988. n*rebuildindexes Rebuilds indexes for all tables in the current DBC.
  16989. *validatedbc Validates the current DBC.
  16990. |Top = 90
  16991. Left = 40
  16992. Height = 26
  16993. Width = 76
  16994. Caption = "\<OK"
  16995. Default = .T.
  16996. Enabled = .F.
  16997. TabIndex = 3
  16998. Name = "cmdOK"
  16999. PROCEDURE rebuildindexes
  17000. *-- (c) Microsoft Corporation 1995
  17001. LOCAL laTables[1], ;
  17002.       i
  17003. CLOSE TABLES
  17004. FOR i = 1 to ADBOBJECTS(laTables, "Table")
  17005.   IF !EMPTY(laTables[i])
  17006.     IF !USED(laTables[i])
  17007.       USE (laTables[i]) IN 0 EXCL
  17008.       SELECT (laTables[i])
  17009.       WAIT WINDOW NOWAIT REINDEXING_LOC + UPPER(ALLTRIM(laTables[i])) + ".DBF"
  17010.       REINDEX
  17011.     ENDIF
  17012.   ENDIF
  17013. ENDFOR
  17014. CLOSE TABLES
  17015. WAIT WINDOW NOWAIT DONE_LOC
  17016. ENDPROC
  17017. PROCEDURE validatedbc
  17018. #DEFINE OUTFILE  "valdbc.txt"
  17019. CLOSE TABLES
  17020. IF FILE(OUTFILE)
  17021.   DELETE FILE OUTFILE
  17022. ENDIF
  17023. this.WaitMode(.T.)
  17024. WAIT WINDOW NOWAIT VALIDATING_LOC
  17025. VALIDATE DATABASE TO FILE OUTFILE NOCONSOLE
  17026. WAIT CLEAR
  17027. this.WaitMode(.F.)
  17028. MODIFY FILE OUTFILE NOMODIFY NOMENU
  17029. DELETE FILE OUTFILE
  17030. ENDPROC
  17031. ..\include\tastrade.hZ+
  17032. ..\..\..\dev\foxpro.hb,
  17033. ..\include\strings.hj-
  17034. THISFORM
  17035. Click,
  17036. THISFORM
  17037. CMDOK
  17038. ENABLED
  17039. VALUE
  17040. CHKVALIDATE
  17041. Click,
  17042. THISFORM
  17043. CMDOK
  17044. ENABLED
  17045. VALUE
  17046. CHKREBUILD
  17047. Click,
  17048. THISFORM
  17049. CHKVALIDATE
  17050. VALUE
  17051. VALIDATEDBC
  17052. CHKREBUILD
  17053. REBUILDINDEXES
  17054. Click,
  17055. Table
  17056. Reindexing: CCC
  17057. LATABLES
  17058. valdbc.txt0
  17059. valdbc.txt
  17060. Validating ...
  17061. valdbc.txt
  17062. valdbc.txt
  17063. valdbc.txt
  17064. WAITMODE
  17065. rebuildindexes,
  17066. validatedbc
  17067. DDw83
  17068. 8DDw80
  17069. 8DDw8
  17070. DDw83
  17071. 8DDw83
  17072. 8DDw80
  17073. 8DDw8
  17074. 8DDw8
  17075. 8DDw83
  17076. wwwDDwwwww
  17077. wwwDDwwwww
  17078. DDDDDDDDDDw
  17079. DDDDDDDDDDw
  17080. DDDDDDDDDDw
  17081. DDDDDDDDDD
  17082. DDDDDDDDDD
  17083. wwwDDwwwww
  17084. wwwDDwwwww
  17085. LDDDDDDDDDDw
  17086. LDDDDDDDDDDw
  17087. LDDDDDDDDDDw
  17088. LDDDDDDDDDD
  17089. LDDDDDDDDDD
  17090. PLATFORM
  17091. UNIQUEID
  17092. TIMESTAMP
  17093. OBJTYPE
  17094. OBJCODE
  17095. HEIGHT
  17096. WIDTH
  17097. STYLE
  17098. PICTURE
  17099. ORDER
  17100. UNIQUE
  17101. COMMENT
  17102. ENVIRON
  17103. BOXCHAR
  17104. FILLCHAR
  17105. PENRED
  17106. PENGREEN
  17107. PENBLUE
  17108. FILLRED
  17109. FILLGREEN
  17110. FILLBLUE
  17111. PENSIZE
  17112. PENPAT
  17113. FILLPAT
  17114. FONTFACE
  17115. FONTSTYLE
  17116. FONTSIZE
  17117. RULER
  17118. RULERLINES
  17119. GRIDV
  17120. GRIDH
  17121. FLOAT
  17122. STRETCH
  17123. STRETCHTOP
  17124. BOTTOM
  17125. SUPTYPE
  17126. SUPREST
  17127. NOREPEAT
  17128. RESETRPT
  17129. PAGEBREAK
  17130. COLBREAK
  17131. RESETPAGE
  17132. GENERAL
  17133. SPACING
  17134. DOUBLE
  17135. SWAPHEADER
  17136. SWAPFOOTER
  17137. EJECTBEFOR
  17138. EJECTAFTER
  17139. PLAIN
  17140. SUMMARY
  17141. ADDALIAS
  17142. OFFSET
  17143. TOPMARGIN
  17144. BOTMARGIN
  17145. TOTALTYPE
  17146. RESETTOTAL
  17147. RESOID
  17148. CURPOS
  17149. SUPALWAYS
  17150. SUPOVFLOW
  17151. SUPRPCOL
  17152. SUPGROUP
  17153. SUPVALCHNG
  17154. SUPEXPR
  17155.  WINDOWS _QYL0ZRKEB 510756135 1 53
  17156.     1.000    0.000    0.000   -1.000
  17157.                                              
  17158.   0 10   10T1212   FF                     T                F      
  17159.  WINDOWS _QYL0ZRKED           9  1
  17160.                   14063.000    0.000
  17161.                                              
  17162.                        F  FFF           F                         
  17163.  WINDOWS _QYL0ZRKEE           9  4
  17164.                    5000.000    0.000
  17165.                                              
  17166.                        F  FFF           F                         
  17167.  WINDOWS _QYL0ZRKEF           9  7
  17168.                    5000.000    0.000
  17169.                                              
  17170.                        F  FFF           F                         
  17171.  WINDOWS _QV60X56R9 493911332 5  0
  17172.  6770.83319687.500 3437.50013333.333
  17173.     0    0    0   -1   -1   -1               #
  17174.   1 20  1          T   F          0                         TF3 0F
  17175.  WINDOWS _QV60XLBHG 493911315 5  0
  17176.  6250.00018020.833 3958.333 2083.333
  17177.     0    0  255   -1   -1   -1               &
  17178.   1 24  1          T   F          0                         TF3 0F
  17179.  WINDOWS _QV60X56R9 493911394 5  0
  17180.  6770.83335833.333 3437.500 8750.000
  17181.     0    0    0   -1   -1   -1               )
  17182.   1 20  1          T   F          0                         TF3 0F
  17183.  WINDOWS _QV60XLBHG 493911387 5  0
  17184.  6250.00034166.667 3958.333 2083.333
  17185.     0    0  255   -1   -1   -1               ,
  17186.   1 24  1          T   F          0                         TF3 0F
  17187.  WINDOWS _QYL0ZROIE 510756178 5  0
  17188. 10937.50018750.000 2083.33310104.167
  17189.     0    0    0   -1   -1   -1               /
  17190.   1 12  1          T   F          0                         TF3 0F
  17191.  WINDOWS _QYL0ZROIL 510756138 6   
  17192. 10312.500    0.000  104.16780104.167
  17193.    -1   -1   -1   -1   -1   -1    1    8     
  17194.         0          T   F                     1              TF3 0F
  17195.  WINDOWS _QYL0ZROIO 51147779617  0
  17196.   312.500 6145.833 9166.667 8645.833
  17197.                                              
  17198.         0          T   F       0   F         0              TF3 0F
  17199.  WINDOWS _QYL0ZVG5G 510756235 8  0
  17200. 16041.667 5104.167 5208.33375000.000
  17201.    -1   -1   -1   -1   -1   -1               6
  17202.   0 10  1        T T   F          0          0       0 1    TF3 0F
  17203.  WINDOWS _QZI16PRED 512990967 8  0
  17204.  5000.00073333.333 2083.333 6770.833
  17205.     0    0    0   -1   -1   -1               8
  17206.   0 12  1          T   F          2          0       0 1    TF3 0F
  17207.  WINDOWS _QZI16PREE 512990967 5  0
  17208.  2083.33368333.333 2083.333 4062.500
  17209.     0    0    0   -1   -1   -1               :
  17210.   1 12  1          T   F          0                         TF3 0F
  17211.  WINDOWS _QZI16PREF 512990967 8  0
  17212.  2083.33375000.000 2083.333 5104.167
  17213.     0    0    0   -1   -1   -1               =
  17214.   0 12  1          T   F          2          1       0 1    TF3 0F
  17215.  WINDOWS _QZI16PREN 512990967 5  0
  17216.  5000.00068333.333 2083.333 3645.833
  17217.     0    0    0   -1   -1   -1               ?
  17218.   1 12  1          T   F          0                         TF3 0F
  17219.  WINDOWS _QYL0ZROIB 51075613810  0
  17220.     1.000    4.000                  
  17221.                                              
  17222.                                                                   
  17223.  WINDOWS                     23   
  17224.    16.000    8.000   12.000   16.000
  17225.     4    0                                   A
  17226.   0 10                                                            
  17227.  WINDOWS                     23   
  17228.    33.000   13.000   25.000   34.000
  17229.     7    1                                   B
  17230.   1 20                                                            
  17231.  WINDOWS                     23   
  17232.    38.000   15.000   30.000   40.000
  17233.     7    1                                   C
  17234.   1 24                                                            
  17235.  WINDOWS                     23   
  17236.    20.000    8.000   15.000   20.000
  17237.     4    1                                   D
  17238.   1 12                                                            
  17239.  WINDOWS                     23   
  17240.    19.000    7.000   15.000   29.000
  17241.     3    1                                   E
  17242.   0 12                                                            
  17243.  WINDOWS                     25   F
  17244.                                     
  17245.                                              
  17246.                                                                   
  17247. Courier New
  17248. winspool
  17249. \\MSPRINT32\2/1MC PRIVJ 157.56.32.242
  17250. Ne02:
  17251. \\MSPRINT32\2/1MC PRIVJ 157.56.
  17252. Letter
  17253. DRIVER=winspool
  17254. DEVICE=\\MSPRINT32\2/1MC PRIVJ 157.56.32.242
  17255. OUTPUT=Ne02:
  17256. ORIENTATION=0
  17257. PAPERSIZE=1
  17258. COPIES=1
  17259. DEFAULTSOURCE=7
  17260. DUPLEX=1
  17261. TTOPTION=3
  17262. Arial
  17263. "asmanian"
  17264. Arial
  17265. Arial
  17266.     "raders
  17267. Arial
  17268. Arial
  17269. "Code Report"
  17270.  (c) Microsoft Corporation 1995
  17271. "..\bitmaps\ttradesm.bmp"
  17272. viewcode.code
  17273. Courier New
  17274. DATE()
  17275. Arial
  17276. Arial
  17277. "Page"
  17278. _PAGENO
  17279. Arial
  17280. Arial
  17281. "Date"
  17282. Courier New
  17283. Arial
  17284. Arial
  17285. Arial
  17286. Arial
  17287. dataenvironment
  17288. JLeft = 1
  17289. Top = 220
  17290. Width = 520
  17291. Height = 120
  17292. Name = "Dataenvironment"
  17293. PLATFORM
  17294. UNIQUEID
  17295. TIMESTAMP
  17296. OBJTYPE
  17297. OBJCODE
  17298. HEIGHT
  17299. WIDTH
  17300. STYLE
  17301. PICTURE
  17302. ORDER
  17303. UNIQUE
  17304. COMMENT
  17305. ENVIRON
  17306. BOXCHAR
  17307. FILLCHAR
  17308. PENRED
  17309. PENGREEN
  17310. PENBLUE
  17311. FILLRED
  17312. FILLGREEN
  17313. FILLBLUE
  17314. PENSIZE
  17315. PENPAT
  17316. FILLPAT
  17317. FONTFACE
  17318. FONTSTYLE
  17319. FONTSIZE
  17320. RULER
  17321. RULERLINES
  17322. GRIDV
  17323. GRIDH
  17324. FLOAT
  17325. STRETCH
  17326. STRETCHTOP
  17327. BOTTOM
  17328. SUPTYPE
  17329. SUPREST
  17330. NOREPEAT
  17331. RESETRPT
  17332. PAGEBREAK
  17333. COLBREAK
  17334. RESETPAGE
  17335. GENERAL
  17336. SPACING
  17337. DOUBLE
  17338. SWAPHEADER
  17339. SWAPFOOTER
  17340. EJECTBEFOR
  17341. EJECTAFTER
  17342. PLAIN
  17343. SUMMARY
  17344. ADDALIAS
  17345. OFFSET
  17346. TOPMARGIN
  17347. BOTMARGIN
  17348. TOTALTYPE
  17349. RESETTOTAL
  17350. RESOID
  17351. CURPOS
  17352. SUPALWAYS
  17353. SUPOVFLOW
  17354. SUPRPCOL
  17355. SUPGROUP
  17356. SUPVALCHNG
  17357. SUPEXPR
  17358.  WINDOWS _QYL0ZQ4OH 510756099 1 53
  17359.     1.000    0.000    0.000   -1.000
  17360.                                              
  17361.   0 10   10T 5 5   FF                     T                F      
  17362.  WINDOWS _QYL0ZQ4OJ           9  1
  17363.                   13438.000    0.000
  17364.                                              
  17365.                        F  FFF           F                         
  17366.  WINDOWS _QYL0ZQ4OK           9  4
  17367.                    7084.000    0.000
  17368.                                              
  17369.                        F  FFF           F                         
  17370.  WINDOWS _QYL0ZQ4OL           9  7
  17371.                    5000.000    0.000
  17372.                                              
  17373.                        F  FFF           F                         
  17374.  WINDOWS _QV60X56R9 493911332 5  0
  17375.  6770.83319687.500 3437.50013333.333
  17376.     0    0    0   -1   -1   -1               7
  17377.   1 20  1          T   F          0                         TF3 0F
  17378.  WINDOWS _QV60XLBHG 493911315 5  0
  17379.  6250.00018020.833 3958.333 2083.333
  17380.     0    0  255   -1   -1   -1               :
  17381.   1 24  1          T   F          0                         TF3 0F
  17382.  WINDOWS _QV60X56R9 493911394 5  0
  17383.  6770.83335833.333 3437.500 8750.000
  17384.     0    0    0   -1   -1   -1               =
  17385.   1 20  1          T   F          0                         TF3 0F
  17386.  WINDOWS _QV60XLBHG 493911387 5  0
  17387.  6250.00034166.667 3958.333 2083.333
  17388.     0    0  255   -1   -1   -1               @
  17389.   1 24  1          T   F          0                         TF3 0F
  17390.  WINDOWS _QYL0ZQZWD 510756166 5  0
  17391. 10937.50018750.000 2083.333 9166.667
  17392.     0    0    0   -1   -1   -1               C
  17393.   1 12  1          T   F          0                         TF3 0F
  17394.  WINDOWS _QYL0ZQZWE 510756120 6   
  17395. 10312.500    0.000  104.16780312.500
  17396.    -1   -1   -1   -1   -1   -1    1    8     
  17397.         0          T   F                     1              TF3 0F
  17398.  WINDOWS _QYL0ZQZWH 51147762017  0
  17399.   312.500 6250.000 9166.667 8645.833
  17400.                                              
  17401.         0          T   F       0   F         0              TF3 0F
  17402.  WINDOWS _QYL0ZU47X 510756279 8  0
  17403. 15520.833 1041.667 6875.00078229.167
  17404.     0    0    0   -1   -1   -1               J
  17405.   0 10  1        T T   F          0          0       0 1    TF3 0F
  17406.  WINDOWS _QZI128EJ4 512986697 8  0
  17407.  4375.00073333.333 2083.333 6770.833
  17408.     0    0    0   -1   -1   -1               L
  17409.   0 12  1          T   F          2          0       0 1    TF3 0F
  17410.  WINDOWS _QZI128EJ5 512986697 5  0
  17411.  1458.33368333.333 2083.333 4062.500
  17412.     0    0    0   -1   -1   -1               N
  17413.   1 12  1          T   F          0                         TF3 0F
  17414.  WINDOWS _QZI128EJ6 512986697 8  0
  17415.  1458.33375000.000 2083.333 5104.167
  17416.     0    0    0   -1   -1   -1               Q
  17417.   0 12  1          T   F          2          1       0 1    TF3 0F
  17418.  WINDOWS _QZI128EJ7 512986697 5  0
  17419.  4375.00068333.333 2083.333 3645.833
  17420.     0    0    0   -1   -1   -1               S
  17421.   1 12  1          T   F          0                         TF3 0F
  17422.  WINDOWS _QYL0ZQZW1 51075612010  0
  17423.     1.000    4.000                  
  17424.                                              
  17425.                                                                   
  17426.  WINDOWS                     23   
  17427.    16.000    8.000   12.000    8.000
  17428.     4    0                                   U
  17429.   0 10                                                            
  17430.  WINDOWS                     23   
  17431.    33.000   13.000   25.000   28.000
  17432.     7    1                                   V
  17433.   1 20                                                            
  17434.  WINDOWS                     23   
  17435.    38.000   15.000   30.000   33.000
  17436.     7    1                                   W
  17437.   1 24                                                            
  17438.  WINDOWS                     23   
  17439.    20.000    8.000   15.000   17.000
  17440.     4    1                                   X
  17441.   1 12                                                            
  17442.  WINDOWS                     23   
  17443.    16.000    6.000   13.000   14.000
  17444.     3    0                                   Y
  17445.   0 10                                                            
  17446.  WINDOWS                     23   
  17447.    19.000    7.000   15.000   17.000
  17448.     3    1                                   Z
  17449.   0 12                                                            
  17450.  WINDOWS                     25   [
  17451.                                     
  17452.                                              
  17453.                                                                   
  17454.  WINDOWS                     26   5
  17455.                                     
  17456.                                              
  17457.                                                                   
  17458. Courier New
  17459. WINSPOOL
  17460. HP LaserJet 4Si/4SiMX PS
  17461. \\msprint32\privj
  17462. LHP LaserJet 4Si/4SiMX PS
  17463. Custom page 1
  17464. Custom page 2
  17465. Custom page 3
  17466. DRIVER=winspool
  17467. DEVICE=LaserNT
  17468. OUTPUT=Ne00:
  17469. ORIENTATION=0
  17470. PAPERSIZE=1
  17471. PAPERLENGTH=2794
  17472. PAPERWIDTH=2159
  17473. SCALE=0
  17474. COPIES=1
  17475. DEFAULTSOURCE=7
  17476. PRINTQUALITY=600
  17477. DUPLEX=1
  17478. YRESOLUTION=600
  17479. TTOPTION=3
  17480. YRESOLUTION=600
  17481. cursor
  17482. Arial
  17483. "asmanian"
  17484. Arial
  17485. Arial
  17486.     "raders
  17487. Arial
  17488. Arial
  17489. "Case Study"
  17490. (c) Microsoft Corporation 1995
  17491. "..\bitmaps\ttradesm.bmp"
  17492. behindsc.desc
  17493. Arial
  17494. DATE()
  17495. Arial
  17496. Arial
  17497. "Page"
  17498. _PAGENO
  17499. Arial
  17500. Arial
  17501. "Date"
  17502. Courier New
  17503. Arial
  17504. Arial
  17505. Arial
  17506. Arial
  17507. Arial
  17508. dataenvironment
  17509. KLeft = 80
  17510. Top = 167
  17511. Width = 480
  17512. Height = 193
  17513. Name = "Dataenvironment"
  17514. Left = 117
  17515. Top = 29
  17516. Width = 146
  17517. Height = 99
  17518. Alias = "behindsc"
  17519. CursorSource = ..\data\behindsc.dbf
  17520. Filter = 'SCREEN_ID = "*Case Study"'
  17521. Name = "Cursor1"
  17522. PLATFORM
  17523. UNIQUEID
  17524. TIMESTAMP
  17525. CLASS
  17526. CLASSLOC
  17527. BASECLASS
  17528. OBJNAME
  17529. PARENT
  17530. PROPERTIES
  17531. PROTECTED
  17532. METHODS
  17533. OBJCODE
  17534. RESERVED1
  17535. RESERVED2
  17536. RESERVED3
  17537. RESERVED4
  17538. RESERVED5
  17539. RESERVED6
  17540. RESERVED7
  17541. RESERVED8
  17542.  COMMENT Screen              
  17543.  WINDOWS _QZP1E5ZQ8 5134569075
  17544.  WINDOWS _QYK14DGR0 548053091
  17545.  COMMENT RESERVED            
  17546. VERSION =   3.00
  17547. ..\include\tastrade.h
  17548. dataenvironment
  17549. dataenvironment
  17550. Dataenvironment
  17551. Name = "Dataenvironment"
  17552. tstextform
  17553. ..\libs\tsbase.vcx
  17554. frmViewCode
  17555. Top = 28
  17556. Left = 23
  17557. DoCreate = .T.
  17558. Caption = "Code Window"
  17559. Name = "frmViewCode"
  17560. edtText.ColorSource = 0
  17561. edtText.ControlSource = ""
  17562. edtText.Name = "edtText"
  17563. cmdClose.Name = "cmdClose"
  17564. cmdPrint.TabIndex = 3
  17565. cmdPrint.Name = "cmdPrint"
  17566. PROCEDURE Init
  17567. *-- (c) Microsoft Corporation 1995
  17568. LPARAMETER tnCallingFormDataSessionID
  17569. this.DataSessionID = tnCallingFormDataSessionID
  17570. thisform.edtText.ControlSource = "viewcode.code"
  17571. thisform.edtText.Refresh()
  17572. ENDPROC
  17573. PROCEDURE cmdPrint.Click
  17574. LOCAL lnAnswer
  17575. lnAnswer = MESSAGEBOX(VIEWCODEPRINT_LOC, ;
  17576.                       MB_ICONQUESTION + MB_YESNO, ;
  17577.                       TASTRADE_LOC)
  17578. IF lnAnswer = IDYES
  17579.   thisform.WaitMode(.T.)
  17580.   IF PRINTSTATUS()
  17581.     WAIT WINDOW NOWAIT PRINTING_LOC
  17582.     REPORT FORM viewcode TO PRINTER NOCONSOLE
  17583.   ELSE
  17584.     =MESSAGEBOX(PRINTERNOTREADY_LOC, MB_ICONEXCLAMATION)
  17585.   ENDIF
  17586.   WAIT CLEAR
  17587.   thisform.WaitMode(.F.)
  17588. ENDIF
  17589. ENDPROC
  17590. ..\include\tastrade.h
  17591. ..\..\..\dev\foxpro.h
  17592. ..\include\strings.h"
  17593. BArial, 0, 8, 5, 14, 11, 20, 3, 0
  17594. Arial, 1, 8, 5, 14, 11, 14, 3, 0
  17595. viewcode.code
  17596. TNCALLINGFORMDATASESSIONID
  17597. DATASESSIONID
  17598. THISFORM
  17599. EDTTEXT
  17600. CONTROLSOURCE
  17601. REFRESH
  17602. This report may be lengthy. Do you want to continue?
  17603. Tasmanian Traders
  17604. Printing ...
  17605. viewcode(!9
  17606. Printer not ready.
  17607. LNANSWER
  17608. THISFORM
  17609. WAITMODE
  17610. VIEWCODE
  17611. Init,
  17612. cmdPrint.Click
  17613. \<Items
  17614. Add and delete line items for the Order Entry form
  17615. frmorderentry
  17616. ALT+I
  17617. ALT+I
  17618. \<Add Line Item
  17619. Add line items to the current order
  17620. CTRL+INS
  17621. Ctrl+Ins
  17622. \<Remove Line Item
  17623. Remove items from the current order
  17624. _screen.Activeform.Activecontrolb
  17625. CTRL+DEL
  17626. Ctrl+Del
  17627. _screen.Activeform.GridAddItem()
  17628. _screen.Activeform.GridRemoveItem()
  17629. *-- (c) Microsoft Corporation 1995
  17630. ORDERENTRY
  17631. ITEMS
  17632. FORMISOBJECT
  17633. ACTIVEFORM
  17634. LALLOWEDITS
  17635. LALLOWDELETE
  17636. ACTIVECONTROL    
  17637. BASECLASS
  17638. zaBMz
  17639. NTBMz
  17640. NTBMz
  17641. zaBMz
  17642. zaBMz
  17643. PLATFORM
  17644. UNIQUEID
  17645. TIMESTAMP
  17646. CLASS
  17647. CLASSLOC
  17648. BASECLASS
  17649. OBJNAME
  17650. PARENT
  17651. PROPERTIES
  17652. PROTECTED
  17653. METHODS
  17654. OBJCODE
  17655. RESERVED1
  17656. RESERVED2
  17657. RESERVED3
  17658. RESERVED4
  17659. RESERVED5
  17660. RESERVED6
  17661. RESERVED7
  17662. RESERVED8
  17663.  COMMENT Screen              
  17664.  WINDOWS _RA30OYU9Z 5528195955
  17665.  WINDOWS _RA30OYUAA 553347964n
  17666.  WINDOWS _RAB0ZLY6O 553347964I
  17667.  WINDOWS _RAB12HY2U 553347964 
  17668.  WINDOWS _RAB12HY2V 553347964
  17669.  WINDOWS _RAB12HY34 548048694
  17670.  WINDOWS _RAB12LZWW 553347964
  17671.  WINDOWS _RAB12LZX6 553347964
  17672.  WINDOWS _RA30OYUAL 553347964
  17673.  WINDOWS _RA30OYUAT 552819595 )
  17674.  WINDOWS _RA30OYUBN 547511548f0
  17675.  WINDOWS _RA30OYUBO 547511548
  17676.  WINDOWS _RA30OYUBX 551705209
  17677.  WINDOWS _RA30OYUBY 547511548
  17678.  WINDOWS _RA30OYUC7 547511548I3
  17679.  WINDOWS _RA30OYUC8 547511548
  17680.  WINDOWS _RA30OYUC9 547511548
  17681.  WINDOWS _RA30OYUCH 547511548
  17682.  WINDOWS _RA30OYUCI 547511548c6
  17683.  WINDOWS _RA30OYUCR 54751154817
  17684.  WINDOWS _RA30OYUCS 547511548
  17685.  WINDOWS _RA30OYUCT 552819595
  17686.  WINDOWS _RA30OYUDC 547511548fC
  17687.  WINDOWS _RA30OYUDD 551227001    D
  17688.  WINDOWS _RA30OYUDM 547511548
  17689.  WINDOWS _RA30OYUDN 551227001
  17690.  WINDOWS _RA30OYUDW 548032361gF
  17691.  WINDOWS _RA30OYUDX 551227001
  17692.  WINDOWS _RA30OYUDY 547511548
  17693.  WINDOWS _RA30OYUDZ 551227001
  17694.  WINDOWS _RAB0LEOAF 548032763ZI
  17695.  WINDOWS _RAB0LEOAG 548032361
  17696.  WINDOWS _RAB0LEOAH 552819595
  17697.  WINDOWS _RA30OYUE6 548043814
  17698.  WINDOWS _RA30OYUE7 548054035gN
  17699.  WINDOWS _RA30OYUEG 552819595AO
  17700.  WINDOWS _RA30OYUEH 552819595
  17701.  WINDOWS _RA30OYUEQ 548054035
  17702.  WINDOWS _RAB0HRGUR 552819595
  17703.  WINDOWS _RAB0XC3B3 548043814
  17704.  WINDOWS _RAB0XC3BD 548054035s(
  17705.  COMMENT RESERVED            
  17706. VERSION =   3.00
  17707. ..\include\tastrade.h
  17708. dataenvironment
  17709. dataenvironment
  17710. Dataenvironment
  17711. Left = 82
  17712. Top = 204
  17713. Width = 558
  17714. Height = 272
  17715. AutoCloseTables = .F.
  17716. InitialSelectedAlias = "customer"
  17717. Name = "Dataenvironment"
  17718. pPROCEDURE BeforeOpenTables
  17719. SET TALK OFF
  17720. SET EXCLUSIVE OFF
  17721. SET DELETED ON
  17722. SET DATABASE TO tastrade
  17723. ENDPROC
  17724. ..\include\tastrade.h
  17725. ..\..\..\dev\foxpro.h
  17726. ..\include\strings.h
  17727. cArial, 0, 8, 5, 14, 11, 20, 3, 0
  17728. Arial, 0, 9, 5, 15, 12, 21, 3, 0
  17729. Arial, 1, 8, 5, 14, 11, 14, 3, 0
  17730. frmordhistory
  17731. textbox
  17732. cursor
  17733. cursor
  17734. Cursor4
  17735. Dataenvironment
  17736. Left = 16
  17737. Top = 28
  17738. Width = 90
  17739. Height = 100
  17740. Alias = "customer"
  17741. Database = ..\data\tastrade.dbc
  17742. CursorSource = "customer"
  17743. Name = "Cursor4"
  17744. cursor
  17745. cursor
  17746. Cursor1
  17747. Dataenvironment
  17748. Left = 152
  17749. Top = 30
  17750. Width = 90
  17751. Height = 87
  17752. Alias = "orders"
  17753. Database = ..\data\tastrade.dbc
  17754. CursorSource = "orders"
  17755. Name = "Cursor1"
  17756. cursor
  17757. cursor
  17758. Cursor2
  17759. Dataenvironment
  17760. Left = 10
  17761. Top = 140
  17762. Width = 90
  17763. Height = 89
  17764. Alias = "products"
  17765. Database = ..\data\tastrade.dbc
  17766. CursorSource = "products"
  17767. Name = "Cursor2"
  17768. cursor
  17769. cursor
  17770. Cursor3
  17771. Dataenvironment
  17772. Left = 150
  17773. Top = 140
  17774. Width = 90
  17775. Height = 89
  17776. Alias = "order_line_items"
  17777. Database = ..\data\tastrade.dbc
  17778. CursorSource = "order_line_items"
  17779. Name = "Cursor3"
  17780. relation
  17781. relation
  17782.     Relation1
  17783. Dataenvironment
  17784. ParentAlias = "products"
  17785. RelationalExpr = "product_id"
  17786. ChildAlias = "order_line_items"
  17787. ChildOrder = "product_id"
  17788. Name = "Relation1"
  17789. cursor
  17790. cursor
  17791. Cursor5
  17792. Dataenvironment
  17793. Left = 270
  17794. Top = 27
  17795. Width = 99
  17796. Height = 159
  17797. Alias = "citems"
  17798. Database = ..\data\tastrade.dbc
  17799. CursorSource = "order history line items"
  17800. Name = "Cursor5"
  17801. cursor
  17802. cursor
  17803. Cursor6
  17804. Dataenvironment
  17805. Left = 397
  17806. Top = 35
  17807. Width = 90
  17808. Height = 89
  17809. Alias = "history"
  17810. Database = ..\data\tastrade.dbc
  17811. CursorSource = "order history"
  17812. Name = "Cursor6"
  17813. tsbaseform
  17814. ..\libs\tsbase.vcx
  17815. frmordhistory
  17816. DataSession = 2
  17817. Top = 11
  17818. Left = 13
  17819. Height = 354
  17820. Width = 606
  17821. DoCreate = .T.
  17822. AutoCenter = .F.
  17823. Caption = "Order History"
  17824. oordentryform = .NULL.
  17825. lallowdelete = .F.
  17826. lallownew = .F.
  17827. lallowedits = .F.
  17828. Name = "frmordhistory"
  17829. PROCEDURE calcbalance
  17830. LOCAL lnBalance, liSelect, liRecno
  17831. liSelect = SELECT()
  17832. SELECT history
  17833. liRecno = IIF(EOF(),0,RECNO())
  17834. SUM history.ord_total FOR !history.paid TO lnBalance
  17835. IF m.liRecno # 0
  17836.     GO m.liRecno
  17837. ENDIF
  17838. SELECT (liSelect)
  17839. RETURN lnBalance
  17840. ENDPROC
  17841. PROCEDURE Destroy
  17842. tsBaseForm::Destroy()
  17843. *-- If this form is linked to an Order Entry form, 
  17844. *-- reset any properties that may have changed on
  17845. *-- that form by calling its ClearLink() method
  17846. IF TYPE("thisform.oOrdEntryForm") = "O" AND ;
  17847.     !ISNULL(thisform.oOrdEntryForm)
  17848.   thisform.oOrdEntryForm.ClearLink()
  17849.   thisform.RemoveFromMenu(thisform.cOriginalFormCaption)
  17850. ENDIF
  17851. *-- Decrement the number of instances
  17852. IF !EMPTY(thisform.cOriginalFormName) AND TYPE("oApp") == 'O' AND !ISNULL(oApp)
  17853.   oApp.RemoveInstance(thisform.cOriginalFormName)
  17854. ENDIF
  17855. IF USED("cItems") AND TYPE("oApp") == 'O' AND !ISNULL(oApp) AND !oApp.lQuitting
  17856.   =TABLEREVERT(.T., "cItems")
  17857. ENDIF
  17858. ENDPROC
  17859. PROCEDURE QueryUnload
  17860. RETURN .T.
  17861. ENDPROC
  17862. PROCEDURE savewindowpos
  17863. *-- Override for multiple instance staggering logic
  17864. ENDPROC
  17865. PROCEDURE restorewindowpos
  17866. *-- Override for multiple instance staggering logic
  17867. ENDPROC
  17868. PROCEDURE refreshform
  17869. thisform.LockScreen = .T.
  17870. *- disable Paid checkbox if adding a new order
  17871. THISFORM.grdOrdHistory.column5.chkPaid.Enabled = !THISFORM.cmdAddToCurrentOrder.Enabled
  17872. *- enable Find button only if not adding a new order
  17873. THISFORM.cmdFind.Enabled = !(THISFORM.cmdAddToCurrentOrder.Enabled)
  17874. =REQUERY("history")
  17875. GO TOP IN history
  17876. =SEEK(history.order_id,"orders","order_id")
  17877. =REQUERY("citems")
  17878. thisform.Refresh()
  17879. THISFORM.txtBalance.Value = THISFORM.CalcBalance()
  17880. #IF 0
  17881. THISFORM.grdOrdHistory.SetFocus()
  17882. #ENDIF
  17883. SELECT customer
  17884. thisform.LockScreen = .F.
  17885. ENDPROC
  17886. PROCEDURE datachanged
  17887. =TABLEREVERT(.T., 'citems')
  17888. RETURN .F.
  17889. ENDPROC
  17890. PROCEDURE Init
  17891. *-- (c) Microsoft Corporation 1995
  17892. LPARAMETERS toOrdEntryForm
  17893. LOCAL lnNumParms, ;
  17894.       lcFilter, i, ;
  17895.       loCustomerForm, ;
  17896.       liDataSession, ;
  17897.       lcCustomer_ID, ;
  17898.       lcWonTop 
  17899. thisform.Left = 11
  17900. thisform.Top = 2
  17901. thisform.cOriginalFormCaption = thisform.Caption
  17902. lnNumParms = PARAMETERS()
  17903. *-- Change form's caption and name before calling 
  17904. *-- tsBaseForm::Init() to ensure that the proper suffix
  17905. *-- has been added to both the name and caption to 
  17906. *-- support multiple instances of this form.
  17907. *-- Only one instance per order entry form is permitted, so
  17908. *-- if this instance is attached to an Order Entry form, 
  17909. *-- we won't worry about changing the name caption
  17910. IF lnNumParms = 0
  17911.   thisform.cOriginalFormName = thisform.Name
  17912.   thisform.Name = thisform.Name + ALLT(STR(oApp.AddInstance(thisform)))
  17913.   thisform.Caption = thisform.Caption + ":" + ;
  17914.                       RIGHT(ALLT(thisform.Name), 1)
  17915. ENDIF
  17916. tsBaseForm::Init
  17917. IF lnNumParms > 0
  17918.   thisform.oOrdEntryForm = toOrdEntryForm
  17919.   thisform.cmdAddToCurrentOrder.Enabled = .T.
  17920.   thisform.Caption = thisform.Caption + ;
  17921.                      LOWERFOR_LOC + ;
  17922.                      toOrdEntryForm.GetCustomerName()
  17923.   thisform.cmdAddToCurrentOrder.Enabled = .F.
  17924. ENDIF
  17925. lcWonTop = LOWER(WONTOP())
  17926. FOR i = 1 TO _screen.FormCount
  17927.     IF LOWER(_screen.Forms[i].name) == "frmorderentry" AND ;
  17928.         lcWonTop == "frmorderentry"
  17929.         toOrdEntryForm = _screen.Forms[i]
  17930.         EXIT
  17931.     ENDIF
  17932.     IF LOWER(_screen.Forms[i].name) == "frmcustomers" AND ;
  17933.         lcWonTop == "frmcustomers"
  17934.         loCustomerForm = _screen.Forms[i]
  17935.         EXIT
  17936.     ENDIF
  17937. IF lnNumParms > 0 OR TYPE("toOrdEntryForm ") == 'O'
  17938.   *-- use customer number on order entry form
  17939.   =SEEK(toOrdEntryForm.GetCustomerID(),"customer","customer_i")
  17940.   IF TYPE("loCustomerForm") == 'O'
  17941.     *-- use customer number on customer form
  17942.     liDataSession = THISFORM.datasessionID
  17943.     SET DATASESSION TO loCustomerForm.datasessionID
  17944.     lcCustomer_ID = customer.customer_id
  17945.     SET DATASESSION TO liDataSession
  17946.     =SEEK(m.lcCustomer_ID,"customer","customer_i") 
  17947.   ENDIF
  17948. ENDIF
  17949. *- RefreshForm will be called in Activate
  17950. THISFORM.grdOrdHistory.RecordSource = "history"
  17951. THISFORM.grdLineItems.RecordSource = "cItems"
  17952. THISFORM.nOrderRec = RECN("history")
  17953. ENDPROC
  17954. PROCEDURE Activate
  17955. tsBaseForm::Activate
  17956. THISFORM.RefreshForm
  17957. ENDPROC
  17958. The marked items have not been added to the order. Discard the marked items?
  17959. Tasmanian Traders
  17960. history
  17961. findCustomer
  17962. customer
  17963. customer_i
  17964. LCCUSTOMER_ID
  17965. CITEMS
  17966. TSBASEFORM
  17967. DATACHANGED
  17968. THISFORM    
  17969. NORDERREC
  17970. CUSTOMER
  17971. DOFORMRETVAL
  17972. REFRESHFORM
  17973. Click,
  17974. The marked items have not been added to the order. Discard the marked items?
  17975. Tasmanian Traders
  17976. history
  17977. TSCOMMANDBUTTON
  17978. CLICK
  17979. CITEMS
  17980. TSBASEFORM
  17981. DATACHANGED
  17982. THISFORM    
  17983. NORDERREC
  17984. CUSTOMER
  17985. Click,
  17986. Updating Order
  17987. order_line_items
  17988. cItems
  17989. LCALIAS
  17990. LOGRID    
  17991. LNOLDAREA
  17992. LNNUMITEMSADDED
  17993. LNTHISSESSIONID
  17994. LNTARGETSESSIONID
  17995. THISFORM
  17996. DATASESSIONID
  17997. OORDENTRYFORM
  17998. LOCKSCREEN
  17999. GRDLINEITEMS
  18000. RECORDSOURCE
  18001. CITEMS
  18002. EXP_1
  18003. LCPRODUCTID
  18004. PRODUCT_ID
  18005. LNUNITPRICE
  18006. UNIT_PRICE
  18007. LNQUANTITY
  18008. QUANTITY
  18009. ORDER_ID
  18010. ORDERS
  18011. ORDER_LINE_ITEMS    
  18012. CLEARLINK
  18013. REFRESHFORM
  18014. Click,
  18015. orders
  18016. order_id
  18017. HISTORY
  18018. ORDER_ID
  18019. ORDERS
  18020. VALUE
  18021. THISFORM
  18022. TXTBALANCE
  18023. CALCBALANCE
  18024. Click,
  18025. TSGRID
  18026. REFRESH
  18027. ENABLED
  18028. GRCTAG
  18029. CHKITEMTAG
  18030. THISFORM
  18031. CMDADDTOCURRENTORDER
  18032. CUSTOMER
  18033. Refresh,
  18034. txtBalance
  18035. ..\libs\tsbase.vcx
  18036.     tstextbox
  18037. oordentryform
  18038. coriginalformcaption
  18039. coriginalformname
  18040. norderrec Record number of current order
  18041. *calcbalance Calcularte balance due for customer
  18042. tsgrid
  18043. ..\libs\tsbase.vcx
  18044. grdLineItems
  18045. frmordhistory
  18046. vColumnCount = 5
  18047. Height = 168
  18048. Left = 12
  18049. Panel = 1
  18050. RecordSource = "cItems"
  18051. RowHeight = 21
  18052. ScrollBars = 2
  18053. TabIndex = 1
  18054. Top = 131
  18055. Width = 591
  18056. cfieldtosum = extension
  18057. Name = "grdLineItems"
  18058. Column1.FontBold = .F.
  18059. Column1.FontSize = 8
  18060. Column1.ControlSource = "citems.exp_1"
  18061. Column1.CurrentControl = "chkItemTag"
  18062. Column1.Width = 36
  18063. Column1.Sparse = .F.
  18064. Column1.Name = "grcTag"
  18065. Column2.FontBold = .F.
  18066. Column2.FontSize = 8
  18067. Column2.ControlSource = "citems.product_name"
  18068. Column2.Enabled = .F.
  18069. Column2.Width = 240
  18070. Column2.ReadOnly = .T.
  18071. Column2.Name = "grcProduct"
  18072. Column3.FontBold = .F.
  18073. Column3.FontSize = 8
  18074. Column3.ControlSource = "citems.quantity"
  18075. Column3.Enabled = .F.
  18076. Column3.Width = 93
  18077. Column3.ReadOnly = .T.
  18078. Column3.Name = "grcQuantity"
  18079. Column4.FontBold = .F.
  18080. Column4.FontSize = 8
  18081. Column4.ControlSource = "citems.unit_price"
  18082. Column4.Enabled = .F.
  18083. Column4.Width = 98
  18084. Column4.ReadOnly = .T.
  18085. Column4.Name = "grcUnitPrice"
  18086. Column5.FontBold = .F.
  18087. Column5.FontSize = 8
  18088. Column5.ControlSource = "citems.extension"
  18089. Column5.Enabled = .F.
  18090. Column5.Width = 104
  18091. Column5.ReadOnly = .T.
  18092. Column5.Name = "grcExtension"
  18093. PROCEDURE Refresh
  18094. tsGrid::Refresh()
  18095. this.Enabled = .t.        && !IsNull(thisform.oOrdEntryForm)
  18096. *- disable tag checkbox in grid if items can't be added to current order
  18097. THIS.grcTag.chkItemTag.Enabled = THISFORM.cmdAddToCurrentOrder.Enabled
  18098. SELECT customer
  18099. ENDPROC
  18100. tastrade
  18101. TASTRADE
  18102. BeforeOpenTables,
  18103. _Caption = "Current Balance:"
  18104. Height = 22
  18105. Left = 19
  18106. Top = 84
  18107. Width = 96
  18108. Name = "Tslabel2"
  18109. header
  18110. header
  18111. grhTag
  18112. !frmordhistory.grdLineItems.grcTag
  18113. OFontBold = .F.
  18114. FontSize = 8
  18115. Alignment = 2
  18116. Caption = "Tag"
  18117. Name = "grhTag"
  18118. textbox
  18119. textbox
  18120. Text1
  18121. !frmordhistory.grdLineItems.grcTag
  18122. =FontSize = 8
  18123. BorderStyle = 0
  18124. TabIndex = 1
  18125. Name = "Text1"
  18126. tscheckbox
  18127. ..\libs\tsbase.vcx
  18128. checkbox
  18129. chkItemTag
  18130. !frmordhistory.grdLineItems.grcTag
  18131. gHeight = 10
  18132. Width = 10
  18133. FontBold = .F.
  18134. Caption = ""
  18135. Value = .F.
  18136. TabIndex = 2
  18137. Name = "chkItemTag"
  18138. header
  18139. header
  18140. grhProduct
  18141. %frmordhistory.grdLineItems.grcProduct
  18142. WFontBold = .F.
  18143. FontSize = 8
  18144. Alignment = 2
  18145. Caption = "Product"
  18146. Name = "grhProduct"
  18147. textbox
  18148. textbox
  18149. Text1
  18150. %frmordhistory.grdLineItems.grcProduct
  18151. lFontBold = .F.
  18152. FontSize = 8
  18153. BorderStyle = 0
  18154. Enabled = .F.
  18155. ReadOnly = .T.
  18156. TabIndex = 1
  18157. Name = "Text1"
  18158. header
  18159. header
  18160. grhQuantity
  18161. &frmordhistory.grdLineItems.grcQuantity
  18162. YFontBold = .F.
  18163. FontSize = 8
  18164. Alignment = 2
  18165. Caption = "Quantity"
  18166. Name = "grhQuantity"
  18167. textbox
  18168. textbox
  18169. Text1
  18170. &frmordhistory.grdLineItems.grcQuantity
  18171. lFontBold = .F.
  18172. FontSize = 8
  18173. BorderStyle = 0
  18174. Enabled = .F.
  18175. ReadOnly = .T.
  18176. TabIndex = 1
  18177. Name = "Text1"
  18178. header
  18179. header
  18180. grhUnitPrice
  18181. 'frmordhistory.grdLineItems.grcUnitPrice
  18182. \FontBold = .F.
  18183. FontSize = 8
  18184. Alignment = 2
  18185. Caption = "Unit Price"
  18186. Name = "grhUnitPrice"
  18187. textbox
  18188. textbox
  18189. Text1
  18190. 'frmordhistory.grdLineItems.grcUnitPrice
  18191. lFontBold = .F.
  18192. FontSize = 8
  18193. BorderStyle = 0
  18194. Enabled = .F.
  18195. ReadOnly = .T.
  18196. TabIndex = 1
  18197. Name = "Text1"
  18198. header
  18199. header
  18200. grhExtension
  18201. 'frmordhistory.grdLineItems.grcExtension
  18202. [FontBold = .F.
  18203. FontSize = 8
  18204. Alignment = 2
  18205. Caption = "Extension"
  18206. Name = "grhExtension"
  18207. textbox
  18208. textbox
  18209. Text1
  18210. 'frmordhistory.grdLineItems.grcExtension
  18211. lFontBold = .F.
  18212. FontSize = 8
  18213. BorderStyle = 0
  18214. Enabled = .F.
  18215. ReadOnly = .T.
  18216. TabIndex = 1
  18217. Name = "Text1"
  18218. tsgrid
  18219. ..\libs\tsbase.vcx
  18220. grdOrdHistory
  18221. frmordhistory
  18222. OColumnCount = 5
  18223. Height = 121
  18224. HighlightRow = .T.
  18225. Left = 257
  18226. RecordMark = .T.
  18227. RecordSource = "history"
  18228. ScrollBars = 2
  18229. Top = 4
  18230. Width = 346
  18231. Name = "grdOrdHistory"
  18232. Column1.FontSize = 8
  18233. Column1.Alignment = 1
  18234. Column1.ControlSource = "history.order_id"
  18235. Column1.ReadOnly = .T.
  18236. Column1.Name = "Column1"
  18237. Column2.FontSize = 8
  18238. Column2.ControlSource = "history.order_date"
  18239. Column2.ReadOnly = .T.
  18240. Column2.Name = "Column2"
  18241. Column3.FontSize = 8
  18242. Column3.ControlSource = "history.deliver_by"
  18243. Column3.Width = 60
  18244. Column3.ReadOnly = .T.
  18245. Column3.Name = "Column3"
  18246. Column4.FontSize = 8
  18247. Column4.ControlSource = "history.ord_total"
  18248. Column4.ReadOnly = .T.
  18249. Column4.Name = "Column4"
  18250. Column5.FontSize = 8
  18251. Column5.ControlSource = "history.paid"
  18252. Column5.CurrentControl = "chkPaid"
  18253. Column5.Width = 31
  18254. Column5.Sparse = .F.
  18255. Column5.Name = "Column5"
  18256. PROCEDURE AfterRowColChange
  18257. LPARAMETERS nColIndex
  18258. IF RECNO("history") == THISFORM.nOrderRec
  18259.     *- the user hasn't moved off of this record -- only changed columns, so ignore
  18260.     RETURN
  18261. ENDIF
  18262. *- if they checked a row in the items grid, give the
  18263. *- user the option to save items first
  18264. SELECT cItems
  18265. IF TSBaseForm::DataChanged()
  18266.     IF MESSAGEBOX(ITEMNOTSAVED_LOC, ;
  18267.         MB_ICONEXCLAMATION + MB_YESNO, ;
  18268.         TASTRADE_LOC) == IDNO
  18269.         GOTO THISFORM.nOrderRec IN "history"
  18270.         THIS.Refresh
  18271.         SELECT customer
  18272.         RETURN
  18273.     ELSE
  18274.         =TABLEREVERT(.T.)
  18275.     ENDIF
  18276. ENDIF
  18277. SELECT orders
  18278. =SEEK(history.order_id, "orders", "order_id")
  18279. =REQUERY("cItems")
  18280. *- disable tag checkbox in grid if items can't be added to current order
  18281. THISFORM.grdLineItems.Refresh
  18282. THISFORM.grdLineItems.grcTag.chkItemTag.Enabled = THISFORM.cmdAddToCurrentOrder.Enabled
  18283. SELECT customer
  18284. *- update order record number
  18285. THISFORM.nOrderRec = RECNO("history")
  18286. ENDPROC
  18287. historyO
  18288. The marked items have not been added to the order. Discard the marked items?
  18289. Tasmanian Traders
  18290. history
  18291. orders
  18292. order_id
  18293. cItems
  18294. historyO
  18295. NCOLINDEX
  18296. THISFORM    
  18297. NORDERREC
  18298. CITEMS
  18299. TSBASEFORM
  18300. DATACHANGED
  18301. REFRESH
  18302. CUSTOMER
  18303. ORDERS
  18304. HISTORY
  18305. ORDER_ID
  18306. GRDLINEITEMS
  18307. GRCTAG
  18308. CHKITEMTAG
  18309. ENABLED
  18310. CMDADDTOCURRENTORDER
  18311. AfterRowColChange,
  18312. header
  18313. header
  18314. Header1
  18315. #frmordhistory.grdOrdHistory.Column1
  18316. EFontSize = 8
  18317. Alignment = 2
  18318. Caption = "Order ID"
  18319. Name = "Header1"
  18320. textbox
  18321. textbox
  18322. Text1
  18323. #frmordhistory.grdOrdHistory.Column1
  18324. FontSize = 8
  18325. Alignment = 1
  18326. BorderStyle = 0
  18327. Margin = 0
  18328. ReadOnly = .T.
  18329. ForeColor = 0,0,0
  18330. BackColor = 255,255,255
  18331. Name = "Text1"
  18332. header
  18333. header
  18334. Header1
  18335. #frmordhistory.grdOrdHistory.Column2
  18336. GFontSize = 8
  18337. Alignment = 2
  18338. Caption = "Order date"
  18339. Name = "Header1"
  18340. textbox
  18341. textbox
  18342. Text1
  18343. #frmordhistory.grdOrdHistory.Column2
  18344. wFontSize = 8
  18345. BorderStyle = 0
  18346. Margin = 0
  18347. ReadOnly = .T.
  18348. ForeColor = 0,0,0
  18349. BackColor = 255,255,255
  18350. Name = "Text1"
  18351. header
  18352. header
  18353. Header1
  18354. #frmordhistory.grdOrdHistory.Column3
  18355. GFontSize = 8
  18356. Alignment = 2
  18357. Caption = "Deliver On"
  18358. Name = "Header1"
  18359. textbox
  18360. textbox
  18361. Text1
  18362. #frmordhistory.grdOrdHistory.Column3
  18363. wFontSize = 8
  18364. BorderStyle = 0
  18365. Margin = 0
  18366. ReadOnly = .T.
  18367. ForeColor = 0,0,0
  18368. BackColor = 255,255,255
  18369. Name = "Text1"
  18370. header
  18371. header
  18372. Header1
  18373. #frmordhistory.grdOrdHistory.Column4
  18374. FFontSize = 8
  18375. Alignment = 2
  18376. Caption = "Order Amt"
  18377. Name = "Header1"
  18378. textbox
  18379. textbox
  18380. Text1
  18381. #frmordhistory.grdOrdHistory.Column4
  18382. wFontSize = 8
  18383. BorderStyle = 0
  18384. Margin = 0
  18385. ReadOnly = .T.
  18386. ForeColor = 0,0,0
  18387. BackColor = 255,255,255
  18388. Name = "Text1"
  18389. header
  18390. header
  18391. Header1
  18392. #frmordhistory.grdOrdHistory.Column5
  18393. AFontSize = 8
  18394. Alignment = 2
  18395. Caption = "Paid"
  18396. Name = "Header1"
  18397. textbox
  18398. textbox
  18399. Text1
  18400. #frmordhistory.grdOrdHistory.Column5
  18401. YBorderStyle = 0
  18402. Margin = 0
  18403. ForeColor = 0,0,0
  18404. BackColor = 255,255,255
  18405. Name = "Text1"
  18406. tscheckbox
  18407. ..\libs\tsbase.vcx
  18408. checkbox
  18409. chkPaid
  18410. #frmordhistory.grdOrdHistory.Column5
  18411. THeight = 10
  18412. Width = 10
  18413. FontSize = 8
  18414. Caption = ""
  18415. Value = .F.
  18416. Name = "chkPaid"
  18417. PROCEDURE Click
  18418. IF SEEK(history.order_id,"orders","order_id")
  18419.     REPLACE orders.paid WITH THIS.value
  18420.     THISFORM.Save
  18421.     THISFORM.txtBalance.Value = THISFORM.CalcBalance()
  18422. ENDIF
  18423. ENDPROC
  18424. fEnabled = .F.
  18425. Format = "K$"
  18426. InputMask = "99,999,999.99"
  18427. Left = 122
  18428. Top = 80
  18429. Name = "txtBalance"
  18430. frmordhistory
  18431. Tslabel2
  18432. label
  18433. ..\libs\tsbase.vcx
  18434. tslabel
  18435. pTop = 12
  18436. Left = 192
  18437. Height = 24
  18438. Width = 24
  18439. Picture = ..\bitmaps\locate.bmp
  18440. Caption = ""
  18441. Name = "cmdFind"
  18442. frmordhistory
  18443. cmdFind
  18444. tslabel
  18445. ..\libs\tsbase.vcx
  18446. label
  18447. Tslabel1
  18448. frmordhistory
  18449. ZCaption = "Orders For:"
  18450. Height = 22
  18451. Left = 25
  18452. Top = 18
  18453. Width = 64
  18454. Name = "Tslabel1"
  18455.     tstextbox
  18456. ..\libs\tsbase.vcx
  18457. textbox
  18458. txtCustomer
  18459. frmordhistory
  18460. pControlSource = "customer.company_name"
  18461. Enabled = .F.
  18462. Left = 24
  18463. Top = 48
  18464. Width = 228
  18465. Name = "txtCustomer"
  18466. tscommandbutton
  18467. ..\libs\tsbase.vcx
  18468. commandbutton
  18469. cmdAddToCurrentOrder
  18470. frmordhistory
  18471. Top = 312
  18472. Left = 13
  18473. Height = 26
  18474. Width = 222
  18475. Caption = "\<Add checked items to current order"
  18476. Name = "cmdAddToCurrentOrder"
  18477. PROCEDURE Click
  18478. LOCAL lcAlias, ;
  18479.       loGrid, ;
  18480.       lnOldArea, ;
  18481.       lnNumItemsAdded
  18482. lnNumItemsAdded = 0
  18483. LOCAL lnThisSessionID, ;
  18484.       lnTargetSessionID
  18485. *-- Here we save the current form's data session ID and
  18486. *-- the data session ID of the order entry form to which
  18487. *-- this form is "linked". It is used to switch sessions
  18488. *-- when adding items to the order entry form's grid.
  18489. lnThisSessionID = thisform.DataSessionID
  18490. lnTargetSessionID = thisform.oOrdEntryForm.DataSessionID
  18491. lnOldArea = SELECT()
  18492. *-- Prevent painting of both forms until we're done adding
  18493. *-- records
  18494. thisform.LockScreen = .T.
  18495. thisform.oOrdEntryForm.LockScreen = .T.
  18496. loGrid = thisform.grdLineItems
  18497. lcAlias = loGrid.RecordSource
  18498. SELECT (lcAlias)
  18499. WAIT WINDOW UPDATEORDER_LOC NOWAIT
  18500.   *-- Check if tag is checked
  18501.   IF citems.exp_1
  18502.     lcProductID = citems.product_id
  18503.     lnUnitPrice = citems.unit_price
  18504.     lnQuantity = citems.quantity
  18505.     *-- Select the apppropriate data session
  18506.     SET DATASESSION TO (lnTargetSessionID)
  18507.     INSERT INTO order_line_items ;
  18508.       (order_id, product_id, unit_price, quantity) ;
  18509.       VALUES ;
  18510.       (orders.order_id, lcProductID, lnUnitPrice, lnQuantity)
  18511.     SET DATASESSION TO (lnThisSessionID)
  18512.     lnNumItemsAdded = lnNumItemsAdded + 1
  18513.   ENDIF
  18514. ENDSCAN
  18515. =TABLEREVERT(.T., "cItems")
  18516. *-- Delete any blank records in the Order Entry form
  18517. IF lnNumItemsAdded > 0
  18518.   SET DATASESSION TO (lnTargetSessionID)
  18519.   SELECT order_line_items
  18520.   DELETE FOR EMPTY(product_id) 
  18521.   GO BOTTOM
  18522.   SET DATASESSION TO (lnThisSessionID)
  18523. ENDIF  
  18524. SELECT (lnOldArea)
  18525. thisform.oOrdEntryForm.ClearLink()
  18526. thisform.Hide()
  18527. thisform.oOrdEntryForm.RefreshForm()
  18528. thisform.oOrdEntryForm.LockScreen = .F.
  18529. WAIT CLEAR
  18530. RELEASE thisform
  18531. ENDPROC
  18532. SPROCEDURE Click
  18533. LOCAL lcCustomer_id
  18534. *- if they checked a row in the items grid, give the
  18535. *- user the option to save items first
  18536. SELECT cItems
  18537. IF TSBaseForm::DataChanged()
  18538.     IF MESSAGEBOX(ITEMNOTSAVED_LOC, ;
  18539.         MB_ICONEXCLAMATION + MB_YESNO, ;
  18540.         TASTRADE_LOC) == IDNO
  18541.         GOTO THISFORM.nOrderRec IN "history"
  18542.         SELECT customer
  18543.         RETURN
  18544.     ELSE
  18545.         =TABLEREVERT(.T.)
  18546.     ENDIF
  18547.     SELECT customer
  18548. ENDIF
  18549. lcCustomer_id = oApp.DoFormRetVal("findCustomer")
  18550. IF !EMPTY(lcCustomer_id)
  18551.     =SEEK(lcCustomer_id,"customer","customer_i")
  18552. ENDIF
  18553. THISFORM.RefreshForm
  18554. ENDPROC
  18555. commandbutton
  18556. ..\libs\tsbase.vcx
  18557. tscommandbutton
  18558. zControlSource = "customer.customer_id"
  18559. Enabled = .F.
  18560. Height = 24
  18561. Left = 108
  18562. Top = 12
  18563. Width = 72
  18564. Name = "txtCustID"
  18565. frmordhistory
  18566.     txtCustID
  18567. textbox
  18568. ..\libs\tsbase.vcx
  18569.     tstextbox
  18570. fTop = 312
  18571. Left = 379
  18572. Height = 26
  18573. Width = 222
  18574. Cancel = .T.
  18575. Caption = "Close"
  18576. Name = "cmdCancel"
  18577. frmordhistory
  18578.     cmdCancel
  18579. commandbutton
  18580. ..\libs\tsbase.vcx
  18581. tscommandbutton
  18582. PROCEDURE Click
  18583. tsCommandButton::Click
  18584. *- if they checked a row in the items grid, give the
  18585. *- user the option to save items first
  18586. SELECT cItems
  18587. IF TSBaseForm::DataChanged()
  18588.     IF MESSAGEBOX(ITEMNOTSAVED_LOC, ;
  18589.         MB_ICONEXCLAMATION + MB_YESNO, ;
  18590.         TASTRADE_LOC) == IDNO
  18591.         GOTO THISFORM.nOrderRec IN "history"
  18592.         SELECT customer
  18593.         RETURN
  18594.     ELSE
  18595.         =TABLEREVERT(.T.)
  18596.         SELECT customer
  18597.     ENDIF
  18598. ENDIF
  18599. SELECT customer
  18600. RELEASE THISFORM
  18601. ENDPROC
  18602. LNBALANCE
  18603. LISELECT
  18604. LIRECNO
  18605. HISTORY    
  18606. ORD_TOTAL
  18607. thisform.oOrdEntryFormb
  18608. oAppb
  18609. cItems
  18610. oAppb
  18611. cItems
  18612. TSBASEFORM
  18613. DESTROY
  18614. THISFORM
  18615. OORDENTRYFORM    
  18616. CLEARLINK
  18617. REMOVEFROMMENU
  18618. CORIGINALFORMCAPTION
  18619. CORIGINALFORMNAME
  18620. REMOVEINSTANCE    
  18621. LQUITTING
  18622. history
  18623. orders
  18624. order_id
  18625. citems
  18626. THISFORM
  18627. LOCKSCREEN
  18628. GRDORDHISTORY
  18629. COLUMN5
  18630. CHKPAID
  18631. ENABLED
  18632. CMDADDTOCURRENTORDER
  18633. CMDFIND
  18634. HISTORY
  18635. ORDER_ID
  18636. REFRESH
  18637. TXTBALANCE
  18638. VALUE
  18639. CALCBALANCE
  18640. CUSTOMER
  18641. citems
  18642.  for 
  18643. frmorderentry
  18644. frmorderentry
  18645. frmcustomers
  18646. frmcustomers
  18647. toOrdEntryForm b
  18648. customer
  18649. customer_i
  18650. loCustomerFormb
  18651. customer
  18652. customer_i
  18653. history
  18654. cItems
  18655. historyO
  18656. TOORDENTRYFORM
  18657. LNNUMPARMS
  18658. LCFILTER
  18659. LOCUSTOMERFORM
  18660. LIDATASESSION
  18661. LCCUSTOMER_ID
  18662. LCWONTOP
  18663. THISFORM
  18664. CORIGINALFORMCAPTION
  18665. CAPTION
  18666. CORIGINALFORMNAME
  18667. ADDINSTANCE
  18668. TSBASEFORM
  18669. OORDENTRYFORM
  18670. CMDADDTOCURRENTORDER
  18671. ENABLED
  18672. GETCUSTOMERNAME    
  18673. FORMCOUNT
  18674. FORMS
  18675. GETCUSTOMERID
  18676. DATASESSIONID
  18677. CUSTOMER
  18678. CUSTOMER_ID
  18679. GRDORDHISTORY
  18680. RECORDSOURCE
  18681. GRDLINEITEMS    
  18682. NORDERREC
  18683. TSBASEFORM
  18684. ACTIVATE
  18685. THISFORM
  18686. REFRESHFORM
  18687. calcbalance,
  18688. Destroy
  18689. QueryUnload
  18690. savewindowpos
  18691. restorewindowpos
  18692. refreshform
  18693. datachanged.
  18694. InitO
  18695. ActivateR    
  18696. \<Navigation
  18697. Commands to navigate through records on the active form
  18698. ALT+N
  18699. ALT+N
  18700. \<First
  18701. Moves the record pointer of the current alias to the first record
  18702. oApp.oToolBarb
  18703. CTRL+HOME
  18704. Ctrl+Home
  18705. \<Prior
  18706. Moves the record pointer of the current alias to the previous record
  18707. oApp.oToolBarb
  18708. CTRL+PGUP
  18709. Ctrl+PgUp
  18710. Ne\<xt
  18711. Moves the record pointer of the current alias to the next record
  18712. oApp.oToolBarb
  18713. CTRL+PGDN
  18714. Ctrl+PgDn
  18715. \<Last
  18716. Moves the record pointer of the current alias to the last record
  18717. oApp.oToolBarb
  18718. CTRL+END
  18719. Ctrl+End
  18720. oApp.oToolbar.cmdFirst.Click()
  18721. oApp.oToolbar.cmdPrior.Click()
  18722. oApp.oToolbar.cmdNext.Click()
  18723. oApp.oToolbar.cmdLast.Click()
  18724. *-- (c) Microsoft Corporation 1995
  18725. NAVIGATION
  18726. FORMISOBJECT
  18727. OTOOLBAR
  18728. CMDFIRST
  18729. ENABLED
  18730. CMDPRIOR
  18731. CMDNEXT
  18732. CMDLAST`
  18733. \<Window
  18734. Window selection
  18735. ALT+W
  18736. ALT+W
  18737. This bar will be removed
  18738. *-- (c) Microsoft Corporation 1995
  18739. WINDOW`
  18740. PLATFORM
  18741. UNIQUEID
  18742. TIMESTAMP
  18743. OBJTYPE
  18744. OBJCODE
  18745. HEIGHT
  18746. WIDTH
  18747. STYLE
  18748. PICTURE
  18749. ORDER
  18750. UNIQUE
  18751. COMMENT
  18752. ENVIRON
  18753. BOXCHAR
  18754. FILLCHAR
  18755. PENRED
  18756. PENGREEN
  18757. PENBLUE
  18758. FILLRED
  18759. FILLGREEN
  18760. FILLBLUE
  18761. PENSIZE
  18762. PENPAT
  18763. FILLPAT
  18764. FONTFACE
  18765. FONTSTYLE
  18766. FONTSIZE
  18767. RULER
  18768. RULERLINES
  18769. GRIDV
  18770. GRIDH
  18771. FLOAT
  18772. STRETCH
  18773. STRETCHTOP
  18774. BOTTOM
  18775. SUPTYPE
  18776. SUPREST
  18777. NOREPEAT
  18778. RESETRPT
  18779. PAGEBREAK
  18780. COLBREAK
  18781. RESETPAGE
  18782. GENERAL
  18783. SPACING
  18784. DOUBLE
  18785. SWAPHEADER
  18786. SWAPFOOTER
  18787. EJECTBEFOR
  18788. EJECTAFTER
  18789. PLAIN
  18790. SUMMARY
  18791. ADDALIAS
  18792. OFFSET
  18793. TOPMARGIN
  18794. BOTMARGIN
  18795. TOTALTYPE
  18796. RESETTOTAL
  18797. RESOID
  18798. CURPOS
  18799. SUPALWAYS
  18800. SUPOVFLOW
  18801. SUPRPCOL
  18802. SUPGROUP
  18803. SUPVALCHNG
  18804. SUPEXPR
  18805.  WINDOWS _QYL0ZQ4OH 510756099 1 53
  18806.     1.000    0.000    0.000   -1.000
  18807.                                              
  18808.   0 10   10T 5 5   FF                     T                F      
  18809.  WINDOWS _QYL0ZQ4OJ           9  1
  18810.                   13438.000    0.000
  18811.                                              
  18812.                        F  FFF           F                         
  18813.  WINDOWS _QYL0ZQ4OK           9  4
  18814.                    7084.000    0.000
  18815.                                              
  18816.                        F  FFF           F                         
  18817.  WINDOWS _QYL0ZQ4OL           9  7
  18818.                    5000.000    0.000
  18819.                                              
  18820.                        F  FFF           F                         
  18821.  WINDOWS _QV60X56R9 493911332 5  0
  18822.  6770.83319687.500 3437.50013333.333
  18823.     0    0    0   -1   -1   -1               #
  18824.   1 20  1          T   F          0                         TF3 0F
  18825.  WINDOWS _QV60XLBHG 493911315 5  0
  18826.  6250.00018020.833 3958.333 2083.333
  18827.     0    0  255   -1   -1   -1               &
  18828.   1 24  1          T   F          0                         TF3 0F
  18829.  WINDOWS _QV60X56R9 493911394 5  0
  18830.  6770.83335833.333 3437.500 8750.000
  18831.     0    0    0   -1   -1   -1               )
  18832.   1 20  1          T   F          0                         TF3 0F
  18833.  WINDOWS _QV60XLBHG 493911387 5  0
  18834.  6250.00034166.667 3958.333 2083.333
  18835.     0    0  255   -1   -1   -1               ,
  18836.   1 24  1          T   F          0                         TF3 0F
  18837.  WINDOWS _QYL0ZQZWD 547902040 5  0
  18838. 10937.50018333.333 2083.33315000.000
  18839.     0    0    0   -1   -1   -1               .
  18840.   1 12  1          T   F          0                         TF3 0F
  18841.  WINDOWS _QYL0ZQZWE 510756120 6   
  18842. 10312.500    0.000  104.16780312.500
  18843.    -1   -1   -1   -1   -1   -1    1    8     
  18844.         0          T   F                     1              TF3 0F
  18845.  WINDOWS _QYL0ZQZWH 51147762017  0
  18846.   312.500 6250.000 9166.667 8645.833
  18847.                                              
  18848.         0          T   F       0   F         0              TF3 0F
  18849.  WINDOWS _QYL0ZU47X 510756279 8  0
  18850. 15520.833 1041.667 6875.00078229.167
  18851.     0    0    0   -1   -1   -1               5
  18852.   0 10  1        T T   F          0          0       0 1    TF3 0F
  18853.  WINDOWS _QZI128EJ4 512986697 8  0
  18854.  4375.00073333.333 2083.333 6770.833
  18855.     0    0    0   -1   -1   -1               7
  18856.   0 12  1          T   F          2          0       0 1    TF3 0F
  18857.  WINDOWS _QZI128EJ5 512986697 5  0
  18858.  1458.33368333.333 2083.333 4062.500
  18859.     0    0    0   -1   -1   -1               9
  18860.   1 12  1          T   F          0                         TF3 0F
  18861.  WINDOWS _QZI128EJ6 512986697 8  0
  18862.  1458.33375000.000 2083.333 5104.167
  18863.     0    0    0   -1   -1   -1               <
  18864.   0 12  1          T   F          2          1       0 1    TF3 0F
  18865.  WINDOWS _QZI128EJ7 512986697 5  0
  18866.  4375.00068333.333 2083.333 3645.833
  18867.     0    0    0   -1   -1   -1               >
  18868.   1 12  1          T   F          0                         TF3 0F
  18869.  WINDOWS _QYL0ZQZW1 51075612010  0
  18870.     1.000    4.000                  
  18871.                                              
  18872.                                                                   
  18873.  WINDOWS                     23   
  18874.    16.000    8.000   12.000   16.000
  18875.     4    0                                   @
  18876.   0 10                                                            
  18877.  WINDOWS                     23   
  18878.    33.000   13.000   25.000   34.000
  18879.     7    1                                   A
  18880.   1 20                                                            
  18881.  WINDOWS                     23   
  18882.    38.000   15.000   30.000   40.000
  18883.     7    1                                   B
  18884.   1 24                                                            
  18885.  WINDOWS                     23   
  18886.    20.000    8.000   15.000   20.000
  18887.     4    1                                   C
  18888.   1 12                                                            
  18889.  WINDOWS                     23   
  18890.    16.000    6.000   13.000   23.000
  18891.     3    0                                   D
  18892.   0 10                                                            
  18893.  WINDOWS                     23   
  18894.    19.000    7.000   15.000   29.000
  18895.     3    1                                   E
  18896.   0 12                                                            
  18897.  WINDOWS                     25   F
  18898.                                     
  18899.                                              
  18900.                                                                   
  18901.  WINDOWS                     26   K
  18902.                                     
  18903.                                              
  18904.                                                                   
  18905. Courier New
  18906. winspool
  18907. \\MSPRINT32\2/1MC PRIVJ 157.56.32.242
  18908. Ne02:
  18909. \\MSPRINT32\2/1MC PRIVJ 157.56.
  18910. Letter
  18911. DRIVER=winspool
  18912. DEVICE=\\MSPRINT32\2/1MC PRIVJ 157.56.32.242
  18913. OUTPUT=Ne02:
  18914. ORIENTATION=0
  18915. PAPERSIZE=1
  18916. COPIES=1
  18917. DEFAULTSOURCE=7
  18918. DUPLEX=1
  18919. TTOPTION=3
  18920. Arial
  18921. "asmanian"
  18922. Arial
  18923. Arial
  18924.     "raders
  18925. Arial
  18926. Arial
  18927. "Behind the Scenes"
  18928. (c) Microsoft Corporation 1995
  18929. "..\bitmaps\ttradesm.bmp"
  18930. behindsc.desc
  18931. Arial
  18932. DATE()
  18933. Arial
  18934. Arial
  18935. "Page"
  18936. _PAGENO
  18937. Arial
  18938. Arial
  18939. "Date"
  18940. Courier New
  18941. Arial
  18942. Arial
  18943. Arial
  18944. Arial
  18945. Arial
  18946. dataenvironment
  18947. xLeft = 80
  18948. Top = 166
  18949. Width = 480
  18950. Height = 190
  18951. AutoOpenTables = .F.
  18952. AutoCloseTables = .F.
  18953. Name = "Dataenvironment"
  18954. cursor
  18955. {Left = 117
  18956. Top = 29
  18957. Width = 146
  18958. Height = 99
  18959. Alias = "behindsc"
  18960. CursorSource = ..\data\behindsc.dbf
  18961. Name = "Cursor1"
  18962. PLATFORM
  18963. UNIQUEID
  18964. TIMESTAMP
  18965. OBJTYPE
  18966. OBJCODE
  18967. HEIGHT
  18968. WIDTH
  18969. STYLE
  18970. PICTURE
  18971. ORDER
  18972. UNIQUE
  18973. COMMENT
  18974. ENVIRON
  18975. BOXCHAR
  18976. FILLCHAR
  18977. PENRED
  18978. PENGREEN
  18979. PENBLUE
  18980. FILLRED
  18981. FILLGREEN
  18982. FILLBLUE
  18983. PENSIZE
  18984. PENPAT
  18985. FILLPAT
  18986. FONTFACE
  18987. FONTSTYLE
  18988. FONTSIZE
  18989. RULER
  18990. RULERLINES
  18991. GRIDV
  18992. GRIDH
  18993. FLOAT
  18994. STRETCH
  18995. STRETCHTOP
  18996. BOTTOM
  18997. SUPTYPE
  18998. SUPREST
  18999. NOREPEAT
  19000. RESETRPT
  19001. PAGEBREAK
  19002. COLBREAK
  19003. RESETPAGE
  19004. GENERAL
  19005. SPACING
  19006. DOUBLE
  19007. SWAPHEADER
  19008. SWAPFOOTER
  19009. EJECTBEFOR
  19010. EJECTAFTER
  19011. PLAIN
  19012. SUMMARY
  19013. ADDALIAS
  19014. OFFSET
  19015. TOPMARGIN
  19016. BOTMARGIN
  19017. TOTALTYPE
  19018. RESETTOTAL
  19019. RESOID
  19020. CURPOS
  19021. SUPALWAYS
  19022. SUPOVFLOW
  19023. SUPRPCOL
  19024. SUPGROUP
  19025. SUPVALCHNG
  19026. SUPEXPR
  19027.  WINDOWS _QWK0RKTIN 505636481 1 53
  19028.     1.000    0.000    0.000   -1.000
  19029.                                              
  19030.   0 10   10T 5 5   FF                     T                F      
  19031.  WINDOWS _QWK0RKTIY           9  1
  19032.                   19896.000    0.000
  19033.                                              
  19034.                        F  FFF           F                         
  19035.  WINDOWS _QWK0RKTIZ           9  4
  19036.                    2917.000    0.000
  19037.                                              
  19038.                        F  FFF           F                         
  19039.  WINDOWS _QWK0RKTJ0           9  7
  19040.                       0.000    0.000
  19041.                                              
  19042.                        F  FFF           F                         
  19043.  WINDOWS _QWK0U0EIB 505638916 7  4
  19044. 16354.167    0.000 3541.66779270.833
  19045.    -1   -1   -1  192  192  192    1    8    1
  19046.         0          T   F                     0              TF3 0F
  19047.  WINDOWS _QWK0T54WP 505638537 5  0
  19048. 17187.500 8541.667 2083.33312708.333
  19049.     0    0    0   -1   -1   -1               !
  19050.   1 12  1       T      F          0                         TF3 0F
  19051.  WINDOWS _QWK0T54WQ 505638009 8  0
  19052. 21979.167 8541.667 2083.33332604.167
  19053.     0    0    0   -1   -1   -1               $
  19054.   0 12  1       TT     F          2          0       0 1    TF3 0F
  19055.  WINDOWS _QWK0T54WR 548100307 5  0
  19056. 17187.50041666.667 2083.333 6458.333
  19057.     0    0    0   -1   -1   -1               %
  19058.   1 12  1       T      F          0                         TF3 0F
  19059.  WINDOWS _QWK0T54WZ 548100301 8  0
  19060. 21979.16741666.667 2083.33320833.333
  19061.     0    0    0   -1   -1   -1               )
  19062.   0 12  1       TT     F          2          0       0 1    TF3 0F
  19063.  WINDOWS _QWK0T54XC 548034825 5  0
  19064. 17187.50072812.500 2083.333 4375.000
  19065.     0    0    0   -1   -1   -1               *
  19066.   1 12  1       T      F          0                         TF3 0F
  19067.  WINDOWS _QWK0T54XJ 548035567 8  0
  19068. 21979.16763125.000 2083.33315520.833
  19069.     0    0    0   -1   -1   -1               .
  19070.   0 12  1       TT     F          2          1       0 1    TF3 0F
  19071.  WINDOWS _QV60X56R9 493911332 5  0
  19072.  6458.33315937.500 3437.50013333.333
  19073.     0    0    0   -1   -1   -1               1
  19074.   1 20  1          T   F          0                         TF3 0F
  19075.  WINDOWS _QV60XLBHG 493911315 5  0
  19076.  5937.50014270.833 3958.333 2083.333
  19077.     0    0  255   -1   -1   -1               4
  19078.   1 24  1          T   F          0                         TF3 0F
  19079.  WINDOWS _QV60X56R9 493911394 5  0
  19080.  6458.33332083.333 3437.500 8750.000
  19081.     0    0    0   -1   -1   -1               7
  19082.   1 20  1          T   F          0                         TF3 0F
  19083.  WINDOWS _QV60XLBHG 493911387 5  0
  19084.  5937.50030416.667 3958.333 2083.333
  19085.     0    0  255   -1   -1   -1               :
  19086.   1 24  1          T   F          0                         TF3 0F
  19087.  WINDOWS _QWK0U54AP 548034808 5  0
  19088. 12187.50014479.167 2083.33314583.333
  19089.     0    0    0   -1   -1   -1               =
  19090.   1 12  1          T   F          0                         TF3 0F
  19091.  WINDOWS _QWK0U5JPO 505639044 6   
  19092. 11250.000    0.000  104.16781354.167
  19093.    -1   -1   -1   -1   -1   -1    1    8     
  19094.         0          T   F                     1              TF3 0F
  19095.  WINDOWS _QYK13ISMH 51147762517  0
  19096.  1250.000 3645.833 9166.667 8645.833
  19097.                                              
  19098.         0          T   F       0   F         0              TF3 0F
  19099.  WINDOWS _QZI12AW88 512986759 8  0
  19100.  5520.83372187.500 2083.333 6770.833
  19101.     0    0    0   -1   -1   -1               C
  19102.   0 12  1          T   F          2          0       0 1    TF3 0F
  19103.  WINDOWS _QZI12AW8I 512986759 5  0
  19104.  2604.16767187.500 2083.333 4062.500
  19105.     0    0    0   -1   -1   -1               E
  19106.   1 12  1          T   F          0                         TF3 0F
  19107.  WINDOWS _QZI12AW8J 512986759 8  0
  19108.  2604.16773854.167 2083.333 5104.167
  19109.     0    0    0   -1   -1   -1               H
  19110.   0 12  1          T   F          2          1       0 1    TF3 0F
  19111.  WINDOWS _QZI12AW8K 512986759 5  0
  19112.  5520.83367187.500 2083.333 3645.833
  19113.     0    0    0   -1   -1   -1               J
  19114.   1 12  1          T   F          0                         TF3 0F
  19115.  WINDOWS _RAC0NOGCU 548100193 5  0
  19116. 17187.500 2291.667 2083.333 4166.667
  19117.     0    0    0   -1   -1   -1               L
  19118.   1 12  1       T      F          0                         TF3 0F
  19119.  WINDOWS _RAC0NOQSY 548100228 8  0
  19120. 21979.167  729.167 2083.333 5833.333
  19121.     0    0    0   -1   -1   -1               P
  19122.   0 12  1       TT     F          2          1       0 1    TF3 0F
  19123.  WINDOWS _QWK0TYV7Z 50563874810  0
  19124.     8.000    4.000                  
  19125.                                              
  19126.                                                                   
  19127.  WINDOWS                     23   
  19128.    16.000    8.000   12.000   16.000
  19129.     4    0                                   Q
  19130.   0 10                                                            
  19131.  WINDOWS                     23   
  19132.    20.000    8.000   15.000   20.000
  19133.     4    1                                   R
  19134.   1 12                                                            
  19135.  WINDOWS                     23   
  19136.    19.000    7.000   15.000   29.000
  19137.     3    1                                   S
  19138.   0 12                                                            
  19139.  WINDOWS                     23   
  19140.    33.000   13.000   25.000   34.000
  19141.     7    1                                   T
  19142.   1 20                                                            
  19143.  WINDOWS                     23   
  19144.    38.000   15.000   30.000   40.000
  19145.     7    1                                   U
  19146.   1 24                                                            
  19147.  WINDOWS                     25   V
  19148.                                     
  19149.                                              
  19150.                                                                   
  19151.  WINDOWS                     26   [
  19152.                                     
  19153.                                              
  19154.                                                                   
  19155.  WINDOWS                     26   a
  19156.                                     
  19157.                                              
  19158.                                                                   
  19159.  WINDOWS                     26   g
  19160.                                     
  19161.                                              
  19162.                                                                   
  19163.  WINDOWS                     26   n
  19164.                                     
  19165.                                              
  19166.                                                                   
  19167. Courier New
  19168. winspool
  19169. LaserNT
  19170. Ne00:
  19171. LaserNT
  19172. Letter
  19173. DRIVER=winspool
  19174. DEVICE=LaserNT
  19175. OUTPUT=Ne00:
  19176. ORIENTATION=0
  19177. PAPERSIZE=1
  19178. SCALE=100
  19179. COPIES=1
  19180. DEFAULTSOURCE=7
  19181. PRINTQUALITY=300
  19182. COLOR=1
  19183. TTOPTION=3
  19184. COLLATE=0
  19185. Arial
  19186. "Company Name"
  19187. company_name
  19188. Arial
  19189. Arial
  19190.     "Country"
  19191. top25cust.country
  19192. Arial
  19193. Arial
  19194. "Sales"
  19195. top25cust.custtotal
  19196. Arial
  19197. "$9,999,999.99"
  19198. Arial
  19199. "asmanian"
  19200. Arial
  19201. Arial
  19202.     "raders
  19203. Arial
  19204. Arial
  19205. "Top 25 Customers"
  19206.  (c) Microsoft Corporation 1995
  19207. "..\bitmaps\ttradesm.bmp"
  19208. DATE()
  19209. Arial
  19210. Arial
  19211. "Page"
  19212. _PAGENO
  19213. Arial
  19214. Arial
  19215. "Date"
  19216. Arial
  19217. "Rank"
  19218. STR(RECNO(),2) + '.'
  19219. Arial
  19220. Courier New
  19221. Arial
  19222. Arial
  19223. Arial
  19224. Arial
  19225. dataenvironment
  19226. oLeft = 92
  19227. Top = 300
  19228. Width = 415
  19229. Height = 268
  19230. InitialSelectedAlias = "top25cust"
  19231. Name = "Dataenvironment"
  19232. cursor
  19233. Left = 6
  19234. Top = 15
  19235. Width = 90
  19236. Height = 88
  19237. Alias = "customer"
  19238. Database = ..\data\tastrade.dbc
  19239. CursorSource = "customer"
  19240. Name = "Cursor2"
  19241. cursor
  19242. Left = 127
  19243. Top = 23
  19244. Width = 90
  19245. Height = 88
  19246. Alias = "orders"
  19247. Database = ..\data\tastrade.dbc
  19248. CursorSource = "orders"
  19249. Name = "Cursor3"
  19250. cursor
  19251. Left = 253
  19252. Top = 16
  19253. Width = 90
  19254. Height = 88
  19255. Alias = "order_line_items"
  19256. Database = ..\data\tastrade.dbc
  19257. CursorSource = "order_line_items"
  19258. Name = "Cursor4"
  19259. cursor
  19260. Left = 10
  19261. Top = 140
  19262. Width = 90
  19263. Height = 89
  19264. Alias = "top25cust"
  19265. Database = ..\data\tastrade.dbc
  19266. CursorSource = "top25cust"
  19267. Name = "Cursor1"
  19268. libs\
  19269. tsbase.vcx
  19270. tsbase.vct
  19271. forms\
  19272. customer.scx
  19273. customer.sct
  19274. supplier.scx
  19275. supplier.sct
  19276. shipper.scx
  19277. shipper.sct
  19278. product.scx
  19279. product.sct
  19280. employee.scx
  19281. employee.sct
  19282. category.scx
  19283. category.sct
  19284. progs\main.prg
  19285. d:\temp\
  19286. main.fxp
  19287. menus\main.mpr
  19288. main.mpx
  19289. progs\utility.prg
  19290. utility.fxp
  19291. login.vcx
  19292. login.vct
  19293. reports.scx
  19294. reports.sct
  19295. behindsc.scx
  19296. behindsc.sct
  19297. tsgen.vcx
  19298. tsgen.vct
  19299. reports\
  19300. orders.frx
  19301. orders.frt
  19302. bitmaps\
  19303. lfscroll.bmp
  19304. rtscroll.bmp
  19305. salessum.frx
  19306. salessum.frt
  19307. salesdet.frx
  19308. salesdet.frt
  19309. orders.vcx
  19310. orders.vct
  19311. new.bmp
  19312. save.bmp
  19313. ordentry.scx
  19314. ordentry.sct
  19315. about.vcx
  19316. about.vct
  19317. frsrec_s.bmp
  19318. prvrec_s.bmp
  19319. nxtrec_s.bmp
  19320. lstrec_s.bmp
  19321. listcat.frx
  19322. listcat.frt
  19323. listcust.frx
  19324. listcust.frt
  19325. listempl.frx
  19326. listempl.frt
  19327. listprod.frx
  19328. listprod.frt
  19329. listship.frx
  19330. listship.frt
  19331. listsupp.frx
  19332. listsupp.frt
  19333. gettitle.scx
  19334. gettitle.sct
  19335. cust.ico
  19336. spplrs.ico
  19337. shpprs1.ico
  19338. prod1.ico
  19339. emply.ico
  19340. catgry.ico
  19341. bhind.ico
  19342. orders.ico
  19343. getinv.scx
  19344. getinv.sct
  19345. bhind_s.bmp
  19346. casestdy.scx
  19347. casestdy.sct
  19348. menus\intro.mpr
  19349. intro.mpx
  19350. main.vcx
  19351. main.vct
  19352. custadd.scx
  19353. custadd.sct
  19354. chngpswd.scx
  19355. chngpswd.sct
  19356. close.bmp
  19357. ttradelg.bmp
  19358. rebuild.scx
  19359. rebuild.sct
  19360. ttradesm.bmp
  19361. viewcode.frx
  19362. viewcode.frt
  19363. casestdy.frx
  19364. casestdy.frt
  19365. viewcode.scx
  19366. viewcode.sct
  19367. undo.bmp
  19368. menus\ordentry.mpr
  19369. ordentry.mpx
  19370. bhind_s.msk
  19371. close.msk
  19372. frsrec_s.msk
  19373. lstrec_s.msk
  19374. nxtrec_s.msk
  19375. prvrec_s.msk
  19376. ordhist.scx
  19377. ordhist.sct
  19378. menus\navigate.mpr
  19379. navigate.mpx
  19380. menus\window.mpr
  19381. window.mpx
  19382. behindsc.frx
  19383. behindsc.frt
  19384. locate.bmp
  19385. locate.msk
  19386. topcust.frx
  19387. topcust.frt
  19388. new.msk
  19389.