  +)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      JLeft = 1
Top = 220
Width = 520
Height = 200
Name = "Dataenvironment"
      cursor      cursor      Cursor1      Dataenvironment      wLeft = 10
Top = 20
Width = 95
Height = 90
Alias = "sysinfo"
CursorSource = ..\data\sysinfo.dbf
Name = "Cursor1"
      2      1      t_form      ..\libs\t_base.vcx      form      frmProductIdChange      Height = 313
Width = 407
DoCreate = .T.
AutoCenter = .T.
Caption = "Product ID Change"
WindowType = 1
AlwaysOnTop = .T.
Name = "frmProductIdChange"
     PROCEDURE getproductinfo
PARAMETER cFromOrTo
Local lcCurrentTable 

* this is used by the ProductList form
SET CLASSLIB TO libs\t_Application ADDITIVE 

	oProductInfo = createobject("ProductInfo")

	lcCurrentTable = SELECT()

	DO FORM forms\ProductList

	SELECT(lcCurrentTable)

	IF !EMPTY(oProductInfo.cProductID)
		IF cFromOrTo = "FROM"
			ThisForm.txtChangeFromProductID.value = oProductInfo.cProductID
			ThisForm.txtChangeFromListPrice.value = oProductInfo.nListPrice
			ThisForm.txtChangeFromProductDescription.value = oProductInfo.cProductDescription
		ELSE
			ThisForm.txtChangeToProductID.value = oProductInfo.cProductID
			ThisForm.txtChangeToListPrice.value = oProductInfo.nListPrice
			ThisForm.txtChangeToProductDescription.value = oProductInfo.cProductDescription
		ENDIF
	ELSE	
		MESSAGEBOX("No product info was returned",16,"Product ID Change")
	ENDIF
	
	RELEASE oProductInfo

ENDPROC
                                         %   P       e      _             U   
     U  THISFORM RELEASE Click,     1  2                       #       )                                                            7   %   _       t      n             U    C TO    U  THISFORM GETPRODUCTINFO Click,     1 !1                       .       )                            ..\libs\t_base.vcx      t_line      xCaption = "Product ID to Change To"
Height = 16
Left = 135
Top = 149
Width = 137
TabIndex = 18
Name = "T_label8"
      frmProductIdChange      T_label8      label      BArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 0, 8, 5, 14, 11, 30, 3, 0
      mBorderWidth = 2
Height = 99
Left = 394
Top = 170
Width = 0
BorderColor = 255,255,255
Name = "T_line4"
      frmProductIdChange      *getproductinfo 
      t_shape      ..\libs\t_base.vcx      shape      T_shape1      frmProductIdChange      TTop = 28
Left = 11
Height = 102
Width = 384
BorderWidth = 2
Name = "T_shape1"
      t_shape      ..\libs\t_base.vcx      shape      T_shape2      frmProductIdChange      jTop = 5
Left = 133
Height = 24
Width = 140
BorderStyle = 0
BackColor = 255,255,0
Name = "T_shape2"
      t_shape      ..\libs\t_base.vcx      shape      T_shape3      frmProductIdChange      lTop = 144
Left = 133
Height = 25
Width = 140
BorderStyle = 0
BackColor = 255,255,0
Name = "T_shape3"
      t_shape      ..\libs\t_base.vcx      shape      T_shape4      frmProductIdChange      UTop = 168
Left = 11
Height = 102
Width = 384
BorderWidth = 2
Name = "T_shape4"
      t_commandbutton      ..\libs\t_base.vcx      commandbutton      T_commandbutton1      frmProductIdChange      Top = 286
Left = 27
Height = 24
Width = 75
FontSize = 8
Caption = "Change \<From"
TabIndex = 7
Name = "T_commandbutton1"
      ;PROCEDURE Click
thisform.GetProductInfo("FROM")
ENDPROC
      T_line4      line      ..\libs\t_base.vcx      t_line      lBorderWidth = 2
Height = 99
Left = 394
Top = 30
Width = 0
BorderColor = 255,255,255
Name = "T_line3"
      frmProductIdChange      T_line3      t_commandbutton      ..\libs\t_base.vcx      commandbutton      cmdChangeTo      frmProductIdChange      {Top = 286
Left = 123
Height = 24
Width = 75
FontSize = 8
Caption = "Change \<To"
TabIndex = 8
Name = "cmdChangeTo"
      9PROCEDURE Click
thisform.GetProductInfo("TO")
ENDPROC
      line      ..\libs\t_base.vcx      t_line      mBorderWidth = 2
Height = 0
Left = 13
Top = 129
Width = 380
BorderColor = 255,255,255
Name = "T_line2"
      frmProductIdChange      T_line2      line      t_commandbutton      ..\libs\t_base.vcx      commandbutton      cmdSave      frmProductIdChange      rTop = 286
Left = 219
Height = 24
Width = 75
FontSize = 8
Caption = "\<Save"
TabIndex = 9
Name = "cmdSave"
     PROCEDURE Click
LOCAL prchgid, prchgde

prchgid = ThisForm.txtChangeFromProductID.value + ThisForm.txtChangeToProductId.value
prchgde = 'Change ' + TRIM(ThisForm.txtChangeFromProductDescription.value) + ' to ' + ;
	TRIM(ThisForm.txtChangeToProductDescription.value)
	
SELECT sysinfo
APPEND BLANK
REPLACE sysinfo.sy_type		WITH 'PCHANGE'
REPLACE sysinfo.sy_update	WITH DATE()
REPLACE sysinfo.sy_data		WITH prchgid
REPLACE sysinfo.sy_notes	WITH prchgde

ThisForm.txtChangeFromProductID.value 			= ''
ThisForm.txtChangeFromProductDescription.value	= ''
ThisForm.txtChangeFromListPrice.value 			= 0
ThisForm.txtChangeToProductId.value				= ''
ThisForm.txtChangeToProductDescription.value 	= ''
ThisForm.txtChangeToListPrice.value 			= 0
ENDPROC
                                   z-   %   B      s     Q            U  #     T        4 T  Change C   `  to C   ` F   > 	  PCHANGE > 
 C$ >     >    T      T      T     T      T      T     U  PRCHGID PRCHGDE THISFORM TXTCHANGEFROMPRODUCTID VALUE TXTCHANGETOPRODUCTID TXTCHANGEFROMPRODUCTDESCRIPTION TXTCHANGETOPRODUCTDESCRIPTION SYSINFO SY_TYPE	 SY_UPDATE SY_DATA SY_NOTES TXTCHANGEFROMLISTPRICE TXTCHANGETOLISTPRICE Click,     1  Br Q q 2111111                             )                           t_commandbutton      ..\libs\t_base.vcx      commandbutton      cmdExit      frmProductIdChange      sTop = 286
Left = 315
Height = 24
Width = 75
FontSize = 8
Caption = "\<Exit"
TabIndex = 10
Name = "cmdExit"
      .PROCEDURE Click
thisform.release

ENDPROC
      ..\libs\t_base.vcx      t_line      mBorderWidth = 2
Height = 0
Left = 13
Top = 269
Width = 380
BorderColor = 255,255,255
Name = "T_line1"
      frmProductIdChange      T_line1      line      t_label      ..\libs\t_base.vcx      label      T_label1      frmProductIdChange      uCaption = "Enter Product ID you wish to change"
Left = 15
Top = 37
Width = 200
TabIndex = 11
Name = "T_label1"
      t_label      ..\libs\t_base.vcx      label      T_label2      frmProductIdChange      eCaption = "Product Description"
Left = 15
Top = 64
Width = 110
TabIndex = 12
Name = "T_label2"
      t_label      ..\libs\t_base.vcx      label      T_label3      frmProductIdChange      \Caption = "List Price"
Left = 15
Top = 103
Width = 55
TabIndex = 13
Name = "T_label3"
      t_label      ..\libs\t_base.vcx      label      T_label4      frmProductIdChange      vCaption = "Enter Product ID you wish to change"
Left = 15
Top = 178
Width = 200
TabIndex = 14
Name = "T_label4"
      t_label      ..\libs\t_base.vcx      label      T_label5      frmProductIdChange      fCaption = "Product Description"
Left = 15
Top = 205
Width = 110
TabIndex = 15
Name = "T_label5"
      t_label      ..\libs\t_base.vcx      label      T_label6      frmProductIdChange      \Caption = "List Price"
Left = 15
Top = 244
Width = 55
TabIndex = 16
Name = "T_label6"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtChangeFromProductID      frmProductIdChange      ULeft = 216
ReadOnly = .T.
TabIndex = 1
Top = 34
Name = "txtChangeFromProductID"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtChangeFromProductDescription      frmProductIdChange      xHeight = 38
Left = 126
ReadOnly = .T.
TabIndex = 2
Top = 60
Width = 258
Name = "txtChangeFromProductDescription"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtChangeFromListPrice      frmProductIdChange      aLeft = 72
ReadOnly = .T.
TabIndex = 3
Top = 101
Width = 75
Name = "txtChangeFromListPrice"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtChangeToProductId      frmProductIdChange      TLeft = 216
ReadOnly = .T.
TabIndex = 4
Top = 175
Name = "txtChangeToProductId"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtChangeToProductDescription      frmProductIdChange      wHeight = 38
Left = 126
ReadOnly = .T.
TabIndex = 5
Top = 201
Width = 258
Name = "txtChangeToProductDescription"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtChangeToListPrice      frmProductIdChange      _Left = 72
ReadOnly = .T.
TabIndex = 6
Top = 242
Width = 75
Name = "txtChangeToListPrice"
      t_label      ..\libs\t_base.vcx      label      T_label7      frmProductIdChange      xCaption = "Product ID to Change From"
Height = 16
Left = 143
Top = 9
Width = 120
TabIndex = 17
Name = "T_label7"
      t_label      ..\libs\t_base.vcx                                         %   a       v      p             U    C FROM    U  THISFORM GETPRODUCTINFO Click,     1 A1                       0       )                           i    P  P                        "   %                          U   4     G~( libs\t_Application T C ProductInfoN T CW  forms\ProductList
 F  %C  
, %   FROM  T      T 	   
  T      ( T      T    
  T       s? C No product info was returned Product ID Changex  <  U 	 CFROMORTO LCCURRENTTABLE LIBS OPRODUCTINFO FORMS
 CPRODUCTID THISFORM TXTCHANGEFROMPRODUCTID VALUE TXTCHANGEFROMLISTPRICE
 NLISTPRICE TXTCHANGEFROMPRODUCTDESCRIPTION CPRODUCTDESCRIPTION TXTCHANGETOPRODUCTID TXTCHANGETOLISTPRICE TXTCHANGETOPRODUCTDESCRIPTION getproductinfo,     1 q q   2Qaaa aaaA  A r 2                             )   P                  
