                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      LLeft = 280
Top = 296
Width = 223
Height = 295
Name = "Dataenvironment"
      cursor      cursor      Cursor1      Dataenvironment      Left = 10
Top = 6
Width = 90
Height = 219
Alias = "v_productlist"
Database = ..\data\trackerdb.dbc
CursorSource = "v_productlist"
Name = "Cursor1"
      2      1      t_formretrieve      ..\libs\t_base.vcx      form      frmProductList      ^Height = 250
Width = 570
DoCreate = .T.
Caption = "Product list"
Name = "frmProductList"
      t_commandbutton      ..\libs\t_base.vcx      commandbutton      cmdOk      frmProductList      VTop = 218
Left = 195
Caption = "\<Ok"
Default = .T.
TabIndex = 2
Name = "cmdOk"
     PROCEDURE Click
* Locate the product ID in the product file so that
* we can return the ID, description and price
LOCATE FOR ThisForm.lstProducts.value = pr_id

IF TYPE('oProductInfo') = "O"
	oProductInfo.cProductID = ThisForm.lstProducts.value
	oProductInfo.cProductDescription = v_productlist.Description
	oProductInfo.nListPrice = v_productlist.ListPrice
	oProductInfo.cCompany	= v_productlist.Company
ELSE
	WAIT WINDOW "ProductInfo class not created"
ENDIF

RELEASE thisform
ENDPROC
                                      ;   %   D       Y      S             U  
  <   U  THISFORM Click,     1 q 1                       !       )                            !Arial, 0, 9, 5, 15, 12, 32, 3, 0
      frmProductList      lstProducts      listbox      ..\libs\t_base.vcx      	t_listbox      dAlignment = 2
Caption = "Years"
Left = 482
Top = 8
Width = 60
TabIndex = 8
Name = "T_label5"
      frmProductList      T_label5      label      ..\libs\t_base.vcx      t_label      t_commandbutton      ..\libs\t_base.vcx      commandbutton      	cmdCancel      frmProductList      OTop = 218
Left = 291
Caption = "\<Cancel"
TabIndex = 3
Name = "cmdCancel"
      ,PROCEDURE Click
RELEASE thisform
ENDPROC
      cAlignment = 2
Caption = "List"
Left = 419
Top = 8
Width = 60
TabIndex = 6
Name = "T_label3"
      frmProductList      T_label3      label      ..\libs\t_base.vcx      t_label      t_label      ..\libs\t_base.vcx      label      T_label1      frmProductList      iAlignment = 2
Caption = "Product ID"
Left = 336
Top = 8
Width = 80
TabIndex = 4
Name = "T_label1"
      t_label      ..\libs\t_base.vcx      label      T_label2      frmProductList      iAlignment = 2
Caption = "Description"
Left = 8
Top = 8
Width = 325
TabIndex = 5
Name = "T_label2"
     *BoundColumn = 2
ColumnCount = 4
ColumnWidths = "325,80,60,60,60"
RowSourceType = 6
RowSource = "v_productlist.Description,pr_id,ListPrice,SubLength"
FirstElement = 1
Height = 189
Left = 5
NumberOfElements = 0
TabIndex = 1
TerminateRead = .F.
Top = 21
Width = 559
Name = "lstProducts"
                                   q   %                          U    -       %C oProductInfob O  T       T     T 	  
  T      ' R, ProductInfo class not created  <   U  THISFORM LSTPRODUCTS VALUE PR_ID OPRODUCTINFO
 CPRODUCTID CPRODUCTDESCRIPTION V_PRODUCTLIST DESCRIPTION
 NLISTPRICE	 LISTPRICE CCOMPANY COMPANY Click,     1 Ca111 qA r 1                             )                     
