                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      JLeft = 730
Top = 9
Width = 281
Height = 481
Name = "Dataenvironment"
      cursor      cursor      Cursor1      Dataenvironment      Left = 7
Top = 1
Width = 95
Height = 144
Alias = "customer"
BufferModeOverride = 2
Order = "cu_sname"
Database = ..\data\trackerdb.dbc
CursorSource = "customer"
Name = "Cursor1"
      cursor      cursor      Cursor2      Dataenvironment      Left = 150
Top = 19
Width = 95
Height = 406
Alias = "v_salesforcustomer"
Database = ..\data\trackerdb.dbc
CursorSource = "v_salesforcustomer"
NoDataOnLoad = .T.
Name = "Cursor2"
      3      1      t_form      ..\libs\t_base.vcx      form      frmCustomerInfo      Height = 500
Width = 700
DoCreate = .T.
BufferMode = 0
AutoCenter = .T.
Caption = "Customer"
MaxButton = .F.
MinButton = .F.
WindowType = 1
WindowState = 0
ccustomerid = 
nchangeslost = 0
Name = "frmCustomerInfo"
     
MPROCEDURE changesalesstatus
SELECT Sales
DO CASE
	CASE customer.cd_status = "A"
		&& Do nothing we do not want to modify the sales records
	CASE customer.cd_status = "I"
		&& Only change status if record is not mark for deletion
		&& This will only change the status of Active records to Inactive
		REPLACE ALL sales.sa_status WITH customer.cu_status FOR sales.sa_cu_id = customer.cu_id ;
			AND sales.sa_status <> 'D'
	CASE customer.cd_status = "D"
		&& Only change status if record is not mark for deletion
		&& This will only change the status of Active or Inactive records to Delete
		REPLACE ALL sales.sa_status WITH customer.cu_status FOR sales.sa_cu_id = customer.cu_id ;
			AND sales.sa.sa_status <> 'D' 
	ENDCASE		
SELECT CUSTOMER

*!*			CASE m.btnname='DELETE'
*!*				IF NOT DELETED('customer') AND m.cu_active
*!*					choice = h_btn(c_whattodo, '\<Inactivate', '\<Delete', '\<Cancel')
*!*					DO CASE
*!*						CASE choice = 'Inactivate'
*!*							REPLACE cu_active WITH .F.
*!*							SELECT 0
*!*							USE sales
*!*							REPLACE ALL sales.sa_status WITH "D" FOR sales.sa_cu_id = customer.cu_id
*!*							USE
*!*							SELECT customer
*!*						CASE choice = 'Delete'
*!*							choice = mssg( WTITLE(), c_delrec, 'yesno', 'iconque', 'defbut1', 'sysmod' )
*!*							IF choice = 'yes'
*!*								REPLACE cu_active WITH .F.
*!*								DELETE
*!*								DO delsales
*!*							ENDIF
*!*					ENDCASE
*!*				ELSE
*!*					IF DELETED() OR NOT m.cu_active
*!*						IF DELETED('customer')
*!*							recov_rec = mssg( WTITLE(), c_recdeld, 'yesno', 'iconque', 'defbut1', 'sysmod')
*!*							IF (recov_rec = 'yes')
*!*								RECALL
*!*								DO undelsales
*!*							ENDIF
*!*						ENDIF

*!*						recov_rec = mssg( WTITLE(), c_recinact, 'yesno', 'iconque', 'defbut1', 'sysmod')
*!*						IF (recov_rec = 'yes')
*!*							REPLACE cu_active WITH .T.
*!*							DO recovsales
*!*						ENDIF
*!*					ENDIF
*!*				ENDIF
*!*				DO REFRESH

ENDPROC
PROCEDURE Error
LPARAMETERS nerror,cmethod,nline
ENDPROC
PROCEDURE Init
LOCAL lnTagCnt

DODEFAULT()

thisform.cCurrentTable = 'Customer'
Select (thisform.cCurrentTable)

IF TYPE("oUser.cName") = 'O'
	thisform.lIsReadOnly = .T.
ELSE
	thisform.lIsReadOnly = .F.
ENDIF

* Count how many indexs are available
lnTagCnt = 0
FOR i = 1 to 20
	IF LEN(TAG(i)) > 0
		lnTagCnt = lnTagCnt + 1
	ELSE
		EXIT
	ENDIF
ENDFOR

*Build an array of available indexs
DIMENSION thisform.cWhatIndex(lnTagCnt)
FOR i = 1 TO lnTagCnt
	thisform.cWhatIndex(i) = TAG(i)
ENDFOR

ThisForm.cboWhichIndex.NumberOfElements = lnTagCnt
ENDPROC
                                         %   S       h      b             U    G((
 this.value U  THIS VALUE Valid,     1 11                       (       )                           {    b  b                           %            
               U    H       A;  T  C  ^     Ii  T  C ^     D  T  C  ^  U  CUSTOMER	 CU_STATUS THIS	 BACKCOLOR Refresh,     1  QQQA 2                       *      )   b                       {    b  b                           %            
               U    H       A;  T  C  ^     Ii  T  C ^     D  T  C  ^  U  CUSTOMER	 CU_STATUS THIS	 BACKCOLOR Refresh,     1  QQQA 2                       *      )   b                        3PROCEDURE Valid
SET ORDER TO this.value
ENDPROC
      ccustomerid Contains the current customer ID
nchangeslost
ncurrentrecord
lisreadonly
pickindex Set order of table
*changesalesstatus 
^cwhatindex[1,0] 
      t_pageframe      ..\libs\t_base.vcx      	pageframe      pgfCustomerInfo      frmCustomerInfo     zErasePage = .T.
PageCount = 5
Top = 0
Left = 0
Width = 700
Height = 468
Name = "pgfCustomerInfo"
Page1.Caption = "Customer"
Page1.Enabled = .T.
Page1.Name = "Page1"
Page2.Caption = "Misc"
Page2.Name = "Page2"
Page3.Caption = "Notes"
Page3.Name = "Page3"
Page4.Caption = "Sales"
Page4.Name = "Page4"
Page5.Caption = "Sales Detail"
Page5.Name = "pagSalesDetail"
     PROCEDURE Page1.Activate
DODEFAULT()

thisform.cCurrentTable = "Customer"
select (thisform.cCurrentTable)

* This tells the command buttons what work area is selected
ThisForm.cmdButtons.nWorkarea = SELECT()

ThisForm.cboWhichIndex.enabled = .T.

ENDPROC
PROCEDURE Page2.Activate
DODEFAULT()

thisform.cCurrentTable = 'Customer'
Select (thisform.cCurrentTable)

* This tells the command buttons what work area is selected
ThisForm.cmdButtons.nWorkarea = SELECT()

ThisForm.cboWhichIndex.enabled = .T.

ENDPROC
PROCEDURE Page3.Activate
DODEFAULT()
*ThisForm._navbtns1.tablealias = "Customer"
thisform.cCurrentTable = 'Customer'
Select (thisform.cCurrentTable)

* This tells the command buttons what work area is selected
ThisForm.cmdButtons.nWorkarea = SELECT()

ThisForm.cboWhichIndex.enabled = .T.

ENDPROC
PROCEDURE Page4.Activate
DODEFAULT()
thisform.cCurrentTable = 'v_SalesForCustomer'
SELECT (thisform.cCurrentTable)

* This tells the command buttons what work area is selected
ThisForm.cmdButtons.nWorkarea = SELECT()

REQUERY(thisform.cCurrentTable)
This.refresh()

ThisForm.cboWhichIndex.enabled = .F.

ENDPROC
PROCEDURE pagSalesDetail.Activate
DODEFAULT()
thisform.cCurrentTable = 'v_SalesForCustomer'
SELECT (thisform.cCurrentTable)

REQUERY(thisform.cCurrentTable)
This.refresh()

* This tells the command buttons what work area is selected
ThisForm.cmdButtons.nWorkarea = SELECT()

ThisForm.cboWhichIndex.enabled = .F.

ENDPROC
         m  m                        x   %          $                 U   	 C H       AD  T  C  ^     Ir  T  C ^     D  T  C  ^  U  CUSTOMER	 CU_STATUS THIS	 BACKCOLOR Refresh,     1   QQQA 2                       9      )   m                                                       ]\   %                             U  >  %C     7  T            U  THIS PARENT TXTCU_BNAME VALUE TXTCU_SNAME Click,     1 A 1                              )                            BArial, 0, 9, 5, 15, 12, 13, 3, 0
Arial, 0, 8, 5, 14, 11, 12, 3, 0
      }RowSourceType = 5
RowSource = "thisform.cWhatIndex"
Height = 24
Left = 8
Top = 473
Width = 132
Name = "cboWhichIndex"
      frmCustomerInfo      cboWhichIndex      combobox      ..\libs\t_base.vcx      
t_combobox     0Top = 473
Left = 149
Name = "cmdButtons"
cmdTop.Name = "cmdTop"
cmdPrev.Name = "cmdPrev"
cmdNext.Name = "cmdNext"
cmdEnd.Name = "cmdEnd"
cmdFind.Name = "cmdFind"
cmdPrint.Name = "cmdPrint"
CMDADD.Name = "CMDADD"
cmdEdit.Name = "cmdEdit"
cmdDelete.Name = "cmdDelete"
cmdExit.Name = "cmdExit"
      
cmdButtons      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_sname      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_sname"
Height = 23
Left = 104
MaxLength = 40
SelectOnEntry = .T.
TabIndex = 1
Top = 20
Width = 288
Name = "txtCu_sname"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_bname      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_bname"
Height = 23
Left = 104
MaxLength = 40
TabIndex = 14
Top = 247
Width = 288
Name = "txtCu_bname"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_bcontac      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_bcontac"
Height = 23
Left = 104
MaxLength = 40
TabIndex = 15
Top = 271
Width = 288
Name = "txtCu_bcontac"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_bphone      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_bphone"
Height = 23
InputMask = "(999)999-9999"
Left = 104
MaxLength = 13
TabIndex = 23
Top = 391
Width = 93
Name = "txtCu_bphone"
      	t_textbox      ..\libs\t_base.vcx      textbox      
txtCu_bext      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_bext"
Height = 23
Left = 226
MaxLength = 4
TabIndex = 24
Top = 391
Width = 39
Name = "txtCu_bext"
      	t_textbox      ..\libs\t_base.vcx      textbox      
txtCu_bfax      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_bfax"
Height = 23
InputMask = "(999)999-9999"
Left = 297
MaxLength = 13
TabIndex = 25
Top = 391
Width = 93
Name = "txtCu_bfax"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_baddr1      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_baddr1"
Height = 23
Left = 104
MaxLength = 40
TabIndex = 16
Top = 295
Width = 288
Name = "txtCu_baddr1"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_baddr2      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_baddr2"
Height = 23
Left = 104
MaxLength = 40
TabIndex = 17
Top = 319
Width = 288
Name = "txtCu_baddr2"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_baddr3      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_baddr3"
Height = 23
Left = 104
MaxLength = 40
TabIndex = 18
Top = 343
Width = 288
Name = "txtCu_baddr3"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_bcity      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_bcity"
Height = 23
Left = 104
MaxLength = 20
TabIndex = 19
Top = 367
Width = 148
Name = "txtCu_bcity"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_bstate      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_bstate"
Height = 23
Left = 294
MaxLength = 3
TabIndex = 20
Top = 367
Width = 33
Name = "txtCu_bstate"
      	t_textbox      ..\libs\t_base.vcx      textbox      
txtCu_bzip      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_bzip"
Height = 23
Left = 356
MaxLength = 10
TabIndex = 21
Top = 367
Width = 79
Name = "txtCu_bzip"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_bcounty      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_bcounty"
Height = 23
Left = 499
MaxLength = 20
TabIndex = 22
Top = 367
Width = 148
Name = "txtCu_bcounty"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_scontac      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_scontac"
Height = 23
Left = 104
MaxLength = 40
SelectOnEntry = .T.
TabIndex = 2
Top = 44
Width = 288
Name = "txtCu_scontac"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_sphone      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
DateMark = ""
ControlSource = "customer.cu_sphone"
Height = 23
InputMask = "(999)999-9999"
Left = 104
MaxLength = 13
SelectOnEntry = .T.
TabIndex = 10
Top = 164
Width = 93
Name = "txtCu_sphone"
      	t_textbox      ..\libs\t_base.vcx      textbox      
txtCu_sext      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_sext"
Height = 23
Left = 226
MaxLength = 4
SelectOnEntry = .T.
TabIndex = 11
Top = 164
Width = 39
Name = "txtCu_sext"
      	t_textbox      ..\libs\t_base.vcx      textbox      
txtCu_sfax      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_sfax"
Height = 23
InputMask = "(999)999-9999"
Left = 297
MaxLength = 13
SelectOnEntry = .T.
TabIndex = 12
Top = 164
Width = 93
Name = "txtCu_sfax"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_saddr1      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_saddr1"
Height = 23
Left = 104
MaxLength = 40
SelectOnEntry = .T.
TabIndex = 3
Top = 68
Width = 288
Name = "txtCu_saddr1"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_saddr2      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_saddr2"
Height = 23
Left = 104
MaxLength = 40
SelectOnEntry = .T.
TabIndex = 4
Top = 92
Width = 288
Name = "txtCu_saddr2"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_saddr3      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_saddr3"
Height = 23
Left = 104
MaxLength = 40
SelectOnEntry = .T.
TabIndex = 5
Top = 116
Width = 288
Name = "txtCu_saddr3"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_scity      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_scity"
Height = 23
Left = 104
MaxLength = 20
SelectOnEntry = .T.
TabIndex = 6
Top = 140
Width = 148
Name = "txtCu_scity"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_sstate      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_sstate"
Height = 23
Left = 294
MaxLength = 3
SelectOnEntry = .T.
TabIndex = 7
Top = 140
Width = 33
Name = "txtCu_sstate"
      	t_textbox      ..\libs\t_base.vcx      textbox      
txtCu_szip      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_szip"
Height = 23
Left = 356
MaxLength = 10
SelectOnEntry = .T.
TabIndex = 8
Top = 140
Width = 79
Name = "txtCu_szip"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_scounty      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_scounty"
Height = 23
Left = 499
MaxLength = 20
SelectOnEntry = .T.
TabIndex = 9
Top = 140
Width = 148
Name = "txtCu_scounty"
      t_label      ..\libs\t_base.vcx      label      lblName      %frmCustomerInfo.pgfCustomerInfo.Page1      HCaption = "Name"
Left = 49
Top = 23
TabIndex = 28
Name = "lblName"
      t_label      ..\libs\t_base.vcx      label      
lblAddress      %frmCustomerInfo.pgfCustomerInfo.Page1      gCaption = "Address"
Height = 16
Left = 49
Top = 47
Width = 49
TabIndex = 29
Name = "lblAddress"
      t_label      ..\libs\t_base.vcx      label      lblCity      %frmCustomerInfo.pgfCustomerInfo.Page1      ICaption = "City"
Left = 49
Top = 143
TabIndex = 30
Name = "lblCity"
      t_label      ..\libs\t_base.vcx      label      lblState      %frmCustomerInfo.pgfCustomerInfo.Page1      eCaption = "State"
Height = 16
Left = 259
Top = 143
Width = 31
TabIndex = 31
Name = "lblState"
      t_label      ..\libs\t_base.vcx      label      lblZip      %frmCustomerInfo.pgfCustomerInfo.Page1      aCaption = "Zip"
Height = 16
Left = 331
Top = 143
Width = 24
TabIndex = 32
Name = "lblZip"
      t_label      ..\libs\t_base.vcx      label      
lblCountry      %frmCustomerInfo.pgfCustomerInfo.Page1      iCaption = "Country"
Height = 16
Left = 448
Top = 143
Width = 48
TabIndex = 33
Name = "lblCountry"
      t_label      ..\libs\t_base.vcx      label      lblPhone      %frmCustomerInfo.pgfCustomerInfo.Page1      KCaption = "Phone"
Left = 49
Top = 168
TabIndex = 34
Name = "lblPhone"
      t_label      ..\libs\t_base.vcx      label      lblExt      %frmCustomerInfo.pgfCustomerInfo.Page1      aCaption = "Ext"
Height = 16
Left = 203
Top = 168
Width = 19
TabIndex = 35
Name = "lblExt"
      t_label      ..\libs\t_base.vcx      label      lblFax      %frmCustomerInfo.pgfCustomerInfo.Page1      aCaption = "Fax"
Height = 16
Left = 271
Top = 168
Width = 23
TabIndex = 36
Name = "lblFax"
      t_label      ..\libs\t_base.vcx      label      T_label9      %frmCustomerInfo.pgfCustomerInfo.Page1      JCaption = "Name"
Left = 49
Top = 250
TabIndex = 37
Name = "T_label9"
      t_label      ..\libs\t_base.vcx      label      	T_label10      %frmCustomerInfo.pgfCustomerInfo.Page1      gCaption = "Address"
Height = 16
Left = 49
Top = 274
Width = 49
TabIndex = 38
Name = "T_label10"
      t_label      ..\libs\t_base.vcx      label      	T_label11      %frmCustomerInfo.pgfCustomerInfo.Page1      KCaption = "City"
Left = 49
Top = 370
TabIndex = 39
Name = "T_label11"
      t_label      ..\libs\t_base.vcx      label      	T_label12      %frmCustomerInfo.pgfCustomerInfo.Page1      fCaption = "State"
Height = 16
Left = 259
Top = 370
Width = 31
TabIndex = 40
Name = "T_label12"
      t_label      ..\libs\t_base.vcx      label      	T_label13      %frmCustomerInfo.pgfCustomerInfo.Page1      dCaption = "Zip"
Height = 16
Left = 331
Top = 370
Width = 24
TabIndex = 41
Name = "T_label13"
      t_label      ..\libs\t_base.vcx      label      	T_label14      %frmCustomerInfo.pgfCustomerInfo.Page1      hCaption = "Country"
Height = 16
Left = 448
Top = 370
Width = 48
TabIndex = 42
Name = "T_label14"
      t_label      ..\libs\t_base.vcx      label      	T_label15      %frmCustomerInfo.pgfCustomerInfo.Page1      LCaption = "Phone"
Left = 49
Top = 395
TabIndex = 43
Name = "T_label15"
      t_label      ..\libs\t_base.vcx      label      	T_label16      %frmCustomerInfo.pgfCustomerInfo.Page1      dCaption = "Ext"
Height = 16
Left = 203
Top = 395
Width = 19
TabIndex = 44
Name = "T_label16"
      t_label      ..\libs\t_base.vcx      label      	T_label17      %frmCustomerInfo.pgfCustomerInfo.Page1      dCaption = "Fax"
Height = 16
Left = 271
Top = 395
Width = 23
TabIndex = 45
Name = "T_label17"
      t_label      ..\libs\t_base.vcx      label      T_label1      %frmCustomerInfo.pgfCustomerInfo.Page1      FontBold = .T.
FontSize = 10
Alignment = 2
Caption = "S"
Left = 20
Top = 12
Width = 10
TabIndex = 46
Name = "T_label1"
      t_label      ..\libs\t_base.vcx      label      T_label2      %frmCustomerInfo.pgfCustomerInfo.Page1      FontBold = .T.
FontSize = 10
Alignment = 2
Caption = "h"
Left = 20
Top = 36
Width = 10
TabIndex = 47
Name = "T_label2"
      t_label      ..\libs\t_base.vcx      label      T_label3      %frmCustomerInfo.pgfCustomerInfo.Page1      FontBold = .T.
FontSize = 10
Alignment = 2
Caption = "i"
Left = 20
Top = 60
Width = 10
TabIndex = 48
Name = "T_label3"
      t_label      ..\libs\t_base.vcx      label      T_label4      %frmCustomerInfo.pgfCustomerInfo.Page1      FontBold = .T.
FontSize = 10
Alignment = 2
Caption = "p"
Left = 20
Top = 84
Width = 10
TabIndex = 49
Name = "T_label4"
      t_label      ..\libs\t_base.vcx      label      T_label5      %frmCustomerInfo.pgfCustomerInfo.Page1      FontBold = .T.
FontSize = 10
Alignment = 2
Caption = "p"
Left = 20
Top = 108
Width = 10
TabIndex = 50
Name = "T_label5"
      t_label      ..\libs\t_base.vcx      label      T_label6      %frmCustomerInfo.pgfCustomerInfo.Page1      FontBold = .T.
FontSize = 10
Alignment = 2
Caption = "i"
Left = 20
Top = 132
Width = 10
TabIndex = 51
Name = "T_label6"
      t_label      ..\libs\t_base.vcx      label      T_label7      %frmCustomerInfo.pgfCustomerInfo.Page1      FontBold = .T.
FontSize = 10
Alignment = 2
Caption = "n"
Left = 20
Top = 156
Width = 10
TabIndex = 52
Name = "T_label7"
      t_label      ..\libs\t_base.vcx      label      T_label8      %frmCustomerInfo.pgfCustomerInfo.Page1      FontBold = .T.
FontSize = 10
Alignment = 2
Caption = "g"
Left = 20
Top = 180
Width = 10
TabIndex = 53
Name = "T_label8"
      t_line      ..\libs\t_base.vcx      line      T_line1      %frmCustomerInfo.pgfCustomerInfo.Page1      ?Height = 0
Left = 40
Top = 8
Width = 624
Name = "T_line1"
      t_line      ..\libs\t_base.vcx      line      T_line2      %frmCustomerInfo.pgfCustomerInfo.Page1      AHeight = 0
Left = 40
Top = 200
Width = 624
Name = "T_line2"
      t_line      ..\libs\t_base.vcx      line      T_line3      %frmCustomerInfo.pgfCustomerInfo.Page1      AHeight = 0
Left = 40
Top = 237
Width = 624
Name = "T_line3"
      t_line      ..\libs\t_base.vcx      line      T_line4      %frmCustomerInfo.pgfCustomerInfo.Page1      AHeight = 0
Left = 40
Top = 429
Width = 624
Name = "T_line4"
      t_line      ..\libs\t_base.vcx      line      T_line5      %frmCustomerInfo.pgfCustomerInfo.Page1      ?Height = 192
Left = 40
Top = 8
Width = 0
Name = "T_line5"
      t_line      ..\libs\t_base.vcx      line      T_line6      %frmCustomerInfo.pgfCustomerInfo.Page1      @Height = 193
Left = 664
Top = 8
Width = 0
Name = "T_line6"
      t_line      ..\libs\t_base.vcx      line      T_line7      %frmCustomerInfo.pgfCustomerInfo.Page1      AHeight = 192
Left = 40
Top = 237
Width = 0
Name = "T_line7"
      t_line      ..\libs\t_base.vcx      line      T_line8      %frmCustomerInfo.pgfCustomerInfo.Page1      BHeight = 193
Left = 664
Top = 237
Width = 0
Name = "T_line8"
      t_label      ..\libs\t_base.vcx      label      	T_label18      %frmCustomerInfo.pgfCustomerInfo.Page1      FontBold = .T.
FontSize = 10
Alignment = 2
Caption = "B"
Left = 20
Top = 252
Width = 10
TabIndex = 54
Name = "T_label18"
      t_label      ..\libs\t_base.vcx      label      	T_label19      %frmCustomerInfo.pgfCustomerInfo.Page1      FontBold = .T.
FontSize = 10
Alignment = 2
Caption = "i"
Left = 20
Top = 276
Width = 10
TabIndex = 55
Name = "T_label19"
      t_label      ..\libs\t_base.vcx      label      	T_label20      %frmCustomerInfo.pgfCustomerInfo.Page1      FontBold = .T.
FontSize = 10
Alignment = 2
Caption = "l"
Left = 20
Top = 300
Width = 10
TabIndex = 56
Name = "T_label20"
      t_label      ..\libs\t_base.vcx      label      	T_label21      %frmCustomerInfo.pgfCustomerInfo.Page1      FontBold = .T.
FontSize = 10
Alignment = 2
Caption = "l"
Left = 20
Top = 324
Width = 10
TabIndex = 57
Name = "T_label21"
      t_label      ..\libs\t_base.vcx      label      	T_label22      %frmCustomerInfo.pgfCustomerInfo.Page1      FontBold = .T.
FontSize = 10
Alignment = 2
Caption = "i"
Left = 20
Top = 348
Width = 10
TabIndex = 58
Name = "T_label22"
      t_label      ..\libs\t_base.vcx      label      	T_label23      %frmCustomerInfo.pgfCustomerInfo.Page1      FontBold = .T.
FontSize = 10
Alignment = 2
Caption = "n"
Left = 20
Top = 372
Width = 10
TabIndex = 59
Name = "T_label23"
      t_label      ..\libs\t_base.vcx      label      	T_label24      %frmCustomerInfo.pgfCustomerInfo.Page1      FontBold = .T.
FontSize = 10
Alignment = 2
Caption = "g"
Left = 20
Top = 396
Width = 10
TabIndex = 60
Name = "T_label24"
      t_line      ..\libs\t_base.vcx      line      T_line9      %frmCustomerInfo.pgfCustomerInfo.Page1      mBorderStyle = 1
Height = 0
Left = 41
Top = 200
Width = 624
BorderColor = 255,255,255
Name = "T_line9"
      t_line      ..\libs\t_base.vcx      line      T_line10      %frmCustomerInfo.pgfCustomerInfo.Page1      nBorderStyle = 1
Height = 0
Left = 41
Top = 429
Width = 624
BorderColor = 255,255,255
Name = "T_line10"
      t_line      ..\libs\t_base.vcx      line      T_line11      %frmCustomerInfo.pgfCustomerInfo.Page1      \Height = 193
Left = 664
Top = 8
Width = 0
BorderColor = 255,255,255
Name = "T_line11"
      t_line      ..\libs\t_base.vcx      line      T_line12      %frmCustomerInfo.pgfCustomerInfo.Page1      ^Height = 193
Left = 664
Top = 237
Width = 0
BorderColor = 255,255,255
Name = "T_line12"
      t_commandbutton      ..\libs\t_base.vcx      commandbutton      cmdCopyAddress      %frmCustomerInfo.pgfCustomerInfo.Page1      {Top = 205
Left = 306
Caption = "Copy Address"
TabIndex = 13
Visible = (thisform.lIsReadOnly)
Name = "cmdCopyAddress"
      PROCEDURE Click
IF EMPTY(This.Parent.txtCu_bname.value)
	This.Parent.txtCu_bname.value = This.Parent.txtCu_sname.value
ENDIF
ENDPROC
      frmCustomerInfo      	container      ..\libs\t_basicbtns.vcx      t_basictxtbtns      YAlignment = 2
Caption = "Bill"
Left = 503
Top = 90
Width = 80
Name = "lblBillDate"
      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      lblBillDate      label      label      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_status      %frmCustomerInfo.pgfCustomerInfo.Page1      Comment = ""
ControlSource = "customer.cu_status"
Format = "X"
Height = 23
Left = 638
MaxLength = 1
TabIndex = 27
Top = 404
Width = 21
Name = "txtCu_status"
     DPROCEDURE Refresh
DODEFAULT()

* Update color of status field
DO CASE
	CASE customer.Cu_status = 'A'
		This.backcolor = RGB(0,128,0)			&& Green
	CASE customer.Cu_status = 'I'
		This.backcolor = RGB(255,255,0)			&& Yellow
	CASE customer.Cu_status = 'D'
		This.backcolor = RGB(255,0,0)			&& Red
ENDCASE

ENDPROC
      ..\libs\t_base.vcx      t_label      gComment = ""
Alignment = 2
Caption = "Ship"
Left = 599
Top = 90
Width = 80
Name = "lblShipDate"
      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      lblShipDate      ..\libs\t_base.vcx      t_label      qCaption = "Cancel reason"
Height = 17
Left = 21
Top = 392
Width = 85
TabIndex = 60
Name = "lblSa_creason"
      t_label      ..\libs\t_base.vcx      label      lblCu_status      %frmCustomerInfo.pgfCustomerInfo.Page1      Caption = "Status"
Height = 17
Left = 599
Top = 407
Width = 37
TabIndex = 26
BackColor = 192,192,192
Name = "lblCu_status"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_id      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_id"
Height = 23
Left = 137
MaxLength = 8
TabIndex = 2
Top = 19
Width = 65
Name = "txtCu_id"
      t_label      ..\libs\t_base.vcx      label      lblCu_id      %frmCustomerInfo.pgfCustomerInfo.Page2      hCaption = "Customer ID"
Height = 17
Left = 22
Top = 19
Width = 72
TabIndex = 1
Name = "lblCu_id"
      	t_textbox      ..\libs\t_base.vcx      textbox      	txtCu_pin      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_pin"
Height = 23
Left = 137
MaxLength = 8
TabIndex = 4
Top = 47
Width = 65
Name = "txtCu_pin"
      t_label      ..\libs\t_base.vcx      label      	lblCu_pin      %frmCustomerInfo.pgfCustomerInfo.Page2      aCaption = "PIN"
Height = 17
Left = 24
Top = 47
Width = 22
TabIndex = 3
Name = "lblCu_pin"
      	t_textbox      ..\libs\t_base.vcx      textbox      	txtCu_pic      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_pic"
Height = 23
Left = 137
MaxLength = 7
TabIndex = 6
Top = 73
Width = 58
Name = "txtCu_pic"
      t_label      ..\libs\t_base.vcx      label      	lblCu_pic      %frmCustomerInfo.pgfCustomerInfo.Page2      aCaption = "PIC"
Height = 17
Left = 24
Top = 73
Width = 22
TabIndex = 5
Name = "lblCu_pic"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_custnum      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_custnum"
Height = 23
Left = 137
MaxLength = 6
TabIndex = 8
Top = 104
Width = 52
Name = "txtCu_custnum"
      t_label      ..\libs\t_base.vcx      label      lblCu_custnum      %frmCustomerInfo.pgfCustomerInfo.Page2      sCaption = "Customer Number"
Height = 17
Left = 22
Top = 104
Width = 105
TabIndex = 7
Name = "lblCu_custnum"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_acctno      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_acctno"
Height = 23
InputMask = "A999999"
Left = 137
MaxLength = 7
TabIndex = 10
Top = 138
Width = 58
Name = "txtCu_acctno"
      t_label      ..\libs\t_base.vcx      label      lblCu_acctno      %frmCustomerInfo.pgfCustomerInfo.Page2      pCaption = "Account Number"
Height = 17
Left = 22
Top = 138
Width = 93
TabIndex = 9
Name = "lblCu_acctno"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_region      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_region"
Height = 23
Left = 137
TabIndex = 12
Top = 169
Width = 21
Name = "txtCu_region"
      t_label      ..\libs\t_base.vcx      label      lblCu_region      %frmCustomerInfo.pgfCustomerInfo.Page2      iCaption = "Region"
Height = 17
Left = 22
Top = 169
Width = 42
TabIndex = 11
Name = "lblCu_region"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_group      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_group"
Height = 23
Left = 239
MaxLength = 6
TabIndex = 14
Top = 140
Width = 52
Name = "txtCu_group"
      t_label      ..\libs\t_base.vcx      label      lblCu_group      %frmCustomerInfo.pgfCustomerInfo.Page2      hCaption = "Group"
Height = 17
Left = 203
Top = 140
Width = 36
TabIndex = 13
Name = "lblCu_group"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_intercd      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_intercd"
Height = 23
Left = 137
MaxLength = 1
TabIndex = 16
Top = 199
Width = 21
Name = "txtCu_intercd"
      t_label      ..\libs\t_base.vcx      label      lblCu_intercd      %frmCustomerInfo.pgfCustomerInfo.Page2      nCaption = "Cu_intercd"
Height = 17
Left = 22
Top = 199
Width = 62
TabIndex = 15
Name = "lblCu_intercd"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_ftrans      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_ftrans"
Height = 23
Left = 137
TabIndex = 18
Top = 228
Width = 71
Name = "txtCu_ftrans"
      t_label      ..\libs\t_base.vcx      label      lblCu_ftrans      %frmCustomerInfo.pgfCustomerInfo.Page2      vCaption = "First Transmission"
Height = 17
Left = 22
Top = 228
Width = 106
TabIndex = 17
Name = "lblCu_ftrans"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_ltrans      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_ltrans"
Height = 23
Left = 137
TabIndex = 20
Top = 251
Width = 71
Name = "txtCu_ltrans"
      t_label      ..\libs\t_base.vcx      label      lblCu_ltrans      %frmCustomerInfo.pgfCustomerInfo.Page2      uCaption = "Last Transmission"
Height = 17
Left = 22
Top = 251
Width = 106
TabIndex = 19
Name = "lblCu_ltrans"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_startdt      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_startdt"
Height = 23
Left = 137
TabIndex = 22
Top = 273
Width = 71
Name = "txtCu_startdt"
      t_label      ..\libs\t_base.vcx      label      lblCu_startdt      %frmCustomerInfo.pgfCustomerInfo.Page2      nCaption = "Start Date"
Height = 17
Left = 22
Top = 273
Width = 56
TabIndex = 21
Name = "lblCu_startdt"
      	t_textbox      ..\libs\t_base.vcx      textbox      
txtCu_disk      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_disk"
Height = 23
Left = 137
MaxLength = 1
TabIndex = 24
Top = 295
Width = 21
Name = "txtCu_disk"
      t_label      ..\libs\t_base.vcx      label      
lblCu_disk      %frmCustomerInfo.pgfCustomerInfo.Page2      hCaption = "Cu_disk"
Height = 17
Left = 22
Top = 295
Width = 48
TabIndex = 23
Name = "lblCu_disk"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_strial      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_strial"
Height = 23
Left = 137
TabIndex = 26
Top = 318
Width = 71
Name = "txtCu_strial"
      t_label      ..\libs\t_base.vcx      label      lblCu_strial      %frmCustomerInfo.pgfCustomerInfo.Page2      nCaption = "Start Trial"
Height = 17
Left = 22
Top = 318
Width = 54
TabIndex = 25
Name = "lblCu_strial"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_ctrial      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_ctrial"
Height = 23
Left = 500
TabIndex = 28
Top = 344
Width = 71
Name = "txtCu_ctrial"
      t_label      ..\libs\t_base.vcx      label      lblCu_ctrial      %frmCustomerInfo.pgfCustomerInfo.Page2      pCaption = "Cancel Trial"
Height = 17
Left = 400
Top = 344
Width = 68
TabIndex = 27
Name = "lblCu_ctrial"
      	t_textbox      ..\libs\t_base.vcx      textbox      
txtCu_disc      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_disc"
Height = 23
Left = 137
MaxLength = 4
TabIndex = 30
Top = 352
Width = 39
Name = "txtCu_disc"
      t_label      ..\libs\t_base.vcx      label      
lblCu_disc      %frmCustomerInfo.pgfCustomerInfo.Page2      iCaption = "Discount"
Height = 17
Left = 22
Top = 352
Width = 51
TabIndex = 29
Name = "lblCu_disc"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_netuser      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_netuser"
Height = 23
Left = 137
TabIndex = 32
Top = 381
Width = 28
Name = "txtCu_netuser"
      t_label      ..\libs\t_base.vcx      label      lblCu_netuser      %frmCustomerInfo.pgfCustomerInfo.Page2      mCaption = "Net Users"
Height = 17
Left = 22
Top = 381
Width = 58
TabIndex = 31
Name = "lblCu_netuser"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_interfa      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_interfa"
Height = 23
Left = 500
MaxLength = 20
TabIndex = 34
Top = 23
Width = 148
Name = "txtCu_interfa"
      t_label      ..\libs\t_base.vcx      label      lblCu_interfa      %frmCustomerInfo.pgfCustomerInfo.Page2      mCaption = "Interface"
Height = 17
Left = 400
Top = 23
Width = 49
TabIndex = 33
Name = "lblCu_interfa"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_interdt      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_interdt"
Height = 23
Left = 500
TabIndex = 36
Top = 54
Width = 71
Name = "txtCu_interdt"
      t_label      ..\libs\t_base.vcx      label      lblCu_interdt      %frmCustomerInfo.pgfCustomerInfo.Page2      lCaption = "Tax Rate"
Height = 17
Left = 400
Top = 54
Width = 50
TabIndex = 35
Name = "lblCu_interdt"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_maildt      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_maildt"
Height = 23
Left = 500
TabIndex = 38
Top = 85
Width = 71
Name = "txtCu_maildt"
      t_label      ..\libs\t_base.vcx      label      lblCu_maildt      %frmCustomerInfo.pgfCustomerInfo.Page2      lCaption = "Mail Date"
Height = 17
Left = 400
Top = 85
Width = 53
TabIndex = 37
Name = "lblCu_maildt"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_taxrate      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_taxrate"
Height = 23
Left = 500
TabIndex = 40
Top = 111
Width = 41
Name = "txtCu_taxrate"
      t_label      ..\libs\t_base.vcx      label      lblCu_taxrate      %frmCustomerInfo.pgfCustomerInfo.Page2      mCaption = "Tax Rate"
Height = 17
Left = 400
Top = 111
Width = 50
TabIndex = 39
Name = "lblCu_taxrate"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_market      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_market"
Height = 23
Left = 500
MaxLength = 1
TabIndex = 42
Top = 138
Width = 21
Name = "txtCu_market"
      t_label      ..\libs\t_base.vcx      label      lblCu_market      %frmCustomerInfo.pgfCustomerInfo.Page2      jCaption = "Market"
Height = 17
Left = 400
Top = 138
Width = 38
TabIndex = 41
Name = "lblCu_market"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_compdat      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_compdat"
Height = 23
Left = 500
TabIndex = 44
Top = 161
Width = 71
Name = "txtCu_compdat"
      t_label      ..\libs\t_base.vcx      label      lblCu_compdat      %frmCustomerInfo.pgfCustomerInfo.Page2      nCaption = "Comp Date"
Height = 17
Left = 400
Top = 169
Width = 65
TabIndex = 43
Name = "lblCu_compdat"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_shipchg      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_shipchg"
Height = 23
Left = 500
TabIndex = 46
Top = 189
Width = 48
Name = "txtCu_shipchg"
      t_label      ..\libs\t_base.vcx      label      lblCu_shipchg      %frmCustomerInfo.pgfCustomerInfo.Page2      mCaption = "Shipping"
Height = 17
Left = 400
Top = 189
Width = 51
TabIndex = 45
Name = "lblCu_shipchg"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      chkCu_wrldug      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
Top = 404
Left = 491
Height = 17
Width = 101
Caption = "World Upgrade"
ControlSource = "customer.cu_wrldug"
Enabled = .F.
Name = "chkCu_wrldug"
      	t_textbox      ..\libs\t_base.vcx      textbox      	txtCu_san      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_san"
Height = 23
Left = 500
MaxLength = 12
TabIndex = 51
Top = 217
Width = 93
Name = "txtCu_san"
      t_label      ..\libs\t_base.vcx      label      	lblCu_san      %frmCustomerInfo.pgfCustomerInfo.Page2      dCaption = "San"
Height = 17
Left = 400
Top = 217
Width = 24
TabIndex = 50
Name = "lblCu_san"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_remitto      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_remitto"
Height = 23
Left = 500
MaxLength = 3
TabIndex = 53
Top = 243
Width = 33
Name = "txtCu_remitto"
      t_label      ..\libs\t_base.vcx      label      lblCu_remitto      %frmCustomerInfo.pgfCustomerInfo.Page2      mCaption = "Remit to"
Height = 17
Left = 400
Top = 243
Width = 48
TabIndex = 52
Name = "lblCu_remitto"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_convrat      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_convrat"
Height = 23
Left = 500
MaxLength = 3
TabIndex = 55
Top = 265
Width = 33
Name = "txtCu_convrat"
      t_label      ..\libs\t_base.vcx      label      lblCu_convrat      %frmCustomerInfo.pgfCustomerInfo.Page2      uCaption = "Convertsion rate"
Height = 17
Left = 400
Top = 268
Width = 92
TabIndex = 54
Name = "lblCu_convrat"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_pc130pd      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_pc130pd"
Height = 23
Left = 500
MaxLength = 10
TabIndex = 57
Top = 293
Width = 79
Name = "txtCu_pc130pd"
      t_label      ..\libs\t_base.vcx      label      lblCu_pc130pd      %frmCustomerInfo.pgfCustomerInfo.Page2      oCaption = "Cu_pc130pd"
Height = 17
Left = 400
Top = 293
Width = 73
TabIndex = 56
Name = "lblCu_pc130pd"
      	t_textbox      ..\libs\t_base.vcx      textbox      
txtCu_terr      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_terr"
Height = 23
Left = 500
MaxLength = 3
TabIndex = 59
Top = 313
Width = 33
Name = "txtCu_terr"
      t_label      ..\libs\t_base.vcx      label      
lblCu_terr      %frmCustomerInfo.pgfCustomerInfo.Page2      kCaption = "Territory"
Height = 17
Left = 400
Top = 316
Width = 46
TabIndex = 58
Name = "lblCu_terr"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      	chkCu_new      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
Top = 404
Left = 371
Height = 17
Width = 43
Caption = "New"
ControlSource = "customer.cu_new"
Enabled = .F.
Name = "chkCu_new"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_status      %frmCustomerInfo.pgfCustomerInfo.Page2      Comment = ""
ControlSource = "customer.cu_status"
Format = "X"
Height = 23
Left = 659
MaxLength = 1
TabIndex = 62
Top = 412
Width = 21
Name = "txtCu_status"
     5PROCEDURE Refresh
* Update color of status field
DO CASE
	CASE customer.Cu_status = 'A'
		This.backcolor = RGB(0,128,0)			&& Green
	CASE customer.Cu_status = 'I'
		This.backcolor = RGB(255,255,0)			&& Yellow
	CASE customer.Cu_status = 'D'
		This.backcolor = RGB(255,0,0)			&& Red
ENDCASE

ENDPROC
      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      lblSa_creason      label      ..\libs\t_base.vcx      t_label      Comment = ""
ControlSource = "v_salesforcustomer.sa_creason"
Height = 23
Left = 125
MaxLength = 35
TabIndex = 61
Top = 392
Width = 253
Name = "txtSa_creason"
      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      txtSa_creason      textbox      t_label      ..\libs\t_base.vcx      label      lblCu_status      %frmCustomerInfo.pgfCustomerInfo.Page2      jCaption = "Status"
Height = 17
Left = 614
Top = 412
Width = 37
TabIndex = 61
Name = "lblCu_status"
      	t_textbox      ..\libs\t_base.vcx      textbox      
T_textbox1      %frmCustomerInfo.pgfCustomerInfo.Page2      cComment = ""
ControlSource = "thisform.nChangesLost"
Left = 251
Top = 236
Name = "T_textbox1"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_notes      %frmCustomerInfo.pgfCustomerInfo.Page3      Comment = ""
ControlSource = "customer.cu_notes"
Height = 396
Left = 11
MaxLength = 254
TabIndex = 48
Top = 8
Width = 670
Name = "txtCu_notes"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtCu_status      %frmCustomerInfo.pgfCustomerInfo.Page3      Comment = ""
ControlSource = "customer.cu_status"
Format = "X"
Height = 23
Left = 670
MaxLength = 1
TabIndex = 50
Top = 415
Width = 21
Name = "txtCu_status"
     5PROCEDURE Refresh
* Update color of status field
DO CASE
	CASE customer.Cu_status = 'A'
		This.backcolor = RGB(0,128,0)			&& Green
	CASE customer.Cu_status = 'I'
		This.backcolor = RGB(255,255,0)			&& Yellow
	CASE customer.Cu_status = 'D'
		This.backcolor = RGB(255,0,0)			&& Red
ENDCASE

ENDPROC
      ..\libs\t_base.vcx      	t_textbox      Comment = ""
Top = 296
Left = 500
Height = 17
Width = 78
Caption = "Internal use"
ControlSource = "v_salesforcustomer.sa_interne"
Enabled = .F.
Name = "chkSa_interne"
      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      chkSa_interne      checkbox      ..\libs\t_base.vcx      
t_checkbox      lblSa_invfee      t_label      ..\libs\t_base.vcx      label      lblCu_status      %frmCustomerInfo.pgfCustomerInfo.Page3      jCaption = "Status"
Height = 17
Left = 625
Top = 415
Width = 37
TabIndex = 49
Name = "lblCu_status"
      t_grid      ..\libs\t_base.vcx      grid      T_grid1      %frmCustomerInfo.pgfCustomerInfo.Page4      ColumnCount = 3
Height = 444
Left = 0
ReadOnly = .T.
RecordSource = "v_salesforcustomer"
Top = -4
Width = 696
Name = "T_grid1"
Column1.ControlSource = "v_salesforcustomer.sa_status"
Column1.Width = 40
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.ControlSource = "v_salesforcustomer.sa_qty"
Column2.Width = 40
Column2.ReadOnly = .T.
Column2.Name = "Column2"
Column3.ControlSource = "v_salesforcustomer.pr_descrip"
Column3.Width = 400
Column3.ReadOnly = .T.
Column3.Name = "Column3"
      header      header      Header1      5frmCustomerInfo.pgfCustomerInfo.Page4.T_grid1.Column1      5Alignment = 2
Caption = "Status"
Name = "Header1"
      textbox      textbox      Text1      5frmCustomerInfo.pgfCustomerInfo.Page4.T_grid1.Column1      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      5frmCustomerInfo.pgfCustomerInfo.Page4.T_grid1.Column2      2Alignment = 2
Caption = "Qty"
Name = "Header1"
      textbox      textbox      Text1      5frmCustomerInfo.pgfCustomerInfo.Page4.T_grid1.Column2      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      5frmCustomerInfo.pgfCustomerInfo.Page4.T_grid1.Column3      :Alignment = 2
Caption = "Description"
Name = "Header1"
      textbox      textbox      Text1      5frmCustomerInfo.pgfCustomerInfo.Page4.T_grid1.Column3      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      	t_textbox      ..\libs\t_base.vcx      textbox      	txtSa_qty      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
ControlSource = "v_salesforcustomer.sa_qty"
Height = 23
Left = 76
TabIndex = 2
Top = 8
Width = 33
Name = "txtSa_qty"
      t_label      ..\libs\t_base.vcx      label      	lblSa_qty      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      fCaption = "Quantity"
Height = 17
Left = 21
Top = 10
Width = 50
TabIndex = 1
Name = "lblSa_qty"
      t_label      ..\libs\t_base.vcx      label      lblPr_descrip      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      nCaption = "Description"
Height = 17
Left = 133
Top = 10
Width = 62
TabIndex = 3
Name = "lblPr_descrip"
      	t_textbox      ..\libs\t_base.vcx      textbox      
txtPr_list      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
ControlSource = "v_salesforcustomer.pr_list"
Height = 23
Left = 611
TabIndex = 6
Top = 10
Width = 75
Name = "txtPr_list"
      t_label      ..\libs\t_base.vcx      label      
lblPr_list      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      dCaption = "List"
Height = 17
Left = 577
Top = 12
Width = 28
TabIndex = 5
Name = "lblPr_list"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtSa_status      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
ControlSource = "v_salesforcustomer.sa_status"
Height = 23
Left = 665
MaxLength = 1
TabIndex = 8
Top = 404
Width = 21
Name = "txtSa_status"
      t_label      ..\libs\t_base.vcx      label      lblSa_status      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      iCaption = "Status"
Height = 17
Left = 617
Top = 407
Width = 42
TabIndex = 7
Name = "lblSa_status"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtPr_descrip      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
ControlSource = "v_salesforcustomer.pr_descrip"
Height = 23
Left = 205
MaxLength = 50
TabIndex = 4
Top = 10
Width = 358
Name = "txtPr_descrip"
      	t_textbox      ..\libs\t_base.vcx      textbox      
txtSa_date      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
ControlSource = "v_salesforcustomer.sa_date"
Height = 23
Left = 125
TabIndex = 10
Top = 76
Width = 71
Name = "txtSa_date"
      t_label      ..\libs\t_base.vcx      label      
lblSa_date      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      iCaption = "Start date"
Height = 17
Left = 21
Top = 76
Width = 75
TabIndex = 9
Name = "lblSa_date"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtSa_enddt      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
ControlSource = "v_salesforcustomer.sa_enddt"
Height = 23
Left = 125
TabIndex = 12
Top = 111
Width = 71
Name = "txtSa_enddt"
      t_label      ..\libs\t_base.vcx      label      lblSa_enddt      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      jCaption = "End date"
Height = 17
Left = 21
Top = 111
Width = 75
TabIndex = 11
Name = "lblSa_enddt"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtSa_finvdt      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
ControlSource = "v_salesforcustomer.sa_finvdt"
Height = 23
Left = 125
TabIndex = 14
Top = 149
Width = 71
Name = "txtSa_finvdt"
      t_label      ..\libs\t_base.vcx      label      lblSa_finvdt      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      pCaption = "First invoice"
Height = 17
Left = 21
Top = 149
Width = 75
TabIndex = 13
Name = "lblSa_finvdt"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtSa_linvdt      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
ControlSource = "v_salesforcustomer.sa_linvdt"
Height = 23
Left = 125
TabIndex = 16
Top = 176
Width = 71
Name = "txtSa_linvdt"
      t_label      ..\libs\t_base.vcx      label      lblSa_linvdt      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      oCaption = "Last invoice"
Height = 17
Left = 21
Top = 176
Width = 75
TabIndex = 15
Name = "lblSa_linvdt"
      	t_textbox      ..\libs\t_base.vcx      textbox      
txtSa_disc      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
ControlSource = "v_salesforcustomer.sa_disc"
Height = 23
Left = 125
TabIndex = 18
Top = 217
Width = 41
Name = "txtSa_disc"
      t_label      ..\libs\t_base.vcx      label      
lblSa_disc      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      iCaption = "Discount"
Height = 17
Left = 21
Top = 217
Width = 75
TabIndex = 17
Name = "lblSa_disc"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtSa_cancel      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
ControlSource = "v_salesforcustomer.sa_cancel"
Height = 23
Left = 125
TabIndex = 20
Top = 249
Width = 71
Name = "txtSa_cancel"
      t_label      ..\libs\t_base.vcx      label      lblSa_cancel      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      nCaption = "Cancel date"
Height = 17
Left = 21
Top = 249
Width = 75
TabIndex = 19
Name = "lblSa_cancel"
      	t_textbox      ..\libs\t_base.vcx      textbox      
txtSa_tech      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
ControlSource = "v_salesforcustomer.sa_tech"
Height = 23
Left = 125
MaxLength = 3
TabIndex = 22
Top = 283
Width = 33
Name = "txtSa_tech"
      t_label      ..\libs\t_base.vcx      label      
lblSa_tech      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      hCaption = "Sa_tech"
Height = 17
Left = 21
Top = 283
Width = 75
TabIndex = 21
Name = "lblSa_tech"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtSa_billcd      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
ControlSource = "v_salesforcustomer.sa_billcd"
Height = 23
Left = 347
MaxLength = 1
TabIndex = 24
Top = 80
Width = 21
Name = "txtSa_billcd"
      t_label      ..\libs\t_base.vcx      label      lblSa_billcd      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      oCaption = "Billing code"
Height = 17
Left = 263
Top = 78
Width = 75
TabIndex = 23
Name = "lblSa_billcd"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtSa_version      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
ControlSource = "v_salesforcustomer.sa_version"
Height = 23
Left = 347
MaxLength = 5
TabIndex = 26
Top = 104
Width = 45
Name = "txtSa_version"
      t_label      ..\libs\t_base.vcx      label      lblSa_version      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      lCaption = "Version"
Height = 17
Left = 268
Top = 108
Width = 75
TabIndex = 25
Name = "lblSa_version"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      chkSa_upgrade      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 296
Left = 600
Height = 17
Width = 86
Caption = "Upgrade"
ControlSource = "v_salesforcustomer.sa_upgrade"
Enabled = .F.
Name = "chkSa_upgrade"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_sjan      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 105
Left = 500
Height = 17
Width = 80
Caption = "January"
ControlSource = "v_salesforcustomer.sa_sjan"
Enabled = .F.
Name = "chkSa_sjan"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_sfeb      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 120
Left = 500
Height = 17
Width = 80
Caption = "February"
ControlSource = "v_salesforcustomer.sa_sfeb"
Enabled = .F.
Name = "chkSa_sfeb"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_smar      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 135
Left = 500
Height = 17
Width = 80
Caption = "March"
ControlSource = "v_salesforcustomer.sa_smar"
Enabled = .F.
Name = "chkSa_smar"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_sapr      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 150
Left = 500
Height = 17
Width = 80
Caption = "April"
ControlSource = "v_salesforcustomer.sa_sapr"
Enabled = .F.
Name = "chkSa_sapr"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_smay      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 165
Left = 500
Height = 17
Width = 80
Caption = "May"
ControlSource = "v_salesforcustomer.sa_smay"
Enabled = .F.
Name = "chkSa_smay"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_sjun      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 180
Left = 500
Height = 17
Width = 80
Caption = "June"
ControlSource = "v_salesforcustomer.sa_sjun"
Enabled = .F.
Name = "chkSa_sjun"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_sjul      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 195
Left = 500
Height = 17
Width = 80
Caption = "July"
ControlSource = "v_salesforcustomer.sa_sjul"
Enabled = .F.
Name = "chkSa_sjul"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_saug      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 210
Left = 500
Height = 17
Width = 80
Caption = "August"
ControlSource = "v_salesforcustomer.sa_saug"
Enabled = .F.
Name = "chkSa_saug"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_ssep      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 225
Left = 500
Height = 17
Width = 80
Caption = "September"
ControlSource = "v_salesforcustomer.sa_ssep"
Enabled = .F.
Name = "chkSa_ssep"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_soct      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 240
Left = 500
Height = 17
Width = 80
Caption = "October"
ControlSource = "v_salesforcustomer.sa_soct"
Enabled = .F.
Name = "chkSa_soct"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_snov      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 255
Left = 500
Height = 17
Width = 80
Caption = "November"
ControlSource = "v_salesforcustomer.sa_snov"
Enabled = .F.
Name = "chkSa_snov"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_sdec      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 270
Left = 500
Height = 17
Width = 80
Caption = "December"
ControlSource = "v_salesforcustomer.sa_sdec"
Enabled = .F.
Name = "chkSa_sdec"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_bjan      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 105
Left = 600
Height = 17
Width = 80
Caption = "January"
ControlSource = "v_salesforcustomer.sa_bjan"
Enabled = .F.
Name = "chkSa_bjan"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_bfeb      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 120
Left = 600
Height = 17
Width = 80
Caption = "February"
ControlSource = "v_salesforcustomer.sa_bfeb"
Enabled = .F.
Name = "chkSa_bfeb"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_bmar      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 135
Left = 600
Height = 17
Width = 80
Caption = "March"
ControlSource = "v_salesforcustomer.sa_bmar"
Enabled = .F.
Name = "chkSa_bmar"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_bapr      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 150
Left = 600
Height = 17
Width = 80
Caption = "April"
ControlSource = "v_salesforcustomer.sa_bapr"
Enabled = .F.
Name = "chkSa_bapr"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_bmay      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 165
Left = 600
Height = 17
Width = 80
Caption = "May"
ControlSource = "v_salesforcustomer.sa_bmay"
Enabled = .F.
Name = "chkSa_bmay"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_bjun      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 180
Left = 600
Height = 17
Width = 80
Caption = "June"
ControlSource = "v_salesforcustomer.sa_bjun"
Enabled = .F.
Name = "chkSa_bjun"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_bjul      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 195
Left = 600
Height = 17
Width = 80
Caption = "July"
ControlSource = "v_salesforcustomer.sa_bjul"
Enabled = .F.
Name = "chkSa_bjul"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_baug      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 210
Left = 600
Height = 17
Width = 80
Caption = "August"
ControlSource = "v_salesforcustomer.sa_baug"
Enabled = .F.
Name = "chkSa_baug"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_bsep      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 225
Left = 600
Height = 17
Width = 80
Caption = "September"
ControlSource = "v_salesforcustomer.sa_bsep"
Enabled = .F.
Name = "chkSa_bsep"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_boct      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 240
Left = 600
Height = 17
Width = 80
Caption = "October"
ControlSource = "v_salesforcustomer.sa_boct"
Enabled = .F.
Name = "chkSa_boct"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_bnov      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 255
Left = 600
Height = 17
Width = 80
Caption = "November"
ControlSource = "v_salesforcustomer.sa_bnov"
Enabled = .F.
Name = "chkSa_bnov"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      
chkSa_bdec      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 270
Left = 600
Height = 17
Width = 80
Caption = "December"
ControlSource = "v_salesforcustomer.sa_bdec"
Enabled = .F.
Name = "chkSa_bdec"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      	chkSa_bip      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 320
Left = 500
Height = 17
Width = 57
Caption = "BIP"
ControlSource = "v_salesforcustomer.sa_bip"
Enabled = .F.
Name = "chkSa_bip"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      chkSa_windows      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 320
Left = 600
Height = 17
Width = 89
Caption = "Windows"
ControlSource = "v_salesforcustomer.sa_windows"
Enabled = .F.
Name = "chkSa_windows"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtSa_linvnum      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
ControlSource = "v_salesforcustomer.sa_linvnum"
Height = 23
Left = 125
MaxLength = 20
TabIndex = 55
Top = 357
Width = 148
Name = "txtSa_linvnum"
      t_label      ..\libs\t_base.vcx      label      lblSa_linvnum      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      pCaption = "Last invoice"
Height = 17
Left = 21
Top = 357
Width = 75
TabIndex = 54
Name = "lblSa_linvnum"
      
t_checkbox      ..\libs\t_base.vcx      checkbox      chkSa_doprnt      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
Top = 407
Left = 539
Height = 17
Width = 75
Caption = "Print"
ControlSource = "v_salesforcustomer.sa_doprnt"
Enabled = .F.
Name = "chkSa_doprnt"
      	t_textbox      ..\libs\t_base.vcx      textbox      txtSa_invfee      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      Comment = ""
ControlSource = "v_salesforcustomer.sa_invfee"
Height = 23
Left = 125
TabIndex = 58
Top = 308
Width = 41
Name = "txtSa_invfee"
      t_label      ..\libs\t_base.vcx      label      .frmCustomerInfo.pgfCustomerInfo.pagSalesDetail      nCaption = "Invoice Fee"
Height = 17
Left = 21
Top = 308
Width = 75
TabIndex = 57
Name = "lblSa_invfee"
                                      %         }  #   7            U  T 	 C T    Customer F    T    CW T    a U  THISFORM CCURRENTTABLE
 CMDBUTTONS	 NWORKAREA CBOWHICHINDEX ENABLEDT 	 C T    Customer F    T    CW T    a U  THISFORM CCURRENTTABLE
 CMDBUTTONS	 NWORKAREA CBOWHICHINDEX ENABLEDT 	 C T    Customer F    T    CW T    a U  THISFORM CCURRENTTABLE
 CMDBUTTONS	 NWORKAREA CBOWHICHINDEX ENABLEDz 	 C" T    v_SalesForCustomer F    T    CW C    C   T    - U  THISFORM CCURRENTTABLE
 CMDBUTTONS	 NWORKAREA THIS REFRESH CBOWHICHINDEX ENABLEDz 	 C" T    v_SalesForCustomer F    C    C   T    CW T    - U  THISFORM CCURRENTTABLE THIS REFRESH
 CMDBUTTONS	 NWORKAREA CBOWHICHINDEX ENABLED Page1.Activate,      Page2.Activate      Page3.Activatel     Page4.Activate     pagSalesDetail.Activate    1   #3   #3   #3  ! #  3  !   #2                                %          0  A        f    %          3    )                          6PROCEDURE cmdTop.Click
DODEFAULT()
thisform.cCustomerID = Customer.cu_id
ENDPROC
PROCEDURE cmdPrev.Click
DODEFAULT()
thisform.cCustomerID = Customer.cu_id
ENDPROC
PROCEDURE cmdPrev.Error
LPARAMETERS nerror,cmethod,nline
wait window "hi"
ENDPROC
PROCEDURE cmdNext.Click
DODEFAULT()
thisform.cCustomerID = Customer.cu_id
ENDPROC
PROCEDURE cmdEnd.Click
DODEFAULT()
thisform.cCustomerID = Customer.cu_id
ENDPROC
PROCEDURE CMDADD.Click
* If we are adding a record turn off appropriate pages
* Else
* We are saving and turn all pages on
IF THIS.caption = "\<Add"
	* If the active page is less than 4 then we are adding a customer
	* ELSE
	* We are adding a sales record
	IF ThisForm.pgfCustomerInfo.activepage < 4
		ThisForm.pgfCustomerInfo.Page4.enabled = .F.
		ThisForm.pgfCustomerInfo.pagSalesDetail.enabled = .F.
		Thisform.pgfCustomerInfo.activepage = 1
		ThisForm.pgfCustomerInfo.Page1.cmdCopyAddress.visible = .T.
	ELSE
		ThisForm.pgfCustomerInfo.Page1.enabled = .F.
		ThisForm.pgfCustomerInfo.Page2.enabled = .F.
		ThisForm.pgfCustomerInfo.Page3.enabled = .F.
		ThisForm.pgfCustomerInfo.Page4.enabled = .F.
	ENDI
ELSE
	ThisForm.pgfCustomerInfo.Page1.enabled = .T.
	ThisForm.pgfCustomerInfo.Page2.enabled = .T.
	ThisForm.pgfCustomerInfo.Page3.enabled = .T.
	ThisForm.pgfCustomerInfo.Page4.enabled = .T.
	ThisForm.pgfCustomerInfo.pagSalesDetail.enabled = .T.
	ThisForm.pgfCustomerInfo.Page1.cmdCopyAddress.visible = .F.
ENDIF

DODEFAULT()

ENDPROC
PROCEDURE cmdEdit.Click
* If we are editing a record turn off appropriate pages
* Else
* We are cancelling edits and turn all pages on
IF This.caption = "\<Edit"
	* If the active page is less than 4 then we are editing a customer
	* ELSE
	* We are editing a sales record
	IF ThisForm.pgfCustomerInfo.activepage < 4
		ThisForm.pgfCustomerInfo.Page4.enabled = .F.
		ThisForm.pgfCustomerInfo.pagSalesDetail.enabled = .F.
		ThisForm.pgfCustomerInfo.Page1.cmdCopyAddress.visible = .T.
	ELSE
		ThisForm.pgfCustomerInfo.Page1.enabled = .F.
		ThisForm.pgfCustomerInfo.Page2.enabled = .F.
		ThisForm.pgfCustomerInfo.Page3.enabled = .F.
		ThisForm.pgfCustomerInfo.Page4.enabled = .F.
	ENDIF
ELSE
		ThisForm.pgfCustomerInfo.Page1.enabled = .T.
		ThisForm.pgfCustomerInfo.Page2.enabled = .T.
		ThisForm.pgfCustomerInfo.Page3.enabled = .T.
		ThisForm.pgfCustomerInfo.Page4.enabled = .T.
		ThisForm.pgfCustomerInfo.pagSalesDetail.enabled = .T.
		ThisForm.pgfCustomerInfo.Page1.cmdCopyAddress.visible = .F.
ENDIF

DODEFAULT()

ENDPROC
PROCEDURE cmdDelete.Click
LOCAL lcNewStatus, lcOldStatus

* We are working on a customer record
IF ThisForm.pgfCustomerInfo.activepage < 4

	lcOldStatus = customer.cu_status
	lcNewStatus = ""
	
	&& Call the StatusChange dialog box
	DO FORM forms\StatusChange WITH lcOldStatus TO lcNewStatus

	* If status of record has changed, do replace
	IF lcNewStatus <> lcOldStatus
		REPLACE customer.cu_status WITH lcNewStatus
		ThisForm.pgfCustomerInfo.Page1.txtCu_status.value = lcNewStatus
		ThisForm.pgfCustomerInfo.Page2.txtCu_status.value = lcNewStatus
		ThisForm.pgfCustomerInfo.Page3.txtCu_status.value = lcNewStatus
		thisform.ChangeSalesStatus
	ENDIF
ELSE
	&& We are working on a sales reocrd
	lcOldStatus = v_SalesForCustomer.sa_status
	lcNewStatus = ""
	
	DO FORM forms\StatusChange WITH lcOldStatus TO lcNewStatus

	* If status of record has changed, do replace
	IF lcNewStatus <> lcOldStatus AND customer.cu_status = 'A'
		REPLACE v_SalesForCustomer.sa_status WITH lcNewStatus
	ELSE
		WAIT WINDOW 'Customer record is not active' 
	ENDIF
ENDIF
ENDPROC
     	    	  	                           %         	  R   r            U   	 C T      U  THISFORM CCUSTOMERID CUSTOMER CU_ID 	 C T      U  THISFORM CCUSTOMERID CUSTOMER CU_ID       R, hi U  NERROR CMETHOD NLINE 	 C T      U  THISFORM CCUSTOMERID CUSTOMER CU_ID 	 C T      U  THISFORM CCUSTOMERID CUSTOMER CU_IDq %    \<Add  %     T    - T    - T    T   	 
 a   T    - T    - T    - T    -  a T    a T    a T    a T    a T    a T   	 
 - 	 C U  THIS CAPTION THISFORM PGFCUSTOMERINFO
 ACTIVEPAGE PAGE4 ENABLED PAGSALESDETAIL PAGE1 CMDCOPYADDRESS VISIBLE PAGE2 PAGE3_ %    \<Edit  %   p  T    - T    - T   	 
 a   T    - T    - T    - T    -  O T    a T    a T    a T    a T    a T   	 
 - 	 C U  THIS CAPTION THISFORM PGFCUSTOMERINFO
 ACTIVEPAGE PAGE4 ENABLED PAGSALESDETAIL PAGE1 CMDCOPYADDRESS VISIBLE PAGE2 PAGE3     %     T    T    "  forms\StatusChange(    %     >     T   	 
    T   	 
    T   	 
   
      T    T    "  forms\StatusChange(     %       A	R >     ' R, Customer record is not active   U  LCNEWSTATUS LCOLDSTATUS THISFORM PGFCUSTOMERINFO
 ACTIVEPAGE CUSTOMER	 CU_STATUS FORMS PAGE1 TXTCU_STATUS VALUE PAGE2 PAGE3 CHANGESALESSTATUS V_SALESFORCUSTOMER	 SA_STATUS cmdTop.Click,      cmdPrev.Clickw      cmdPrev.Error      cmdNext.Click      cmdEnd.ClickG     CMDADD.Click     cmdEdit.Click     cmdDelete.Clickr    1  12  12   2  12  12 tAA1q AAAAA  AAAAAqA  3 tAAq AAAAA  AAAAAqA  3  s # A   " qA A 1                       J         n                  	   
     L        o                 &     	  4   ;   
  +  R    )   	                                                        %           %   H            U    F   H      A)     Iq 3 >               D	    D 6 >             	   D	  F  U
  SALES CUSTOMER	 CD_STATUS ALL	 SA_STATUS	 CU_STATUS FOR SA_CU_ID CU_ID SA       U  NERROR CMETHOD NLINE3   	 C T   Customer F   %C oUser.cNameb Ob  T  a x  T  -  T     (  %CC >   T       !         (   T   C   T      U  LNTAGCNT THISFORM CCURRENTTABLE LISREADONLY I
 CWHATINDEX CBOWHICHINDEX NUMBEROFELEMENTS changesalesstatus,      ErrorK     Inity    1 q  QR4QdA q 1  2 q      A  qQ A A A qA 21                                   :        B
  =    )                     
