,VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentJLeft = 68 Top = 53 Width = 520 Height = 200 Name = "Dataenvironment" 11formformForm1Top = 157 Left = 3 Height = 177 Width = 626 DoCreate = .T. BorderStyle = 1 Caption = "Employee File" Closable = .F. FontSize = 8 MaxButton = .F. MinButton = .F. Movable = .F. Icon = WindowType = 1 WindowState = 0 Name = "Form1"  pageframe pageframe Pageframe1Form1ErasePage = .T. PageCount = 2 Top = 7 Left = 0 Width = 594 Height = 172 TabIndex = 4 Name = "Pageframe1" Page1.Caption = "Leave" Page1.PageOrder = 1 Page1.Name = "Page1" Page2.Caption = "Current Salary" Page2.PageOrder = 2 Page2.Name = "Page2" textboxtextboxText1Form1.Pageframe1.Page1qFontSize = 8 ControlSource = "TLP" Height = 21 Left = 85 TabIndex = 4 Top = 26 Width = 82 Name = "Text1" PROCEDURE Valid XX = THL-TLP+1 THISFORM.PAGEFRAME1.PAGE1.TEXT4.REFRESH XX1=(TLP-LAD)*2.5*12/360 XX2=(TLP-LAD)*1.25*12/360 IF CON = 1 REPLACE NLD WITH XX1 ELSE REPLACE NLD WITH XX2 ENDIF THISFORM.PAGEFRAME1.PAGE1.TEXT6.REFRESH ENDPROC \*%Nu ]UT'T @ h 'T  ? h %  >  >  UXXTHLTLPTHISFORM PAGEFRAME1PAGE1TEXT4REFRESHXX1LADXX2CONNLDTEXT6Valid,1Q1qqA12)textboxtextboxText2Form1.Pageframe1.Page1rFontSize = 8 ControlSource = "THL" Height = 21 Left = 246 TabIndex = 6 Top = 26 Width = 85 Name = "Text2" WPROCEDURE Valid XX = THL-TLP+1 THISFORM.PAGEFRAME1.PAGE1.TEXT4.REFRESH ENDPROC c%U+TUXXTHLTLPTHISFORM PAGEFRAME1PAGE1TEXT4REFRESHValid,1Q13L)labellabelLabel1Form1.Pageframe1.Page1AutoSize = .T. FontSize = 8 Caption = "Vacation From" Height = 16 Left = 12 Top = 28 Width = 72 TabIndex = 3 Name = "Label1" labellabelLabel2Form1.Pageframe1.Page1AutoSize = .T. FontSize = 8 Caption = "Vacation To" Height = 16 Left = 183 Top = 28 Width = 60 TabIndex = 5 Name = "Label2" labellabelLabel3Form1.Pageframe1.Page1AutoSize = .T. FontSize = 8 Caption = "Last Arrived Date" Height = 16 Left = 8 Top = 78 Width = 87 TabIndex = 9 Name = "Label3" labellabelLabel4Form1.Pageframe1.Page1AutoSize = .T. FontSize = 8 Caption = "Ticket " Height = 16 Left = 405 Top = 86 Width = 33 TabIndex = 17 Name = "Label4" labellabelLabel7Form1.Pageframe1.Page1AutoSize = .T. FontSize = 8 Caption = "Action" Height = 16 Left = 405 Top = 63 Width = 33 TabIndex = 15 Name = "Label7" textboxtextboxText7Form1.Pageframe1.Page1qFontSize = 8 ControlSource = "CON" Height = 21 Left = 185 TabIndex = 2 Top = 2 Width = 17 Name = "Text7" labellabelLabel8Form1.Pageframe1.Page1AutoSize = .T. FontSize = 8 Caption = "Leave Condition (1=30 Days)" Height = 16 Left = 16 Top = 7 Width = 142 TabIndex = 1 Name = "Label8" textboxtextboxText8Form1.Pageframe1.Page1uFontSize = 8 ControlSource = "TRD" Height = 21 Left = 121 TabIndex = 14 Top = 100 Width = 107 Name = "Text8" labellabelLabel9Form1.Pageframe1.Page1AutoSize = .T. FontSize = 8 Caption = "Final Exit Date" Height = 16 Left = 10 Top = 102 Width = 69 TabIndex = 13 Name = "Label9" comboboxcomboboxCombo1Form1.Pageframe1.Page1RowSourceType = 1 RowSource = "Provided,In Cash" DisplayValue = ControlSource = "TPC" Height = 21 Left = 467 TabIndex = 18 Top = 84 Width = 115 Name = "Combo1" comboboxcomboboxCombo2Form1.Pageframe1.Page1RowSourceType = 1 RowSource = "Vacation,Resigned,Terminated" DisplayValue = ControlSource = "LRT" Height = 21 Left = 467 TabIndex = 16 Top = 61 Width = 115 Name = "Combo2" textboxtextboxText4Form1.Pageframe1.Page1FontSize = 8 ControlSource = "XX" Enabled = .F. Height = 21 Left = 407 TabIndex = 8 Top = 26 Width = 40 Name = "Text4" labellabelLabel6Form1.Pageframe1.Page1AutoSize = .T. FontSize = 8 Caption = "No. of Days" Height = 16 Left = 346 Top = 28 Width = 59 TabIndex = 7 Name = "Label6" textboxtextboxText6Form1.Pageframe1.Page1FontSize = 8 ControlSource = "NLD" Enabled = .T. Height = 21 Left = 540 TabIndex = 12 Top = 26 Width = 40 Name = "Text6" labellabelLabel10Form1.Pageframe1.Page1AutoSize = .T. FontSize = 8 Caption = "Accrued Days" Height = 16 Left = 466 Top = 28 Width = 72 TabIndex = 11 Name = "Label10" textboxtextboxText5Form1.Pageframe1.Page1tFontSize = 8 ControlSource = "LIC" Height = 21 Left = 384 TabIndex = 20 Top = 116 Width = 24 Name = "Text5" fPROCEDURE InteractiveChange This.Parent.COMBO2.ENABLED=.T. This.Parent.LABEL8.ENABLED=.T. ENDPROC $%U+TaTaUTHISPARENTCOMBO2ENABLEDLABEL8InteractiveChange,1AA1[)labellabelLabel5Form1.Pageframe1.Page1AutoSize = .T. FontSize = 8 Caption = "ESB (Final Exit - Y/N)" Height = 16 Left = 275 Top = 121 Width = 103 TabIndex = 19 Name = "Label5" textboxtextboxText3Form1.Pageframe1.Page1tFontSize = 8 ControlSource = "LAD" Height = 21 Left = 122 TabIndex = 10 Top = 76 Width = 107 Name = "Text3" PROCEDURE Click XX1=(TLP-LAD)*2.5*12/360 XX2=(TLP-LAD)*1.25*12/360 IF CON = 1 REPLACE NLD WITH XX1 ELSE REPLACE NLD WITH XX2 ENDIF THISFORM.PAGEFRAME1.PAGE1.TEXT6.REFRESH ENDPROC K%9 %U'T@ h 'T? h %l > > U XX1TLPLADXX2CONNLDTHISFORM PAGEFRAME1PAGE1TEXT6REFRESHClick,1qqA12)textboxtextboxText1Form1.Pageframe1.Page2sFontSize = 8 ControlSource = "SDF" Height = 21 Left = 100 TabIndex = 2 Top = 18 Width = 108 Name = "Text1" uPROCEDURE Valid YY=SDT-SDF+1 THISFORM.PAGEFRAME1.PAGE2.TEXT3.REFRESH IF SDF > TLP RETURN .F. ENDIF ENDPROC 6%UGT%@B-U YYSDTSDFTHISFORM PAGEFRAME1PAGE2TEXT3REFRESHTLPValid,1Q1qA1j)textboxtextboxText2Form1.Pageframe1.Page2sFontSize = 8 ControlSource = "SDT" Height = 21 Left = 300 TabIndex = 4 Top = 18 Width = 107 Name = "Text2" QPROCEDURE Valid YY=SDT-SDF+1 THISFORM.PAGEFRAME1.PAGE2.TEXT3.REFRESH ENDPROC c%U+TUYYSDTSDFTHISFORM PAGEFRAME1PAGE2TEXT3REFRESHValid,1Q11F)labellabelLabel1Form1.Pageframe1.Page2AutoSize = .T. FontSize = 8 Caption = "Payroll From :" Height = 16 Left = 13 Top = 20 Width = 67 TabIndex = 1 Name = "Label1" labellabelLabel2Form1.Pageframe1.Page2AutoSize = .T. FontSize = 8 Caption = "Payroll To :" Height = 16 Left = 224 Top = 20 Width = 55 TabIndex = 3 Name = "Label2" textboxtextboxText3Form1.Pageframe1.Page2qFontSize = 8 ControlSource = "YY" Height = 21 Left = 499 TabIndex = 6 Top = 18 Width = 36 Name = "Text3" labellabelLabel3Form1.Pageframe1.Page2AutoSize = .T. FontSize = 8 Caption = "No. of Days :" Height = 16 Left = 428 Top = 20 Width = 65 TabIndex = 5 Name = "Label3" textboxtextboxText4Form1.Pageframe1.Page2sFontSize = 8 ControlSource = "SOV" Height = 21 Left = 100 TabIndex = 8 Top = 47 Width = 108 Name = "Text4" labellabelLabel4Form1.Pageframe1.Page2AutoSize = .T. FontSize = 8 Caption = "Overtime" Height = 16 Left = 13 Top = 49 Width = 45 TabIndex = 7 Name = "Label4" textboxtextboxText5Form1.Pageframe1.Page2tFontSize = 8 ControlSource = "SAD" Height = 21 Left = 100 TabIndex = 10 Top = 76 Width = 108 Name = "Text5" labellabelLabel5Form1.Pageframe1.Page2AutoSize = .T. FontSize = 8 Caption = "Other Additions" Height = 16 Left = 13 Top = 78 Width = 77 TabIndex = 9 Name = "Label5" textboxtextboxText6Form1.Pageframe1.Page2uFontSize = 8 ControlSource = "SDE" Height = 21 Left = 100 TabIndex = 12 Top = 102 Width = 108 Name = "Text6" labellabelLabel6Form1.Pageframe1.Page2AutoSize = .T. FontSize = 8 Caption = "Other Deductions" Height = 16 Left = 13 Top = 104 Width = 86 TabIndex = 11 Name = "Label6"  commandbutton commandbuttonCmdOkForm1tTop = 7 Left = 595 Height = 170 Width = 30 Caption = "\