' Listing created by VB Decompiler v9.8.64863
' Application: E:\gpf old\Calculation.exe
' Compiled to: Native Code
' Compiler version: 8176
'Object: mdifrmMainPage
Private Sub xChangePass_Click() '410E10
loc_00410EAF: var_eax = frmChangePassword.Show var_18
End Sub
Private Sub xnewEmployee_Click() '411390
loc_0041142F: var_eax = frmEmpForm.Show var_18
End Sub
Private Sub xexit_Click() '4112C0
loc_0041132E: Set var_18 = Me
loc_00411339: var_eax = Global.Unload var_18
loc_00411362: GoTo loc_0041136E
loc_0041136D: Exit Sub
loc_0041136E: 'Referenced from: 00411362
End Sub
Private Sub xcounting_Click() '410F00
loc_00410F6E: ecx = "Select sno from EmpMasterTable"
loc_00410FA6: var_94 = ADODB.Recordset.State
loc_00410FD5: If var_94 = 1 Then
loc_00410FF5: var_eax = ADODB.Recordset.Close
loc_0041100F: End If
loc_0041102F: ADODB.Recordset.CursorLocation = CInt(3)
loc_004110C5: var_eax = Unknown_VTable_Call[edi+000000A0h]
loc_00411127: var_94 = ADODB.Recordset.RecordCount
loc_00411143: If var_94 > 0 Then
loc_00411149:
loc_0041116E: var_90 = ADODB.Recordset.EOF
loc_0041118A: If var_90 = 0 Then
loc_00411190: var_18 = var_18 + 0001h
loc_0041119A: var_18 = var_18
loc_004111BB: var_eax = ADODB.Recordset.MoveNext
loc_004111D5: GoTo loc_00411149
loc_004111DA: End If
loc_00411217: var_24 = "Total Employee :: " & CStr(var_18)
loc_00411269: GoTo loc_00411290
loc_0041128F: Exit Sub
loc_00411290: 'Referenced from: 00411269
End Sub
Private Sub xPrintTopNDifference_Click() '411570
loc_0041160F: var_eax = frmTopNDifferences.Show var_18
End Sub
Private Sub xsearch_Click() '411660
loc_004116FF: var_eax = frmSearchEmp.Show var_18
End Sub
Private Sub xcalc_Click() '410D60
loc_00410DBB: var_24 = "calc"
loc_00410DE1: GoTo loc_00410DED
loc_00410DEC: Exit Sub
loc_00410DED: 'Referenced from: 00410DE1
End Sub
Private Sub xPrintFromToFiles_Click() '411480
loc_0041151F: var_eax = frmPrintSummaryFromTo.Show var_18
End Sub
'Object: frmEmpForm
Private Sub cmdNew_Click() '4121B0
loc_00412200: var_eax = Call frmEmpForm.lockAllCommandBox
loc_00412241: lstEmpList.Enabled = False
loc_00412267: var_eax = Call frmEmpForm.unLockAllTextBox
loc_00412282: var_eax = Call frmEmpForm.ClearAll
loc_004122B5: cmdExit.Enabled = True
loc_004122F3: cmdUpdate.Enabled = True
loc_00412331: cmdEnterSalary.Enabled = False
loc_0041236F: var_eax = txtGPFNumber.SetFocus
loc_0041239A: GoTo loc_004123A6
loc_004123A5: Exit Sub
loc_004123A6: 'Referenced from: 0041239A
End Sub
Private Sub cmdEdit_Click() '411CA0
Dim var_20 As Variant
loc_00411CF4: var_eax = Call frmEmpForm.lockAllCommandBox
loc_00411D13: var_eax = Call frmEmpForm.unLockAllTextBox
loc_00411D4A:
loc_00411D52: If 000007BCh <= 2050 Then
loc_00411D9B: var_1C = CStr()
loc_00411DA3: var_eax = cmbStart.AddItem var_1C, var_24
loc_00411E1A: var_1C = CStr()
loc_00411E22: var_eax = cmbEnd.AddItem var_1C, var_24
loc_00411E68: var_18 = var_3C + var_18
loc_00411E6B: GoTo loc_00411D4A
loc_00411E70: End If
loc_00411E85: var_34 = var_20
loc_00411E88: txtGPFNumber.Locked = True
loc_00411EC6: cmdExit.Enabled = True
loc_00411F01: var_34 = var_20
loc_00411F04: cmdUpdate.Enabled = True
loc_00411F42: cmdEnterSalary.Enabled = False
loc_00411F7F: lstEmpList.Enabled = True
loc_00411FAE: GoTo loc_00411FC3
loc_00411FC2: Exit Sub
loc_00411FC3: 'Referenced from: 00411FAE
loc_00411FC3: Exit Sub
End Sub
Private Sub cmdDelete_Click() '411940
loc_004119D3: var_30 = "Are you sure to delete this employee ?"
loc_004119F6: setz cl
loc_00411A24: If var_A4 Then
loc_00411A47: var_18 = txtGPFNumber.Text
loc_00411A92: ecx = "Delete From EmpMasterTable Where gpf_no='" & var_18 & var_00408F68
loc_00411AB5: var_eax = call Proc_2_0_41B450(vbNullString, 0, Me)
loc_00411ADB: var_18 = txtGPFNumber.Text
loc_00411B20: ecx = "Delete From EmpDedTable Where gpf_no='" & var_18 & var_00408F68
loc_00411B43: call Proc_2_0_41B450(vbNullString, var_20 = %S_edx_S, )
loc_00411B78: var_30 = "Successful Deletion..."
loc_00411BB3: GoTo loc_00411C18
loc_00411BB5: End If
loc_00411BC3: var_60 = %ecx = %S_edx_S
loc_00411BE0: var_30 = "Unsuccessful Deletion..."
loc_00411C18: 'Referenced from: 00411BB3
loc_00411C1B: var_eax = Call frmEmpForm.updateList
loc_00411C3F: GoTo loc_00411C79
loc_00411C78: Exit Sub
loc_00411C79: 'Referenced from: 00411C3F
End Sub
Private Sub cmdReport_Click() '4123D0
loc_00412476: var_eax = frmReportForm.Show var_18
End Sub
Private Sub cmdUpdate_Click() '4124C0
Dim var_D0 As Variant
Dim var_D4 As Variant
Dim var_4C4 As TextBox
Dim var_110 As TextBox
loc_0041264A: eax = Me.SaveProp 'Ignore this - 1
loc_00412783: If eax Then
loc_00412789: eax = Me.SaveProp 'Ignore this - 1 - 1
loc_0041278A: If eax <> 0 Then GoTo loc_00414604
loc_004127B6: var_20 = txtEmpName.Text
loc_00412804: var_28 = txtDesignation.Text
loc_00412844: var_34 = txtDept.Text
loc_00412884: var_40 = txtAddress.Text
loc_004128C4: var_4C = txtCity.Text
loc_00412904: var_58 = txtMobile.Text
loc_00412944: var_68 = txtContactNo.Text
loc_00412984: var_74 = txtDesc.Text
loc_004129C4: var_80 = cmbStart.Text
loc_00412A07: var_94 = cmbEnd.Text
loc_00412A4A: var_A4 = txtDifference.Text
loc_00412A8D: var_B4 = txtYear.Text
loc_00412ACC: var_C4 = txtGPFNumber.Text
loc_00412B4B: var_44 = "Update EmpMasterTable Set name='" & var_20 & "', designation='" & var_28 & "', dept='" & var_34 & "', address='"
loc_00412BDC: var_7C = var_44 & var_40 & "', city='" & var_4C & "', mobileno='" & var_58 & "', " & "contactno='" & var_68 & "', description='" & var_74
loc_00412BEE: var_84 = var_7C & "', jobstart="
loc_00412C01: call __vbaStrR8
loc_00412C40: var_98 = & __vbaStrR8 & ", " & "jobend="
loc_00412C56: call __vbaStrR8
loc_00412C83: var_A8 = & __vbaStrR8 & ", bal_diff = "
loc_00412C99: call __vbaStrR8
loc_00412D23: ecx = & __vbaStrR8 & ", diff_year = '" & var_B4 & "' " & " Where gpf_no='" & var_C4 & var_00408F68
loc_00412E84: var_eax = call Proc_2_0_41B450(vbNullString, , )
loc_00412EAD: var_20 = txtGPFNumber.Text
loc_00412EEF: var_4C4 = var_D4
loc_00412EF5: var_28 = cmbStart.Text
loc_00412F3D: var_34 = cmbEnd.Text
loc_00412FBC: ecx = "Delete From EmpDedTable Where gpf_no='" & var_20 & "' and not( fn_year between " & var_28 & " and " & var_34 & var_004095C0
loc_0041300B: var_eax = call Proc_2_0_41B450(vbNullString, , )
loc_0041305E: var_110 = "Successful Updated..."
loc_004130B2: var_eax = Call frmEmpForm.unLockAllCommandBox
loc_004130EE: cmdUpdate.Enabled = False
loc_00413137: var_4B4 = lstEmpList.ListIndex
loc_0041316A: var_eax = Call frmEmpForm.updateList
loc_004131A3: lstEmpList.ListIndex = var_4B4
loc_004131CD: GoTo loc_00414602
loc_004131D2: End If
loc_0041320D: var_20 = txtGPFNumber.Text
loc_00413234: var_108 = var_20
loc_00413268: var_24 = CStr(Trim(var_20))
loc_00413278: txtGPFNumber.Text = var_24
loc_004132EE: var_20 = txtGPFNumber.Text
loc_0041331F: edi = Len(var_20) + 1
loc_00413337: If Len(var_20) + 1 <> ebx Then
loc_0041338B: var_110 = "Please enter gpf number..."
loc_004133DB: GoTo loc_004146B7
loc_004133E0: End If
loc_004133EA: var_eax = frmEmpForm.Proc_1_37_414980(Me, var_4B4, var_D0, var_110, Me, var_D4, ebx)
loc_004133F8: var_eax = Unknown_409258(Me, var_D0, ebx)
loc_0041344C: var_110 = "Gpf number already exists."
loc_0041349C: GoTo loc_004146B7
loc_004134AB: ecx = "Select sno From EmpMasterTable"
loc_004134D9: var_4B8 = ADODB.Recordset.State
loc_004134FE: If var_4B8 = 1 Then
loc_00413521: var_eax = ADODB.Recordset.Close
loc_0041353F: End If
loc_00413562: ADODB.Recordset.CursorLocation = CInt(3)
loc_00413637: var_eax = Unknown_VTable_Call[ecx+000000A0h]
loc_00413688: var_4B8 = ADODB.Recordset.RecordCount
loc_004136AC: If var_4B8 > Me Then
loc_004136B2:
loc_004136DB: var_4B4 = ADODB.Recordset.EOF
loc_004136FB: If var_4B4 = 0 Then
loc_0041372A: var_D0 = ADODB.Recordset.Fields
loc_00413764: var_3A8 = "sno"
loc_0041378A: ADODB.Recordset.ActiveConnection = var_3A4
loc_004137B8: var_108 = var_D4
loc_004137F5: If Not (IsNull(var_D4)) Then
loc_00413805: var_3B8 = var_18
loc_00413837: var_D0 = ADODB.Recordset.Fields
loc_00413871: var_3A8 = "sno"
loc_00413897: ADODB.Recordset.ActiveConnection = var_3A4
loc_004138C7: var_D4 = ADODB.Recordset.BOF
loc_0041391E: If (var_18 < var_D4) Then
loc_0041394D: var_D0 = ADODB.Recordset.Fields
loc_00413987: var_3A8 = "sno"
loc_004139AD: ADODB.Recordset.ActiveConnection = var_3A4
loc_004139DD: var_D4 = ADODB.Recordset.BOF
loc_00413A14: var_18 = CLng(var_D4)
loc_00413A2C: GoTo loc_00413A31
loc_00413A2E: End If
loc_00413A2E: End If
loc_00413A31: 'Referenced from: 00413A2C
loc_00413A53: var_eax = ADODB.Recordset.MoveNext
loc_00413A75: GoTo loc_004136B2
loc_00413A7A: var_18 = var_18 + 00000001h
loc_00413A83: var_18 = var_18
loc_00413A86: GoTo loc_00413A8F
loc_00413A88: End If
loc_00413A8F: 'Referenced from: 00413A86
loc_00413A96: var_310 = Now
loc_00413ABE: var_28 = txtGPFNumber.Text
loc_00413AF0: var_20 = CStr(vbNull)
loc_00413B04: var_24 = "Insert Into EmpMasterTable values(" & var_20
loc_00413B17: var_2C = var_24 & ", '"
loc_00413B29: var_30 = var_2C & var_28
loc_00413B3A: var_128 = var_30 & "', '"
loc_00413B63: var_34 = txtEmpName.Text
loc_00413B8A: var_108 = var_34
loc_00413BAA: var_120 = Ucase(var_34)
loc_00413BB3: var_3A8 = "', '"
loc_00413BDC: var_38 = txtDesignation.Text
loc_00413C03: var_158 = var_38
loc_00413C23: var_170 = Ucase(var_38)
loc_00413C2C: var_3B8 = "', '"
loc_00413C55: var_3C = txtDept.Text
loc_00413C7C: var_198 = var_3C
loc_00413C9C: var_1B0 = Ucase(var_3C)
loc_00413CA5: var_3C8 = "', '"
loc_00413CCE: var_40 = txtAddress.Text
loc_00413CF0: var_1D8 = var_40
loc_00413D10: var_3D8 = "', '"
loc_00413D33: var_44 = txtCity.Text
loc_00413D56: var_208 = var_44
loc_00413D6F: var_3E8 = "', '"
loc_00413D98: var_48 = txtMobile.Text
loc_00413DBB: var_238 = var_48
loc_00413DD4: var_3F8 = "', '"
loc_00413DFD: var_4C = txtContactNo.Text
loc_00413E1F: var_268 = var_4C
loc_00413E3F: var_408 = "', '"
loc_00413E62: var_50 = txtDesc.Text
loc_00413E85: var_298 = var_50
loc_00413E9E: var_418 = "', "
loc_00413EC7: var_54 = cmbStart.Text
loc_00413F02: var_438 = ", "
loc_00413F2F: var_58 = cmbEnd.Text
loc_00413F98: var_320 = "dd/mm/yyyy"
loc_00413FB9: var_328 = Format$(var_310, var_320)
loc_00413FC5: var_478 = "', "
loc_00413FEE: var_5C = txtDifference.Text
loc_00414029: var_498 = ", '"
loc_00414056: var_60 = txtYear.Text
loc_0041407D: var_378 = var_60
loc_004140B0: var_4A8 = "')"
loc_00414175: var_260 = var_30 & "', '" & var_120 & "', '" & var_170 & "', '" & var_1B0 & "', '" & var_40 & "', '" & var_44 & "', '" & var_48 & "', '"
loc_00414230: var_360 = var_260 & var_4C & "', '" & var_50 & "', " & Val(var_54) & ", " & Val(var_58) & ", '" & Format$(var_310, var_320) & "', " & Val(var_5C)
loc_00414273: ecx = var_360 & ", '" & 0 & "')"
loc_00414442: var_eax = call Proc_2_0_41B450(vbNullString, , )
loc_00414495: var_110 = "Successful Added New Record..."
loc_004144E5: var_eax = Call frmEmpForm.unLockAllCommandBox
loc_0041451B: cmdUpdate.Enabled = False
loc_00414548: var_eax = Call frmEmpForm.updateList
loc_00414598: var_4B4 = lstEmpList.ListCount
loc_004145BF: var_4B4 = var_4B4 - 0001h
loc_004145CB: lstEmpList.ListIndex = var_4B4
loc_00414602: 'Referenced from: 004131CD
loc_00414604:
loc_0041460B: var_eax = Call frmEmpForm.lockAllTextBox
loc_00414645: lstEmpList.Enabled = True
loc_0041468D: cmdEnterSalary.Enabled = True
loc_004146B7: 'Referenced from: 004133DB
loc_004146C0: GoTo loc_00414954
loc_00414953: Exit Sub
loc_00414954: 'Referenced from: 004146C0
loc_00414954: Exit Sub
End Sub
Private Sub cmbEnd_KeyPress(KeyAscii As Integer) '411750
Dim var_1C As CommandButton
loc_0041179F: If KeyAscii = 13 Then
loc_004117C4: var_1C = cmdUpdate.Enabled
loc_004117F1: If var_1C Then
loc_00411808: var_eax = cmdUpdate.SetFocus
loc_0041182F: End If
loc_0041182F: End If
loc_0041183B: GoTo loc_00411847
loc_00411846: Exit Sub
loc_00411847: 'Referenced from: 0041183B
End Sub
Private Sub txtGPFNumber_GotFocus() '41B050
loc_0041B0CC: var_18 = txtGPFNumber.Text
loc_0041B0F8: txtGPFNumber.SelLength = Len(var_18)
loc_0041B13E: GoTo loc_0041B15D
loc_0041B15C: Exit Sub
loc_0041B15D: 'Referenced from: 0041B13E
End Sub
Private Sub txtGPFNumber_KeyPress(KeyAscii As Integer) '41B180
loc_0041B1CC: If KeyAscii = 13 Then
loc_0041B1E7: var_eax = txtEmpName.SetFocus
loc_0041B20E: End If
loc_0041B216: GoTo loc_0041B222
loc_0041B221: Exit Sub
loc_0041B222: 'Referenced from: 0041B216
End Sub
Private Sub cmbStart_KeyPress(KeyAscii As Integer) '411870
loc_004118BC: If KeyAscii = 13 Then
loc_004118D7: var_eax = cmbEnd.SetFocus
loc_004118FE: End If
loc_00411906: GoTo loc_00411912
loc_00411911: Exit Sub
loc_00411912: 'Referenced from: 00411906
End Sub
Private Sub cmdEnterSalary_Click() '411FF0
loc_00412096: var_eax = frmSalaryDetail.Show var_18
End Sub
Private Sub cmdExit_Click() '4120E0
loc_0041214E: Set var_18 = Me
loc_00412159: var_eax = Global.Unload var_18
loc_00412182: GoTo loc_0041218E
loc_0041218D: Exit Sub
loc_0041218E: 'Referenced from: 00412182
End Sub
Private Sub lstEmpList_Click() '4182C0
Dim var_84 As ListBox
Dim var_88 As ListBox
Dim var_24 As ADODB.Recordset
Dim var_28 As ADODB.Recordset
loc_00418338: var_eax = Call frmEmpForm.ClearAll
loc_00418376: var_84 = lstEmpList.ListIndex
loc_004183B4: var_1C = lstEmpList.List(var_84)
loc_004183EE: var_88 = lstEmpList.ListIndex
loc_0041842C: var_20 = lstEmpList.List(var_88)
loc_00418467: InStr(1, var_20, " ## ", 1) = InStr(1, var_20, " ## ", 1) - 00000001h
loc_00418473: var_48 = InStr(1, var_20, " ## ", 1)
loc_00418479: var_38 = var_1C
loc_00418507: ecx = "Select * From EmpMasterTable Where sno=" & Mid(0, 1, InStr(1, var_20, " ## ", 1))
loc_0041853C: var_8C = ADODB.Recordset.State
loc_0041855D: If var_8C = 1 Then
loc_0041857D: var_eax = ADODB.Recordset.Close
loc_00418597: End If
loc_004185B7: ADODB.Recordset.CursorLocation = CInt(3)
loc_0041864B: var_eax = Unknown_VTable_Call[edi+000000A0h]
loc_0041869C: var_8C = ADODB.Recordset.RecordCount
loc_004186B8: If var_8C > 0 Then
loc_004186E4: var_24 = ADODB.Recordset.Fields
loc_00418724: ADODB.Recordset.ActiveConnection = var_64
loc_00418754: var_38 = var_28
loc_0041877E: If Not (IsNull(var_28)) Then
loc_004187C7: var_24 = ADODB.Recordset.Fields
loc_00418807: ADODB.Recordset.ActiveConnection = var_64
loc_00418835: var_28 = ADODB.Recordset.BOF
loc_00418860: var_1C = var_28
loc_00418868: var_eax = ADODB.Recordset.Requery
loc_004188AB: End If
loc_004188D1: var_24 = ADODB.Recordset.Fields
loc_00418911: ADODB.Recordset.ActiveConnection = var_64
loc_00418941: var_38 = var_28
loc_0041896B: If Not (IsNull(var_28)) Then
loc_004189B4: var_24 = ADODB.Recordset.Fields
loc_004189F4: ADODB.Recordset.ActiveConnection = var_64
loc_00418A22: var_28 = ADODB.Recordset.BOF
loc_00418A4D: var_1C = var_28
loc_00418A55: var_eax = ADODB.Recordset.Requery
loc_00418A98: End If
loc_00418ABE: var_24 = ADODB.Recordset.Fields
loc_00418AFE: ADODB.Recordset.ActiveConnection = var_64
loc_00418B2E: var_38 = var_28
loc_00418B58: If Not (IsNull(var_28)) Then
loc_00418BA1: var_24 = ADODB.Recordset.Fields
loc_00418BE1: ADODB.Recordset.ActiveConnection = var_64
loc_00418C0F: var_28 = ADODB.Recordset.BOF
loc_00418C3A: var_1C = var_28
loc_00418C42: var_eax = ADODB.Recordset.Requery
loc_00418C85: End If
loc_00418CAB: var_24 = ADODB.Recordset.Fields
loc_00418CEB: ADODB.Recordset.ActiveConnection = var_64
loc_00418D1B: var_38 = var_28
loc_00418D45: If Not (IsNull(var_28)) Then
loc_00418D8E: var_24 = ADODB.Recordset.Fields
loc_00418DCE: ADODB.Recordset.ActiveConnection = var_64
loc_00418DFC: var_28 = ADODB.Recordset.BOF
loc_00418E27: var_1C = var_28
loc_00418E2F: var_eax = ADODB.Recordset.Requery
loc_00418E72: End If
loc_00418E98: var_24 = ADODB.Recordset.Fields
loc_00418ED8: ADODB.Recordset.ActiveConnection = var_64
loc_00418F08: var_38 = var_28
loc_00418F32: If Not (IsNull(var_28)) Then
loc_00418F7B: var_24 = ADODB.Recordset.Fields
loc_00418FBB: ADODB.Recordset.ActiveConnection = var_64
loc_00418FE9: var_28 = ADODB.Recordset.BOF
loc_00419014: var_1C = var_28
loc_0041901C: var_eax = ADODB.Recordset.Requery
loc_0041905F: End If
loc_00419085: var_24 = ADODB.Recordset.Fields
loc_004190C5: ADODB.Recordset.ActiveConnection = var_64
loc_004190F5: var_38 = var_28
loc_0041911F: If Not (IsNull(var_28)) Then
loc_00419168: var_24 = ADODB.Recordset.Fields
loc_004191A8: ADODB.Recordset.ActiveConnection = var_64
loc_004191D6: var_28 = ADODB.Recordset.BOF
loc_00419201: var_1C = var_28
loc_00419209: var_eax = ADODB.Recordset.Requery
loc_0041924C: End If
loc_00419272: var_24 = ADODB.Recordset.Fields
loc_004192B2: ADODB.Recordset.ActiveConnection = var_64
loc_004192E2: var_38 = var_28
loc_0041930C: If Not (IsNull(var_28)) Then
loc_00419355: var_24 = ADODB.Recordset.Fields
loc_00419395: ADODB.Recordset.ActiveConnection = var_64
loc_004193C3: var_28 = ADODB.Recordset.BOF
loc_004193EE: var_1C = var_28
loc_004193F6: var_eax = ADODB.Recordset.Requery
loc_00419439: End If
loc_0041945F: var_24 = ADODB.Recordset.Fields
loc_0041949F: ADODB.Recordset.ActiveConnection = var_64
loc_004194CF: var_38 = var_28
loc_004194F9: If Not (IsNull(var_28)) Then
loc_00419542: var_24 = ADODB.Recordset.Fields
loc_00419582: ADODB.Recordset.ActiveConnection = var_64
loc_004195B0: var_28 = ADODB.Recordset.BOF
loc_004195DB: var_1C = var_28
loc_004195E3: var_eax = ADODB.Recordset.Requery
loc_00419626: End If
loc_0041964C: var_24 = ADODB.Recordset.Fields
loc_0041968C: ADODB.Recordset.ActiveConnection = var_64
loc_004196BC: var_38 = var_28
loc_004196E6: If Not (IsNull(var_28)) Then
loc_0041972F: var_24 = ADODB.Recordset.Fields
loc_0041976F: ADODB.Recordset.ActiveConnection = var_64
loc_0041979D: var_28 = ADODB.Recordset.BOF
loc_004197C8: var_1C = var_28
loc_004197D0: var_eax = ADODB.Recordset.Requery
loc_00419813: End If
loc_00419839: var_24 = ADODB.Recordset.Fields
loc_00419879: ADODB.Recordset.ActiveConnection = var_64
loc_004198A9: var_38 = var_28
loc_004198D3: If Not (IsNull(var_28)) Then
loc_0041991C: var_24 = ADODB.Recordset.Fields
loc_0041995C: ADODB.Recordset.ActiveConnection = var_64
loc_0041998A: var_28 = ADODB.Recordset.BOF
loc_004199B5: var_1C = var_28
loc_004199BD: var_eax = ADODB.Recordset.Requery
loc_00419A00: End If
loc_00419A26: var_24 = ADODB.Recordset.Fields
loc_00419A66: ADODB.Recordset.ActiveConnection = var_64
loc_00419A8C: var_38 = var_28
loc_00419AB8: If Not (IsNull(var_28)) Then
loc_00419B01: var_24 = ADODB.Recordset.Fields
loc_00419B45: ADODB.Recordset.ActiveConnection = var_64
loc_00419B73: var_28 = ADODB.Recordset.BOF
loc_00419B9E: var_1C = var_28
loc_00419BA6: var_eax = ADODB.Recordset.Requery
loc_00419BEF: End If
loc_00419C0B: var_eax = cmbStart.Clear
loc_00419C47: var_eax = cmbEnd.Clear
loc_00419C90: var_24 = ADODB.Recordset.Fields
loc_00419CD4: ADODB.Recordset.ActiveConnection = var_64
loc_00419D04: var_38 = var_28
loc_00419D2E: If Not (IsNull(var_28)) Then
loc_00419D77: var_24 = ADODB.Recordset.Fields
loc_00419DB7: ADODB.Recordset.ActiveConnection = var_64
loc_00419DE5: var_28 = ADODB.Recordset.BOF
loc_00419E30: var_1C = var_28
loc_00419E38: var_eax = Unknown_VTable_Call[ebx+000001ECh]
loc_00419E7B: End If
loc_00419EA1: var_24 = ADODB.Recordset.Fields
loc_00419EE1: ADODB.Recordset.ActiveConnection = var_64
loc_00419F11: var_38 = var_28
loc_00419F3B: If Not (IsNull(var_28)) Then
loc_00419F92: var_24 = ADODB.Recordset.Fields
loc_00419FD2: ADODB.Recordset.ActiveConnection = var_64
loc_0041A000: var_28 = ADODB.Recordset.BOF
loc_0041A047: var_1C = var_28
loc_0041A04F: var_eax = Unknown_VTable_Call[edi+000001ECh]
loc_0041A092: End If
loc_0041A0B0: cmbStart.ListIndex = 0
loc_0041A0EE: cmbEnd.ListIndex = 0
loc_0041A111: End If
loc_0041A11D: GoTo loc_0041A15F
loc_0041A15E: Exit Sub
loc_0041A15F: 'Referenced from: 0041A11D
loc_0041A168: Exit Sub
End Sub
Private Sub Form_Load() '414D50
loc_00414D9C: var_eax = Call frmEmpForm.ClearAll
loc_00414DC5: var_eax = Call frmEmpForm.lockAllTextBox
loc_00414DF8: cmdUpdate.Enabled = False
loc_00414E1E: var_eax = Call frmEmpForm.updateList
loc_00414E42: GoTo loc_00414E4E
loc_00414E4D: Exit Sub
loc_00414E4E: 'Referenced from: 00414E42
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '414C70
loc_00414CBC: If KeyCode = 27 Then
loc_00414CE6: Set var_18 = Me
loc_00414CF1: var_eax = Global.Unload var_18
loc_00414D12: End If
loc_00414D1A: GoTo loc_00414D26
loc_00414D25: Exit Sub
loc_00414D26: 'Referenced from: 00414D1A
End Sub
Private Sub txtEmpName_GotFocus() '41AE30
loc_0041AEAC: var_18 = txtEmpName.Text
loc_0041AED8: txtEmpName.SelLength = Len(var_18)
loc_0041AF1E: GoTo loc_0041AF3D
loc_0041AF3C: Exit Sub
loc_0041AF3D: 'Referenced from: 0041AF1E
End Sub
Private Sub txtEmpName_KeyPress(KeyAscii As Integer) '41AF60
loc_0041AFAC: If KeyAscii = 13 Then
loc_0041AFC7: var_eax = txtDesignation.SetFocus
loc_0041AFEE: End If
loc_0041AFF7: setg dl
loc_0041B000: setl cl
loc_0041B005: If ecx = 0 Then
loc_0041B007: edi = edi - 0020h
loc_0041B010: End If
loc_0041B018: GoTo loc_0041B024
loc_0041B023: Exit Sub
loc_0041B024: 'Referenced from: 0041B018
End Sub
Private Sub txtDesignation_GotFocus() '41AC10
loc_0041AC8C: var_18 = txtDesignation.Text
loc_0041ACB8: txtDesignation.SelLength = Len(var_18)
loc_0041ACFE: GoTo loc_0041AD1D
loc_0041AD1C: Exit Sub
loc_0041AD1D: 'Referenced from: 0041ACFE
End Sub
Private Sub txtDesignation_KeyPress(KeyAscii As Integer) '41AD40
loc_0041AD8C: If KeyAscii = 13 Then
loc_0041ADA7: var_eax = txtDept.SetFocus
loc_0041ADCE: End If
loc_0041ADD7: setg dl
loc_0041ADE0: setl cl
loc_0041ADE5: If ecx = 0 Then
loc_0041ADE7: edi = edi - 0020h
loc_0041ADF0: End If
loc_0041ADF8: GoTo loc_0041AE04
loc_0041AE03: Exit Sub
loc_0041AE04: 'Referenced from: 0041ADF8
End Sub
Private Sub txtDept_GotFocus() '41A7D0
loc_0041A84C: var_18 = txtDept.Text
loc_0041A878: txtDept.SelLength = Len(var_18)
loc_0041A8BE: GoTo loc_0041A8DD
loc_0041A8DC: Exit Sub
loc_0041A8DD: 'Referenced from: 0041A8BE
End Sub
Private Sub txtDept_KeyPress(KeyAscii As Integer) '41A900
loc_0041A94C: If KeyAscii = 13 Then
loc_0041A967: var_eax = txtAddress.SetFocus
loc_0041A98E: End If
loc_0041A997: setg dl
loc_0041A9A0: setl cl
loc_0041A9A5: If ecx = 0 Then
loc_0041A9A7: edi = edi - 0020h
loc_0041A9B0: End If
loc_0041A9B8: GoTo loc_0041A9C4
loc_0041A9C3: Exit Sub
loc_0041A9C4: 'Referenced from: 0041A9B8
End Sub
Private Sub txtAddress_GotFocus() '41A190
loc_0041A20C: var_18 = txtAddress.Text
loc_0041A238: txtAddress.SelLength = Len(var_18)
loc_0041A27E: GoTo loc_0041A29D
loc_0041A29C: Exit Sub
loc_0041A29D: 'Referenced from: 0041A27E
End Sub
Private Sub txtAddress_KeyPress(KeyAscii As Integer) '41A2C0
loc_0041A30C: If KeyAscii = 13 Then
loc_0041A327: var_eax = txtCity.SetFocus
loc_0041A34E: End If
loc_0041A357: setg dl
loc_0041A360: setl cl
loc_0041A365: If ecx = 0 Then
loc_0041A367: edi = edi - 0020h
loc_0041A370: End If
loc_0041A378: GoTo loc_0041A384
loc_0041A383: Exit Sub
loc_0041A384: 'Referenced from: 0041A378
End Sub
Private Sub txtCity_GotFocus() '41A3B0
loc_0041A42C: var_18 = txtCity.Text
loc_0041A458: txtCity.SelLength = Len(var_18)
loc_0041A49E: GoTo loc_0041A4BD
loc_0041A4BC: Exit Sub
loc_0041A4BD: 'Referenced from: 0041A49E
End Sub
Private Sub txtCity_KeyPress(KeyAscii As Integer) '41A4E0
loc_0041A52C: If KeyAscii = 13 Then
loc_0041A547: var_eax = txtMobile.SetFocus
loc_0041A56E: End If
loc_0041A577: setg dl
loc_0041A580: setl cl
loc_0041A585: If ecx = 0 Then
loc_0041A587: edi = edi - 0020h
loc_0041A590: End If
loc_0041A598: GoTo loc_0041A5A4
loc_0041A5A3: Exit Sub
loc_0041A5A4: 'Referenced from: 0041A598
End Sub
Private Sub txtMobile_GotFocus() '41B250
loc_0041B2CC: var_18 = txtMobile.Text
loc_0041B2F8: txtMobile.SelLength = Len(var_18)
loc_0041B33E: GoTo loc_0041B35D
loc_0041B35C: Exit Sub
loc_0041B35D: 'Referenced from: 0041B33E
End Sub
Private Sub txtMobile_KeyPress(KeyAscii As Integer) '41B380
loc_0041B3CC: If KeyAscii = 13 Then
loc_0041B3E7: var_eax = txtContactNo.SetFocus
loc_0041B40E: End If
loc_0041B416: GoTo loc_0041B422
loc_0041B421: Exit Sub
loc_0041B422: 'Referenced from: 0041B416
End Sub
Private Sub txtContactNo_GotFocus() '41A5D0
loc_0041A64C: var_18 = txtContactNo.Text
loc_0041A678: txtContactNo.SelLength = Len(var_18)
loc_0041A6BE: GoTo loc_0041A6DD
loc_0041A6DC: Exit Sub
loc_0041A6DD: 'Referenced from: 0041A6BE
End Sub
Private Sub txtContactNo_KeyPress(KeyAscii As Integer) '41A700
loc_0041A74C: If KeyAscii = 13 Then
loc_0041A767: var_eax = txtDesc.SetFocus
loc_0041A78E: End If
loc_0041A796: GoTo loc_0041A7A2
loc_0041A7A1: Exit Sub
loc_0041A7A2: 'Referenced from: 0041A796
End Sub
Private Sub txtDesc_GotFocus() '41A9F0
loc_0041AA6C: var_18 = txtDesc.Text
loc_0041AA98: txtDesc.SelLength = Len(var_18)
loc_0041AADE: GoTo loc_0041AAFD
loc_0041AAFC: Exit Sub
loc_0041AAFD: 'Referenced from: 0041AADE
End Sub
Private Sub txtDesc_KeyPress(KeyAscii As Integer) '41AB20
loc_0041AB6C: If KeyAscii = 13 Then
loc_0041AB87: var_eax = cmbStart.SetFocus
loc_0041ABAE: End If
loc_0041ABB7: setg dl
loc_0041ABC0: setl cl
loc_0041ABC5: If ecx = 0 Then
loc_0041ABC7: edi = edi - 0020h
loc_0041ABD0: End If
loc_0041ABD8: GoTo loc_0041ABE4
loc_0041ABE3: Exit Sub
loc_0041ABE4: 'Referenced from: 0041ABD8
End Sub
Public Sub ClearAll() '414E70
Dim var_20 As Variant
Dim var_34 As ComboBox
loc_00414ED0: txtGPFNumber.Text = vbNullString
loc_00414F14: txtYear.Text = vbNullString
loc_00414F55: txtDifference.Text = vbNullString
loc_00414F93: var_34 = var_20
loc_00414F96: txtEmpName.Text = vbNullString
loc_00414FD7: txtDesignation.Text = vbNullString
loc_00415015: var_34 = var_20
loc_00415018: txtDept.Text = vbNullString
loc_00415059: txtAddress.Text = vbNullString
loc_00415097: var_34 = var_20
loc_0041509A: txtCity.Text = vbNullString
loc_004150DB: txtContactNo.Text = vbNullString
loc_00415119: var_34 = var_20
loc_0041511C: txtMobile.Text = vbNullString
loc_0041515D: txtDesc.Text = vbNullString
loc_00415196: var_34 = var_20
loc_00415199: var_eax = cmbStart.Clear
loc_004151D5: var_eax = cmbEnd.Clear
loc_00415203:
loc_0041520B: If 000007BCh <= 2050 Then
loc_00415255: var_1C = CStr()
loc_0041525B: var_4C = var_1C
loc_00415266: var_eax = cmbStart.AddItem var_1C, var_24
loc_004152D9: var_1C = CStr()
loc_004152E1: var_eax = cmbEnd.AddItem var_1C, var_24
loc_0041531C: 00000001h = 00000001h + var_18
loc_00415325: GoTo loc_00415203
loc_0041532A: End If
loc_0041532F: GoTo loc_00415344
loc_00415343: Exit Sub
loc_00415344: 'Referenced from: 0041532F
loc_00415344: Exit Sub
End Sub
Public Sub lockAllCommandBox() '415370
loc_004153C7: cmdNew.Enabled = False
loc_00415405: cmdEdit.Enabled = False
loc_00415443: cmdDelete.Enabled = False
loc_00415481: cmdEnterSalary.Enabled = False
loc_004154C1: cmdReport.Enabled = False
loc_004154E9: GoTo loc_004154F5
loc_004154F4: Exit Sub
loc_004154F5: 'Referenced from: 004154E9
End Sub
Public Sub unLockAllCommandBox() '415520
loc_00415577: cmdNew.Enabled = True
loc_004155B5: cmdEdit.Enabled = True
loc_004155F3: cmdDelete.Enabled = True
loc_00415631: cmdEnterSalary.Enabled = True
loc_00415671: cmdReport.Enabled = True
loc_00415699: GoTo loc_004156A5
loc_004156A4: Exit Sub
loc_004156A5: 'Referenced from: 00415699
End Sub
Public Sub lockAllTextBox() '4156D0
Dim var_18 As Variant
loc_00415727: txtGPFNumber.Locked = True
loc_00415768: txtDifference.Locked = True
loc_004157A6: txtEmpName.Locked = True
loc_004157E1: var_1C = var_18
loc_004157E4: txtDesignation.Locked = True
loc_00415822: txtDept.Locked = True
loc_0041585D: var_1C = var_18
loc_00415860: txtAddress.Locked = True
loc_0041589E: txtCity.Locked = True
loc_004158D9: var_1C = var_18
loc_004158DC: txtMobile.Locked = True
loc_0041591A: txtContactNo.Locked = True
loc_00415955: var_1C = var_18
loc_00415958: txtDesc.Locked = True
loc_00415996: cmbStart.Locked = True
loc_004159D3: cmbEnd.Locked = True
loc_004159FB: GoTo loc_00415A07
loc_00415A06: Exit Sub
loc_00415A07: 'Referenced from: 004159FB
End Sub
Public Sub unLockAllTextBox() '415A30
Dim var_18 As Variant
loc_00415A87: txtGPFNumber.Locked = False
loc_00415AC8: txtDifference.Locked = False
loc_00415B06: txtEmpName.Locked = False
loc_00415B41: var_1C = var_18
loc_00415B44: txtDesignation.Locked = False
loc_00415B82: txtDept.Locked = False
loc_00415BBD: var_1C = var_18
loc_00415BC0: txtAddress.Locked = False
loc_00415BFE: txtCity.Locked = False
loc_00415C39: var_1C = var_18
loc_00415C3C: txtMobile.Locked = False
loc_00415C7A: txtContactNo.Locked = False
loc_00415CB5: var_1C = var_18
loc_00415CB8: txtDesc.Locked = False
loc_00415CF6: cmbStart.Locked = False
loc_00415D33: cmbEnd.Locked = False
loc_00415D5B: GoTo loc_00415D67
loc_00415D66: Exit Sub
loc_00415D67: 'Referenced from: 00415D5B
End Sub
Public Sub updateList() '415D90
Dim var_20 As ADODB.Recordset
Dim var_24 As ADODB.Recordset
Dim var_28 As ADODB.Recordset
loc_00415E26: var_eax = lstEmpList.Clear
loc_00415E50: var_eax = Call frmEmpForm.ClearAll
loc_00415E76: ecx = "Select * from EmpMasterTable Order By sno"
loc_00415EAE: var_B8 = ADODB.Recordset.State
loc_00415ED3: If var_B8 = 1 Then
loc_00415EF2: var_eax = ADODB.Recordset.Close
loc_00415F10: End If
loc_00415F2F: ADODB.Recordset.CursorLocation = CInt(3)
loc_00415FD8: var_eax = Unknown_VTable_Call[edi+000000A0h]
loc_00416029: var_B8 = ADODB.Recordset.RecordCount
loc_00416045: If var_B8 > 0 Then
loc_0041604E:
loc_00416077: var_B4 = ADODB.Recordset.EOF
loc_00416093: If var_B4 = 0 Then
loc_0041609D: If var_18 = 1 Then
loc_004160C9: var_20 = ADODB.Recordset.Fields
loc_00416109: ADODB.Recordset.ActiveConnection = var_74
loc_00416139: var_38 = var_24
loc_00416163: If Not (IsNull(var_24)) Then
loc_004161AC: var_20 = ADODB.Recordset.Fields
loc_004161EC: ADODB.Recordset.ActiveConnection = var_74
loc_0041621A: var_24 = ADODB.Recordset.BOF
loc_00416245: var_1C = var_24
loc_0041624D: var_eax = ADODB.Recordset.Requery
loc_00416290: End If
loc_004162B6: var_20 = ADODB.Recordset.Fields
loc_004162F6: ADODB.Recordset.ActiveConnection = var_74
loc_00416326: var_38 = var_24
loc_00416350: If Not (IsNull(var_24)) Then
loc_00416399: var_20 = ADODB.Recordset.Fields
loc_004163D9: ADODB.Recordset.ActiveConnection = var_74
loc_00416407: var_24 = ADODB.Recordset.BOF
loc_00416432: var_1C = var_24
loc_0041643A: var_eax = ADODB.Recordset.Requery
loc_0041647D: End If
loc_004164A3: var_20 = ADODB.Recordset.Fields
loc_004164E3: ADODB.Recordset.ActiveConnection = var_74
loc_00416513: var_38 = var_24
loc_0041653D: If Not (IsNull(var_24)) Then
loc_00416586: var_20 = ADODB.Recordset.Fields
loc_004165C6: ADODB.Recordset.ActiveConnection = var_74
loc_004165F4: var_24 = ADODB.Recordset.BOF
loc_0041661F: var_1C = var_24
loc_00416627: var_eax = ADODB.Recordset.Requery
loc_0041666A: End If
loc_00416690: var_20 = ADODB.Recordset.Fields
loc_004166D0: ADODB.Recordset.ActiveConnection = var_74
loc_00416700: var_38 = var_24
loc_0041672A: If Not (IsNull(var_24)) Then
loc_00416773: var_20 = ADODB.Recordset.Fields
loc_004167B3: ADODB.Recordset.ActiveConnection = var_74
loc_004167E1: var_24 = ADODB.Recordset.BOF
loc_0041680C: var_1C = var_24
loc_00416814: var_eax = ADODB.Recordset.Requery
loc_00416857: End If
loc_0041687D: var_20 = ADODB.Recordset.Fields
loc_004168BD: ADODB.Recordset.ActiveConnection = var_74
loc_004168ED: var_38 = var_24
loc_00416917: If Not (IsNull(var_24)) Then
loc_00416960: var_20 = ADODB.Recordset.Fields
loc_004169A0: ADODB.Recordset.ActiveConnection = var_74
loc_004169CE: var_24 = ADODB.Recordset.BOF
loc_004169F9: var_1C = var_24
loc_00416A01: var_eax = ADODB.Recordset.Requery
loc_00416A44: End If
loc_00416A6A: var_20 = ADODB.Recordset.Fields
loc_00416AAA: ADODB.Recordset.ActiveConnection = var_74
loc_00416ADA: var_38 = var_24
loc_00416B04: If Not (IsNull(var_24)) Then
loc_00416B4D: var_20 = ADODB.Recordset.Fields
loc_00416B8D: ADODB.Recordset.ActiveConnection = var_74
loc_00416BBB: var_24 = ADODB.Recordset.BOF
loc_00416BE6: var_1C = var_24
loc_00416BEE: var_eax = ADODB.Recordset.Requery
loc_00416C31: End If
loc_00416C57: var_20 = ADODB.Recordset.Fields
loc_00416C97: ADODB.Recordset.ActiveConnection = var_74
loc_00416CC7: var_38 = var_24
loc_00416CF1: If Not (IsNull(var_24)) Then
loc_00416D3A: var_20 = ADODB.Recordset.Fields
loc_00416D7A: ADODB.Recordset.ActiveConnection = var_74
loc_00416DA8: var_24 = ADODB.Recordset.BOF
loc_00416DD3: var_1C = var_24
loc_00416DDB: var_eax = ADODB.Recordset.Requery
loc_00416E1E: End If
loc_00416E44: var_20 = ADODB.Recordset.Fields
loc_00416E84: ADODB.Recordset.ActiveConnection = var_74
loc_00416EB4: var_38 = var_24
loc_00416EDE: If Not (IsNull(var_24)) Then
loc_00416F27: var_20 = ADODB.Recordset.Fields
loc_00416F67: ADODB.Recordset.ActiveConnection = var_74
loc_00416F95: var_24 = ADODB.Recordset.BOF
loc_00416FC0: var_1C = var_24
loc_00416FC8: var_eax = ADODB.Recordset.Requery
loc_0041700B: End If
loc_00417031: var_20 = ADODB.Recordset.Fields
loc_00417071: ADODB.Recordset.ActiveConnection = var_74
loc_004170A1: var_38 = var_24
loc_004170CB: If Not (IsNull(var_24)) Then
loc_00417114: var_20 = ADODB.Recordset.Fields
loc_00417154: ADODB.Recordset.ActiveConnection = var_74
loc_00417182: var_24 = ADODB.Recordset.BOF
loc_004171AD: var_1C = var_24
loc_004171B5: var_eax = ADODB.Recordset.Requery
loc_004171F8: End If
loc_0041721E: var_20 = ADODB.Recordset.Fields
loc_0041725E: ADODB.Recordset.ActiveConnection = var_74
loc_0041728E: var_38 = var_24
loc_004172B8: If Not (IsNull(var_24)) Then
loc_00417301: var_20 = ADODB.Recordset.Fields
loc_00417341: ADODB.Recordset.ActiveConnection = var_74
loc_0041736F: var_24 = ADODB.Recordset.BOF
loc_0041739A: var_1C = var_24
loc_004173A2: var_eax = ADODB.Recordset.Requery
loc_004173E5: End If
loc_0041740B: var_20 = ADODB.Recordset.Fields
loc_0041744B: ADODB.Recordset.ActiveConnection = var_74
loc_0041747B: var_38 = var_24
loc_004174A5: If Not (IsNull(var_24)) Then
loc_004174EE: var_20 = ADODB.Recordset.Fields
loc_0041752E: ADODB.Recordset.ActiveConnection = var_74
loc_0041755C: var_24 = ADODB.Recordset.BOF
loc_00417587: var_1C = var_24
loc_0041758F: var_eax = ADODB.Recordset.Update(var_1C, )
loc_004175D2: End If
loc_004175F8: var_20 = ADODB.Recordset.Fields
loc_00417638: ADODB.Recordset.ActiveConnection = var_74
loc_00417668: var_38 = var_24
loc_00417692: If Not (IsNull(var_24)) Then
loc_004176DB: var_20 = ADODB.Recordset.Fields
loc_0041771B: ADODB.Recordset.ActiveConnection = var_74
loc_00417749: var_24 = ADODB.Recordset.BOF
loc_00417774: var_1C = var_24
loc_0041777C: var_eax = ADODB.Recordset.Update(var_1C, )
loc_004177BF: End If
loc_004177BF: End If
loc_00417802: var_20 = ADODB.Recordset.Fields
loc_00417842: ADODB.Recordset.ActiveConnection = var_74
loc_00417870: var_24 = ADODB.Recordset.BOF
loc_00417889: var_88 = " ## "
loc_004178BE: var_28 = ADODB.Recordset.Fields
loc_00417904: ADODB.Recordset.ActiveConnection = var_94
loc_00417928: var_60 = ADODB.Recordset.BOF
loc_00417995: var_1C = CStr(var_24 & " ## " & var_60)
loc_0041799D: var_eax = Unknown_VTable_Call[ebx+000001ECh]
loc_00417A0E: var_18 = var_18 + 0001h
loc_00417A1A: var_18 = var_18
loc_00417A38: var_eax = ADODB.Recordset.MoveNext
loc_00417A56: GoTo loc_0041604E
loc_00417A5B: End If
loc_00417A60: GoTo loc_00417AA3
loc_00417AA2: Exit Sub
loc_00417AA3: 'Referenced from: 00417A60
loc_00417AA3: Exit Sub
End Sub
Public Sub updateListWithGpf(gpfNo) '417AD0
Dim var_24 As ListBox
Dim var_30 As ADODB.Recordset
Dim var_34 As ADODB.Recordset
Dim var_38 As ADODB.Recordset
loc_00417B8A: var_eax = lstEmpList.Clear
loc_00417BB4: var_eax = Call frmEmpForm.ClearAll
loc_00417BDA: ecx = "Select * from EmpMasterTable Order By sno"
loc_00417C12: var_C8 = ADODB.Recordset.State
loc_00417C37: If var_C8 = 1 Then
loc_00417C56: var_eax = ADODB.Recordset.Close
loc_00417C74: End If
loc_00417C93: ADODB.Recordset.CursorLocation = CInt(3)
loc_00417D53: var_eax = Unknown_VTable_Call[edi+000000A0h]
loc_00417DAE: var_C8 = ADODB.Recordset.RecordCount
loc_00417DCA: If var_C8 > 0 Then
loc_00417DD0:
loc_00417DF5: var_C4 = ADODB.Recordset.EOF
loc_00417E11: If var_C4 = 0 Then
loc_00417E39: var_30 = ADODB.Recordset.Fields
loc_00417E69: var_88 = "gpf_no"
loc_00417E8B: ADODB.Recordset.ActiveConnection = var_84
loc_00417EB9: var_50 = ADODB.Recordset.BOF
loc_00417F15: If (var_50 = var_A0) Then
loc_00417F1B: var_24 = CInt(var_34)
loc_00417F21: var_28 = CInt(var_34)
loc_00417F24: End If
loc_00417F52: var_24 = var_24 + 1
loc_00417F9B: var_30 = ADODB.Recordset.Fields
loc_00417FCB: var_88 = "sno"
loc_00417FED: ADODB.Recordset.ActiveConnection = var_84
loc_0041801B: var_50 = ADODB.Recordset.BOF
loc_00418034: var_98 = " ## "
loc_00418069: var_38 = ADODB.Recordset.Fields
loc_004180AF: ADODB.Recordset.ActiveConnection = var_A4
loc_004180D3: var_70 = ADODB.Recordset.BOF
loc_00418140: var_2C = CStr(var_50 & " ## " & var_70)
loc_00418148: var_eax = Unknown_VTable_Call[ebx+000001ECh]
loc_004181DC: var_eax = ADODB.Recordset.MoveNext
loc_004181FA: GoTo loc_00417DD0
loc_004181FF: End If
loc_00418221: lstEmpList.Selected = var_28
loc_00418249: GoTo loc_0041828C
loc_0041828B: Exit Sub
loc_0041828C: 'Referenced from: 00418249
End Sub
Public Sub Proc_1_37_414980
loc_004149C8: var_54 = "Select gpf_no from EmpMasterTable where gpf_no like "
loc_004149EC: var_18 = txtGPFNumber.Text
loc_00414A10: var_24 = var_18
loc_00414A44: ecx = "Select gpf_no from EmpMasterTable where gpf_no like " & Trim(var_18)
loc_00414A9A: var_70 = ADODB.Recordset.State
loc_00414ABC: If var_70 = 1 Then
loc_00414ADB: var_eax = ADODB.Recordset.Close
loc_00414AF9: End If
loc_00414B18: ADODB.Recordset.CursorLocation = CInt(3)
loc_00414BB5: var_eax = Unknown_VTable_Call[edi+000000A0h]
loc_00414BF9: var_70 = ADODB.Recordset.RecordCount
loc_00414C18: setle cl
loc_00414C1B: ecx = ecx - 1
loc_00414C21: var_14 = ecx - 1
loc_00414C24: GoTo loc_00414C50
loc_00414C4F: Exit Sub
loc_00414C50: 'Referenced from: 00414C24
End Sub
'Object: ModCommand
Public Sub Proc_2_0_41B450
loc_0041B4B6: On Error Resume Next
loc_0041B521: var_9C = ADODB.Connection.CommandTimeout
loc_0041B567: ADODB.Command.CommandText = Me
loc_0041B59B: ADODB.Command.CommandType = CInt(1)
loc_0041B5FA: var_eax = ADODB.Command.Execute(var_38, var_48, -1)
loc_0041B62E: Exit Sub
loc_0041B639: GoTo loc_0041B7BC
loc_0041B680: var_DC = ADODB.Command.Properties
loc_0041B6C3: var_24 = "Err " & CStr(var_DC)
loc_0041B6D1: var_50 = var_24 & " : "
loc_0041B70F: var_68 = var_24 & " : " & Error(10)
loc_0041B765: Exit Sub
loc_0041B770: GoTo loc_0041B7BC
loc_0041B7BB: Exit Sub
loc_0041B7BC: 'Referenced from: 0041B639
End Sub
'Object: ModConnection
Public Sub Proc_3_0_41B7D0
Dim var_20 As ADODB.Connection
loc_0041B828: Set var_20 = var_00443038
loc_0041B860: var_18 = "Microsoft.Jet.OLEDB.4.0;Data Source=" & Me & ";Jet OLEDB:Database Password=2756712"
loc_0041B867: ADODB.Connection.Provider = var_18
loc_0041B8B2: var_eax = ADODB.Connection.Open(vbNullString, vbNullString, vbNullString, -1)
loc_0041B8DE: GoTo loc_0041B8F4
loc_0041B8F3: Exit Sub
loc_0041B8F4: 'Referenced from: 0041B8DE
End Sub
'Object: ModGlobalDeclaration
Public Sub Proc_4_0_41B920
Dim var_30 As Variant
Dim var_24 As Variant
Dim var_00443040 As ADODB.Recordset
Dim var_38 As ADODB.Recordset
loc_0041B9A4: On Error Resume Next
loc_0041B9E6: var_30 = Global.App
loc_0041BA14: var_28 = Global.Path
loc_0041BA45: var_2C = var_28 & "\Backup"
loc_0041BA4D: var_eax = Unknown_VTable_Call[esi+00000048h]
loc_0041BA87: If var_F0 = 0 Then
loc_0041BACC: var_30 = Global.App
loc_0041BAEC: var_28 = Global.Path
loc_0041BB1A: var_2C = var_28 & "\Backup"
loc_0041BB22: var_eax = Unknown_VTable_Call[esi+00000074h]
loc_0041BB59: End If
loc_0041BB98: var_30 = Global.App
loc_0041BBB8: var_28 = Global.Path
loc_0041BBE6: var_2C = var_28 & "\GPFDB.mdb"
loc_0041BBEE: var_2C = Global.Path
loc_0041BC29: var_4C = Now
loc_0041BC55: var_30 = Global.App
loc_0041BC75: var_28 = Global.Path
loc_0041BC98: var_74 = var_28 & "\Backup\"
loc_0041BCD8: var_C4 = ".mdb"
loc_0041BD1C: var_20 = var_28 & "\Backup\" & Format(var_4C, "dd-MM-yyyy") & ".mdb"
loc_0041BD88: var_24.FileExists
loc_0041BDA4: If var_F0 = 0 Then
loc_0041BDD0: var_30 = Global.App
loc_0041BDF0: var_28 = Global.Path
loc_0041BE39: var_2C = var_28 & "\GPFDB.mdb"
loc_0041BE41: var_24.CopyFile(var_2C, var_20, -1b)
loc_0041BE73: End If
loc_0041BE99: var_30 = Global.App
loc_0041BEB9: var_28 = Global.Path
loc_0041BEEB: var_eax = call Proc_3_0_41B7D0(var_28 & "\GPFDB.mdb", 1, )
loc_0041BF12: ecx = "Select * From No_Of_Trans"
loc_0041BF41: var_F4 = ADODB.Recordset.State
loc_0041BF62: If var_F4 = 1 Then
loc_0041BF90: var_eax = ADODB.Recordset.Close
loc_0041BFB2: End If
loc_0041BFD2: ADODB.Recordset.CursorLocation = CInt(3)
loc_0041C08F: var_eax = Unknown_VTable_Call[edi+000000A0h]
loc_0041C0E0: var_F4 = ADODB.Recordset.RecordCount
loc_0041C0FC: If var_F4 > 0 Then
loc_0041C128: var_30 = ADODB.Recordset.Fields
loc_0041C177: ADODB.Recordset.ActiveConnection = var_B0
loc_0041C1A5: var_5C = ADODB.Recordset.BOF
loc_0041C1DF: var_38 = ADODB.Recordset.Fields
loc_0041C231: ADODB.Recordset.ActiveConnection = var_C0
loc_0041C25F: var_4C = ADODB.Recordset.BOF
loc_0041C2B3: If (var_5C = var_4C) Then
loc_0041C2DB: var_eax = ADODB.Connection.Close
loc_0041C328: var_4C = "Error Number :- 1307 Please contact system administrator!!!"
loc_0041C35D: Exit Sub
loc_0041C369: GoTo loc_0041C703
loc_0041C36E: End If
loc_0041C394: var_30 = ADODB.Recordset.Fields
loc_0041C39B: If var_30 < 0 Then
loc_0041C3A6: call ebx(var_30, var_00443040, var_004088A0, 00000054h, var_0041C716)
loc_0041C3A8: End If
loc_0041C3E3: ADODB.Recordset.ActiveConnection = var_B0
loc_0041C407: var_4C = ADODB.Recordset.BOF
loc_0041C439: var_28 = var_4C
loc_0041C458: call __vbaStrR8
loc_0041C473: ecx = & __vbaStrR8
loc_0041C4A6: var_eax = call Proc_2_0_41B450(vbNullString, , )
loc_0041C533: var_eax = frmLogin.Show var_B0
loc_0041C555: Exit Sub
loc_0041C561: GoTo loc_0041C703
loc_0041C5B1: frmLogin.Err = PropBag.ReadProperty(var_F4, var_30)
loc_0041C5B8: If var_30 < 0 Then
loc_0041C5C3: var_30 = CheckObj(var_30, var_004099B4, 28)
loc_0041C5F4: var_2C = "Err " & CStr(var_F4)
loc_0041C602: var_64 = var_2C & " : "
loc_0041C643: var_7C = var_2C & " : " & Error(10)
loc_0041C69C: End If
loc_0041C69C: End If
loc_0041C69C: Exit Sub
loc_0041C6A8: GoTo loc_0041C703
loc_0041C702: Exit Sub
loc_0041C703: 'Referenced from: 0041C369
loc_0041C715: Exit Sub
loc_0041C726: Exit Sub
loc_0041C727: End If
End Sub
'Object: frmSalaryDetail
Private Sub cmdExit_Click() '41C8C0
loc_0041C92E: Set var_18 = Me
loc_0041C939: var_eax = Global.Unload var_18
loc_0041C962: GoTo loc_0041C96E
loc_0041C96D: Exit Sub
loc_0041C96E: 'Referenced from: 0041C962
End Sub
Private Sub xcalc_Click() '424C90
loc_00424CEB: var_24 = "calc"
loc_00424D11: GoTo loc_00424D1D
loc_00424D1C: Exit Sub
loc_00424D1D: 'Referenced from: 00424D11
End Sub
Private Sub txtDate_GotFocus() '41EC10
loc_0041EC85: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041ECB1: txtDate.SelStart = 0
loc_0041ED02: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_0041ED3D: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041ED5D: var_18 = txtDate.Text
loc_0041ED85: txtDate.SelLength = Len(var_18)
loc_0041EDCF: GoTo loc_0041EDF6
loc_0041EDF5: Exit Sub
loc_0041EDF6: 'Referenced from: 0041EDCF
End Sub
Private Sub txtDate_KeyPress(KeyAscii As Integer) '41EE20
loc_0041EE72: If edi = 13 Then
loc_0041EE98: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041EEB8: var_eax = txtDed.SetFocus
loc_0041EEE9: GoTo loc_0041EF0A
loc_0041EEEB: End If
loc_0041EEF1: setg cl
loc_0041EEFA: setl dl
loc_0041EEFF: If edx = 0 Then GoTo loc_0041EF0A
loc_0041EF05: If var_18 = 8 Then GoTo loc_0041EF0A
loc_0041EF0A: 'Referenced from: 0041EEE9
loc_0041EF12: GoTo loc_0041EF28
loc_0041EF27: Exit Sub
loc_0041EF28: 'Referenced from: 0041EF12
End Sub
Private Sub txtDate_KeyUp(KeyCode As Integer, Shift As Integer) '41EF50
Dim var_1C As TextBox
loc_0041EFA2: If edx = 37 Then
loc_0041EFAE: If KeyCode Then
loc_0041EFCC: ebx = ebx - 0001h
loc_0041EFDB: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_0041F005: var_eax = txtLoan.SetFocus
loc_0041F00F: If txtLoan.SetFocus < 0 Then
loc_0041F015: GoTo loc_0041F12A
loc_0041F01A: End If
loc_0041F039: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041F03C: GoTo loc_0041F082
loc_0041F03E: End If
loc_0041F042: If Unknown_VTable_Call[ecx+00000040h] <> 38 Then GoTo loc_0041F14D
loc_0041F051: If KeyCode = var_18 Then GoTo loc_0041F0D8
loc_0041F070: ebx = ebx - 0001h
loc_0041F07F: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_0041F082: 'Referenced from: 0041F03C
loc_0041F0A9: var_eax = txtDate.SetFocus
loc_0041F0D6: GoTo loc_0041F153
loc_0041F0D8:
loc_0041F0F4: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_0041F11E: var_eax = txtDate.SetFocus
loc_0041F128: If txtDate.SetFocus < 0 Then
loc_0041F12A: 'Referenced from: 0041F015
loc_0041F136: txtDate.SetFocus = CheckObj(var_1C, var_00408F54, 516)
loc_0041F138: End If
loc_0041F138: End If
loc_0041F14B: GoTo loc_0041F153
loc_0041F14D:
loc_0041F153: 'Referenced from: 0041F0D6
loc_0041F15A: If Shift = 39 Then
loc_0041F180: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_0041F19C: var_eax = txtDed.SetFocus
loc_0041F1C9: End If
loc_0041F1D0: If Shift = 40 Then
loc_0041F1DD: If KeyCode = 11 Then
loc_0041F1FE: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041F21A: var_eax = txtDate.SetFocus
loc_0041F224: If txtDate.SetFocus < 0 Then
loc_0041F226: GoTo loc_0041F27B
loc_0041F228: End If
loc_0041F244: ebx = ebx + 0001h
loc_0041F253: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_0041F26F: var_eax = txtDate.SetFocus
loc_0041F279: If txtDate.SetFocus < 0 Then
loc_0041F27B: 'Referenced from: 0041F226
loc_0041F287: txtDate.SetFocus = CheckObj(var_1C, var_00408F54, 516)
loc_0041F289: End If
loc_0041F289: End If
loc_0041F29C: End If
loc_0041F2A8: GoTo loc_0041F2BE
loc_0041F2BD: Exit Sub
loc_0041F2BE: 'Referenced from: 0041F2A8
End Sub
Private Sub txtDate_LostFocus() '41F2F0
loc_0041F37A: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041F39E: var_18 = txtDate.Text
loc_0041F3CC: fcomp real8 ptr [00401530h]
loc_0041F3E1: If Err.Number Then
loc_0041F3E9: End If
loc_0041F40D: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_0041F431: var_1C = txtDate.Text
loc_0041F45F: fcomp real8 ptr [004014A0h]
loc_0041F46A: If Err.Number Then
loc_0041F471: GoTo loc_0041F475
loc_0041F473: End If
loc_0041F475: 'Referenced from: 0041F471
loc_0041F4B1: If var_DC Then
loc_0041F4E7: var_3C = "Invalid Date..."
loc_0041F543: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041F563: var_eax = txtDate.SetFocus
loc_0041F594: End If
loc_0041F59D: GoTo loc_0041F5E3
loc_0041F5E2: Exit Sub
loc_0041F5E3: 'Referenced from: 0041F59D
End Sub
Private Sub txtDed_Change() '41F610
Dim var_90 As TextBox
loc_0041F69D: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041F6CB: var_1C = txtOther.Text
loc_0041F716: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_0041F736: var_20 = txtRLoan.Text
loc_0041F781: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_0041F79B: var_90 = var_44
loc_0041F7C2: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041F7E2: var_18 = txtDed.Text
loc_0041F824: call __vbaStrR8
loc_0041F82F: var_24 = __vbaStrR8
loc_0041F83F: txtDed.Text = var_24
loc_0041F8A6: var_eax = frmSalaryDetail.Proc_5_27_422110(Me)
loc_0041F8B9: GoTo loc_0041F8FF
loc_0041F8FE: Exit Sub
loc_0041F8FF: 'Referenced from: 0041F8B9
loc_0041F8FF: Exit Sub
End Sub
Private Sub txtDed_GotFocus() '41F930
loc_0041F9A5: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041F9D1: txtDed.SelStart = 0
loc_0041FA22: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_0041FA5D: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041FA7D: var_18 = txtDed.Text
loc_0041FAA5: txtDed.SelLength = Len(var_18)
loc_0041FAEF: GoTo loc_0041FB16
loc_0041FB15: Exit Sub
loc_0041FB16: 'Referenced from: 0041FAEF
End Sub
Private Sub txtDed_KeyPress(KeyAscii As Integer) '41FB40
Dim var_24 As TextBox
loc_0041FB9B: If edi = 13 Then
loc_0041FBC1: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041FBE1: var_eax = txtOther.SetFocus
loc_0041FC12: GoTo loc_0041FEEB
loc_0041FC17: End If
loc_0041FC1B: If var_1C = 3 Then
loc_0041FC46: var_24 = Global.Clipboard
loc_0041FC8A: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_0041FCAE: var_18 = txtDed.Text
loc_0041FCEE: var_18 = txtDed.ForeColor
loc_0041FD28: GoTo loc_0041FEEB
loc_0041FD2D: End If
loc_0041FD31: If var_24 = 24 Then
loc_0041FD5C: var_24 = Global.Clipboard
loc_0041FD9B: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041FDBF: var_18 = txtDed.Text
loc_0041FE0E: var_18 = txtDed.ForeColor
loc_0041FE68: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_0041FE89: txtDed.Text = var_0040A3CC
loc_0041FEB4: GoTo loc_0041FEEB
loc_0041FEB6: End If
loc_0041FEBA: If var_1C = 22 Then GoTo loc_0041FEEB
loc_0041FEC2: setg cl
loc_0041FECB: setl dl
loc_0041FED0: If edx = 0 Then GoTo loc_0041FEEB
loc_0041FED8: setnz cl
loc_0041FEE1: setnz dl
loc_0041FEE6: If edx = 0 Then GoTo loc_0041FEEB
loc_0041FEEB: 'Referenced from: 0041FC12
loc_0041FEF3: GoTo loc_0041FF16
loc_0041FF15: Exit Sub
loc_0041FF16: 'Referenced from: 0041FEF3
End Sub
Private Sub txtDed_KeyUp(KeyCode As Integer, Shift As Integer) '41FF40
Dim var_1C As TextBox
loc_0041FF92: If edx = 37 Then
loc_0041FFB8: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_0041FFD8: var_eax = txtDate.SetFocus
loc_0041FFE2: If txtDate.SetFocus < 0 Then
loc_0041FFE8: GoTo loc_00420270
loc_0041FFED: End If
loc_0041FFF1: If txtDate.SetFocus = 35 Then
loc_00420012: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00420032: var_eax = txtDed.SetFocus
loc_0042005C: GoTo loc_0042028A
loc_00420065: If var_1C = 38 Then
loc_00420071: If KeyCode Then
loc_0042008F: edi = edi - 0001h
loc_0042009E: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_004200BE: var_eax = txtDed.SetFocus
loc_004200C8: If txtDed.SetFocus < 0 Then
loc_004200CE: GoTo loc_00420270
loc_004200D3: End If
loc_004200F2: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00420112: var_eax = txtDed.SetFocus
loc_0042013C: GoTo loc_0042028A
loc_00420145: If var_1C = 39 Then
loc_0042016B: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0042018B: var_eax = txtOther.SetFocus
loc_00420195: If txtOther.SetFocus < 0 Then
loc_0042019B: GoTo loc_00420270
loc_004201A0: End If
loc_004201A4: If txtOther.SetFocus <> 40 Then GoTo loc_00420295
loc_004201B1: If KeyCode = 11 Then
loc_004201D1: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_004201F1: var_eax = txtDed.SetFocus
loc_0042020F: End If
loc_0042020F: End If
loc_00420217: GoTo loc_0042028A
loc_00420219: End If
loc_00420235: edi = edi + 0001h
loc_00420244: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_00420264: var_eax = txtDed.SetFocus
loc_0042026E: If txtDed.SetFocus < 0 Then
loc_00420270: 'Referenced from: 0041FFE8
loc_0042027C: txtDed.SetFocus = CheckObj(var_1C, var_00408F54, 516)
loc_00420282: End If
loc_00420282: End If
loc_00420282: End If
loc_00420282: End If
loc_0042028A: 'Referenced from: 0042005C
loc_0042029D: GoTo loc_004202B3
loc_004202B2: Exit Sub
loc_004202B3: 'Referenced from: 0042029D
End Sub
Private Sub Form_Load() '41E0D0
Dim var_44 As Variant
Dim var_24 As Variant
loc_0041E13D: var_44 = var_28
loc_0041E177: var_1C = frmEmpForm.txtGPFNumber.Text
loc_0041E19F: frmEmpForm.txtGPFNumber.Text = var_1C
loc_0041E223: var_1C = frmEmpForm.txtEmpName.Text
loc_0041E24B: frmEmpForm.txtEmpName.Text = var_1C
loc_0041E295: var_44 = var_24
loc_0041E2CF: var_1C = frmEmpForm.cmbStart.Text
loc_0041E2F7: frmEmpForm.cmbStart.MousePointer = var_1C
loc_0041E37B: var_1C = frmEmpForm.cmbEnd.Text
loc_0041E3A3: frmEmpForm.cmbEnd.MousePointer = var_1C
loc_0041E3F4: txtGPFNumber.Locked = True
loc_0041E432: txtEmpName.Locked = True
loc_0041E470: txtJobStart.Locked = True
loc_0041E4AE: txtJobEnding.Locked = True
loc_0041E4EA: var_eax = cmbYear.Clear
loc_0041E548: var_20 = frmEmpForm.cmbEnd.Text
loc_0041E576: var_50 = CInt(Val(var_20))
loc_0041E5B7: var_1C = frmEmpForm.cmbStart.Text
loc_0041E5F1: var_18 = CInt(Val(var_1C))
loc_0041E611: If CInt(Val(var_1C)) <= 0 Then
loc_0041E65A: var_1C = CStr(var_18)
loc_0041E662: var_eax = cmbYear.AddItem var_1C, var_2C
loc_0041E6A6: var_18 = var_4C + var_18
loc_0041E6A9: GoTo loc_0041E60D
loc_0041E6AE: End If
loc_0041E6C5: cmbYear.ListIndex = 0
loc_0041E6EF: var_eax = Call frmSalaryDetail.blankAllTextBox
loc_0041E70E: var_eax = frmSalaryDetail.Proc_5_28_4229E0(Me, var_24)
loc_0041E717: var_eax = frmSalaryDetail.Proc_5_29_423FB0(Me, cmbYear.AddItem var_1C, var_2C)
loc_0041E72A: GoTo loc_0041E750
loc_0041E74F: Exit Sub
loc_0041E750: 'Referenced from: 0041E72A
loc_0041E750: Exit Sub
End Sub
Private Sub txtLoan_Change() '4202E0
Dim var_90 As TextBox
loc_0042036D: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0042039B: var_1C = txtOther.Text
loc_004203E6: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00420406: var_20 = txtRLoan.Text
loc_00420451: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_0042046B: var_90 = var_44
loc_00420492: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_004204B2: var_18 = txtDed.Text
loc_004204F4: call __vbaStrR8
loc_004204FF: var_24 = __vbaStrR8
loc_0042050F: txtDed.Text = var_24
loc_00420576: var_eax = frmSalaryDetail.Proc_5_27_422110(Me)
loc_00420589: GoTo loc_004205CF
loc_004205CE: Exit Sub
loc_004205CF: 'Referenced from: 00420589
loc_004205CF: Exit Sub
End Sub
Private Sub txtLoan_GotFocus() '420600
loc_00420675: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_004206A1: txtLoan.SelStart = 0
loc_004206F2: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_0042072D: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0042074D: var_18 = txtLoan.Text
loc_00420775: txtLoan.SelLength = Len(var_18)
loc_004207BF: GoTo loc_004207E6
loc_004207E5: Exit Sub
loc_004207E6: 'Referenced from: 004207BF
End Sub
Private Sub txtLoan_KeyPress(KeyAscii As Integer) '420810
Dim var_1C As CommandButton
Dim var_24 As TextBox
loc_0042086B: If edi = 13 Then
loc_0042087B: If KeyAscii = 11 Then
loc_00420893: var_eax = cmdSave.SetFocus
loc_004208BA: GoTo loc_00420C90
loc_004208D8: edi = edi + 0001h
loc_004208E7: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_00420907: var_eax = txtDate.SetFocus
loc_00420938: GoTo loc_00420C90
loc_0042093D: End If
loc_00420941: If var_1C = 3 Then
loc_0042096C: var_24 = Global.Clipboard
loc_004209B0: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_004209D4: var_18 = txtLoan.Text
loc_00420A14: var_18 = txtLoan.ForeColor
loc_00420A4E: GoTo loc_00420C90
loc_00420A53: End If
loc_00420A57: If var_24 = 24 Then
loc_00420A82: var_24 = Global.Clipboard
loc_00420AC1: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_00420AE5: var_18 = txtLoan.Text
loc_00420B34: var_18 = txtLoan.ForeColor
loc_00420B8E: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_00420BAF: txtLoan.Text = var_0040A3CC
loc_00420BDA: GoTo loc_00420C90
loc_00420BDF: End If
loc_00420BE3: If var_1C = 22 Then
loc_00420C09: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00420C2E: txtDed.SelText = vbNullString
loc_00420C5F: GoTo loc_00420C90
loc_00420C61: End If
loc_00420C67: setg dl
loc_00420C70: setl cl
loc_00420C75: If ecx = 0 Then GoTo loc_00420C90
loc_00420C7D: setnz dl
loc_00420C86: setnz cl
loc_00420C8B: If ecx = 0 Then GoTo loc_00420C90
loc_00420C90: 'Referenced from: 004208BA
loc_00420C98: GoTo loc_00420CBB
loc_00420CBA: Exit Sub
loc_00420CBB: 'Referenced from: 00420C98
End Sub
Private Sub txtLoan_KeyUp(KeyCode As Integer, Shift As Integer) '420CF0
Dim var_1C As TextBox
loc_00420D3F: If Shift = 37 Then
loc_00420D6B: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_00420D96: var_eax = txtRLoan.SetFocus
loc_00420DC6: GoTo loc_00420DD4
loc_00420DC8: End If
loc_00420DD4: 'Referenced from: 00420DC6
loc_00420DDB: If Shift = 35 Then
loc_00420DF8: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_00420E14: var_eax = txtLoan.SetFocus
loc_00420E47: End If
loc_00420E4E: If Shift = 39 Then
loc_00420E5B: If KeyCode < 11 Then
loc_00420E7B: ecx = ecx + 0001h
loc_00420E87: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_00420EA3: var_eax = txtDate.SetFocus
loc_00420EC5: GoTo loc_00420F20
loc_00420EC7: End If
loc_00420ED5: call var_1C(var_18, var_18, Me, var_18, var_1C, Me, esi, var_1C, var_18, Me, Me, var_18, Me, Me, var_18, Me)
loc_00420EE2: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00420EFE: var_eax = txtDate.SetFocus
loc_00420F20: 'Referenced from: 00420EC5
loc_00420F31: End If
loc_00420F38: If Shift = 38 Then
loc_00420F45: If KeyCode Then
loc_00420F65: edx = edx - 0001h
loc_00420F71: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00420F8D: var_eax = txtLoan.SetFocus
loc_00420FAF: GoTo loc_0042100A
loc_00420FB1: End If
loc_00420FBF: call var_1C(var_18, var_1C, Me, var_18, var_1C, KeyCode, esi, var_1C, var_18, KeyCode, Me)
loc_00420FCC: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_00420FE8: var_eax = txtLoan.SetFocus
loc_0042100A: 'Referenced from: 00420FAF
loc_0042101B: End If
loc_00421022: If Shift = 40 Then
loc_0042102F: If KeyCode = 11 Then
loc_0042104C: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_00421068: var_eax = txtLoan.SetFocus
loc_0042108A: GoTo loc_004210F4
loc_0042108C: End If
loc_004210AA: edx = edx + 0001h
loc_004210B6: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_004210D2: var_eax = txtLoan.SetFocus
loc_004210F4: 'Referenced from: 0042108A
loc_004210FF: End If
loc_0042110B: GoTo loc_00421121
loc_00421120: Exit Sub
loc_00421121: 'Referenced from: 0042110B
End Sub
Private Sub txtOther_Change() '421150
Dim var_90 As TextBox
loc_004211DD: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0042120B: var_1C = txtOther.Text
loc_00421256: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00421276: var_20 = txtRLoan.Text
loc_004212C1: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_004212DB: var_90 = var_44
loc_00421302: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_00421322: var_18 = txtDed.Text
loc_00421364: call __vbaStrR8
loc_0042136F: var_24 = __vbaStrR8
loc_0042137F: txtDed.Text = var_24
loc_004213E6: var_eax = frmSalaryDetail.Proc_5_27_422110(Me)
loc_004213F9: GoTo loc_0042143F
loc_0042143E: Exit Sub
loc_0042143F: 'Referenced from: 004213F9
loc_0042143F: Exit Sub
End Sub
Private Sub txtOther_GotFocus() '421470
loc_004214E5: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_00421511: txtOther.SelStart = 0
loc_00421562: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_0042159D: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_004215BD: var_18 = txtOther.Text
loc_004215E5: txtOther.SelLength = Len(var_18)
loc_0042162F: GoTo loc_00421656
loc_00421655: Exit Sub
loc_00421656: 'Referenced from: 0042162F
End Sub
Private Sub txtOther_KeyPress(KeyAscii As Integer) '421680
Dim var_24 As TextBox
loc_004216DB: If edi = 13 Then
loc_00421701: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_00421721: var_eax = txtRLoan.SetFocus
loc_00421752: GoTo loc_00421A2B
loc_00421757: End If
loc_0042175B: If var_1C = 3 Then
loc_00421786: var_24 = Global.Clipboard
loc_004217CA: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_004217EE: var_18 = txtOther.Text
loc_0042182E: var_18 = txtOther.ForeColor
loc_00421868: GoTo loc_00421A2B
loc_0042186D: End If
loc_00421871: If var_24 = 24 Then
loc_0042189C: var_24 = Global.Clipboard
loc_004218DB: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_004218FF: var_18 = txtOther.Text
loc_0042194E: var_18 = txtOther.ForeColor
loc_004219A8: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_004219C9: txtOther.Text = var_0040A3CC
loc_004219F4: GoTo loc_00421A2B
loc_004219F6: End If
loc_004219FA: If var_1C = 22 Then GoTo loc_00421A2B
loc_00421A02: setg cl
loc_00421A0B: setl dl
loc_00421A10: If edx = 0 Then GoTo loc_00421A2B
loc_00421A18: setnz cl
loc_00421A21: setnz dl
loc_00421A26: If edx = 0 Then GoTo loc_00421A2B
loc_00421A2B: 'Referenced from: 00421752
loc_00421A33: GoTo loc_00421A56
loc_00421A55: Exit Sub
loc_00421A56: 'Referenced from: 00421A33
End Sub
Private Sub txtOther_KeyUp(KeyCode As Integer, Shift As Integer) '421A80
Dim var_1C As TextBox
loc_00421AD2: If edx = 37 Then
loc_00421AFC: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_00421B27: var_eax = txtDed.SetFocus
loc_00421B57: GoTo loc_00421BE6
loc_00421B5C: End If
loc_00421B60: If var_18 = 35 Then
loc_00421B81: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00421BAB: var_eax = txtOther.SetFocus
loc_00421BDB: GoTo loc_00421BE6
loc_00421BDD: End If
loc_00421BE6: 'Referenced from: 00421B57
loc_00421BF0: If edx = 39 Then
loc_00421C13: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_00421C1A: If Unknown_VTable_Call[edx+00000040h] >= 0 Then GoTo loc_00421CA2
loc_00421C20: GoTo loc_00421C97
loc_00421C22: End If
loc_00421C26: If Unknown_VTable_Call[edx+00000040h] <> 38 Then GoTo loc_00421CD1
loc_00421C30: If KeyCode Then
loc_00421C4E: ebx = ebx - 0001h
loc_00421C5D: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_00421C64: If Unknown_VTable_Call[ecx+00000040h] >= 0 Then GoTo loc_00421D14
loc_00421C6A: GoTo loc_00421D09
loc_00421C6F: End If
loc_00421C8E: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00421C95: If Unknown_VTable_Call[eax+00000040h] < 0 Then
loc_00421C97: 'Referenced from: 00421C20
loc_00421CA0: Unknown_VTable_Call[eax+00000040h] = CheckObj(Unknown_VTable_Call[ecx+00000040h], vbNullString, 64)
loc_00421CA2: End If
loc_00421CAA: var_eax = txtOther.SetFocus
loc_00421CCC: GoTo loc_00421D93
loc_00421CD5: If var_1C <> 40 Then GoTo loc_00421D9E
loc_00421CDF: If ebx-0001h = 11 Then
loc_00421D00: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_00421D07: If Unknown_VTable_Call[ecx+00000040h] < 0 Then
loc_00421D09: 'Referenced from: 00421C6A
loc_00421D12: Unknown_VTable_Call[ecx+00000040h] = CheckObj(var_18, vbNullString, 64)
loc_00421D14: End If
loc_00421D1C: var_eax = txtOther.SetFocus
loc_00421D26: If txtOther.SetFocus < 0 Then
loc_00421D28: GoTo loc_00421D7D
loc_00421D2A: End If
loc_00421D46: ebx = ebx + 0001h
loc_00421D55: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00421D71: var_eax = txtOther.SetFocus
loc_00421D7B: If txtOther.SetFocus < 0 Then
loc_00421D7D: 'Referenced from: 00421D28
loc_00421D89: txtOther.SetFocus = CheckObj(var_1C, var_00408F54, 516)
loc_00421D8B: End If
loc_00421D8B: End If
loc_00421D93: 'Referenced from: 00421CCC
loc_00421D9E:
loc_00421DAA: GoTo loc_00421DC0
loc_00421DBF: Exit Sub
loc_00421DC0: 'Referenced from: 00421DAA
End Sub
Private Sub txtRLoan_Change() '421DF0
Dim var_90 As TextBox
loc_00421E7D: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_00421EAB: var_1C = txtOther.Text
loc_00421EF6: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00421F16: var_20 = txtRLoan.Text
loc_00421F61: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_00421F7B: var_90 = var_44
loc_00421FA2: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_00421FC2: var_18 = txtDed.Text
loc_00422004: call __vbaStrR8
loc_0042200F: var_24 = __vbaStrR8
loc_0042201F: txtDed.Text = var_24
loc_00422086: var_eax = frmSalaryDetail.Proc_5_27_422110(Me)
loc_00422099: GoTo loc_004220DF
loc_004220DE: Exit Sub
loc_004220DF: 'Referenced from: 00422099
loc_004220DF: Exit Sub
End Sub
Private Sub txtRLoan_GotFocus() '424300
loc_00424375: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_004243A1: txtRLoan.SelStart = 0
loc_004243F2: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_0042442D: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0042444D: var_18 = txtRLoan.Text
loc_00424475: txtRLoan.SelLength = Len(var_18)
loc_004244BF: GoTo loc_004244E6
loc_004244E5: Exit Sub
loc_004244E6: 'Referenced from: 004244BF
End Sub
Private Sub txtRLoan_KeyPress(KeyAscii As Integer) '424510
Dim var_24 As TextBox
loc_0042456B: If edi = 13 Then
loc_00424591: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_004245B1: var_eax = txtLoan.SetFocus
loc_004245E2: GoTo loc_004248BB
loc_004245E7: End If
loc_004245EB: If var_1C = 3 Then
loc_00424616: var_24 = Global.Clipboard
loc_0042465A: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_0042467E: var_18 = txtRLoan.Text
loc_004246BE: var_18 = txtRLoan.ForeColor
loc_004246F8: GoTo loc_004248BB
loc_004246FD: End If
loc_00424701: If var_24 = 24 Then
loc_0042472C: var_24 = Global.Clipboard
loc_0042476B: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0042478F: var_18 = txtRLoan.Text
loc_004247DE: var_18 = txtRLoan.ForeColor
loc_00424838: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_00424859: txtRLoan.Text = var_0040A3CC
loc_00424884: GoTo loc_004248BB
loc_00424886: End If
loc_0042488A: If var_1C = 22 Then GoTo loc_004248BB
loc_00424892: setg cl
loc_0042489B: setl dl
loc_004248A0: If edx = 0 Then GoTo loc_004248BB
loc_004248A8: setnz cl
loc_004248B1: setnz dl
loc_004248B6: If edx = 0 Then GoTo loc_004248BB
loc_004248BB: 'Referenced from: 004245E2
loc_004248C3: GoTo loc_004248E6
loc_004248E5: Exit Sub
loc_004248E6: 'Referenced from: 004248C3
End Sub
Private Sub txtRLoan_KeyUp(KeyCode As Integer, Shift As Integer) '424910
Dim var_1C As TextBox
loc_00424962: If edx = 37 Then
loc_00424988: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_004249A8: var_eax = txtOther.SetFocus
loc_004249B2: If txtOther.SetFocus < 0 Then
loc_004249B8: GoTo loc_00424C1F
loc_004249BD: End If
loc_004249C1: If txtOther.SetFocus = 35 Then
loc_004249E2: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00424A02: var_eax = txtRLoan.SetFocus
loc_00424A2C: GoTo loc_00424C39
loc_00424A35: If var_1C = 39 Then
loc_00424A5B: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_00424A7B: var_eax = txtLoan.SetFocus
loc_00424A85: If txtLoan.SetFocus < 0 Then
loc_00424A8B: GoTo loc_00424C1F
loc_00424A90: End If
loc_00424A94: If txtLoan.SetFocus = 38 Then
loc_00424AA3: If KeyCode Then
loc_00424ABE: edi = edi - 0001h
loc_00424ACD: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00424AED: var_eax = txtRLoan.SetFocus
loc_00424AF7: If txtRLoan.SetFocus < 0 Then
loc_00424AFD: GoTo loc_00424C1F
loc_00424B1E: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00424B3E: var_eax = txtRLoan.SetFocus
loc_00424B5C: End If
loc_00424B64: GoTo loc_00424C39
loc_00424B69: End If
loc_00424B6D: If var_1C <> 40 Then GoTo loc_00424C44
loc_00424B7A: If KeyCode = 11 Then
loc_00424B9A: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_00424BBA: var_eax = txtRLoan.SetFocus
loc_00424BC4: If txtRLoan.SetFocus < 0 Then
loc_00424BC6: GoTo loc_00424C1F
loc_00424BC8: End If
loc_00424BE4: edi = edi + 0001h
loc_00424BF3: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00424C13: var_eax = txtRLoan.SetFocus
loc_00424C1D: If txtRLoan.SetFocus < 0 Then
loc_00424C1F: 'Referenced from: 004249B8
loc_00424C2B: txtRLoan.SetFocus = CheckObj(var_1C, var_00408F54, 516)
loc_00424C31: End If
loc_00424C31: End If
loc_00424C31: End If
loc_00424C31: End If
loc_00424C31: End If
loc_00424C39: 'Referenced from: 00424A2C
loc_00424C4C: GoTo loc_00424C62
loc_00424C61: Exit Sub
loc_00424C62: 'Referenced from: 00424C4C
End Sub
Private Sub cmbYear_Change() '41C730
loc_0041C77B: var_eax = frmSalaryDetail.Proc_5_28_4229E0(Me, edi)
loc_0041C784: var_eax = frmSalaryDetail.Proc_5_29_423FB0(Me, esi)
loc_0041C7A8: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_0041C7C8: var_eax = txtDate.SetFocus
loc_0041C801: GoTo loc_0041C817
loc_0041C816: Exit Sub
loc_0041C817: 'Referenced from: 0041C801
End Sub
Private Sub cmbYear_Click() '41C840
loc_0041C886: If Me.SaveProp 'Ignore this = 0 Then
loc_0041C88B: var_eax = frmSalaryDetail.Proc_5_28_4229E0(Me, esi)
loc_0041C894: var_eax = frmSalaryDetail.Proc_5_29_423FB0(Me)
loc_0041C89A: End If
End Sub
Private Sub cmdSave_Click() '41C990
Dim var_6C As Variant
Dim var_70 As Variant
loc_0041CA67: var_24 = txtGPFNumber.Text
loc_0041CAA2: var_2C = cmbYear.Text
loc_0041CAEB: var_30 = "Delete from EmpDedTable Where gpf_no = '" & var_24 & "' and fn_year = "
loc_0041CAFE: call __vbaStrR8
loc_0041CB15: ecx = & __vbaStrR8
loc_0041CB4B: var_eax = call Proc_2_0_41B450(vbNullString, , )
loc_0041CB71: var_44 = txtGPFNumber.Text
loc_0041CBB6: var_50 = cmbYear.Text
loc_0041CBEB: var_24 = "Insert Into EmpDedTable (gpf_no, fn_year, aplentdate, aplded, aploth, " & "aplrloan, aplloan, mayentdate, mayded, mayoth, mayrloan, mayloan, "
loc_0041CC09: var_2C = var_24 & "junentdate, junded, junoth, junrloan, junloan, julentdate, julded, " & "juloth, julrloan, julloan, augentdate, augded, augoth, augrloan, "
loc_0041CC27: var_34 = var_2C & "augloan, sepentdate, sepded, sepoth, seprloan, seploan, octentdate, " & "octded, octoth, octrloan, octloan, noventdate, novded, novoth, "
loc_0041CC45: var_3C = var_34 & "novrloan, novloan, decentdate, decded, decoth, decrloan, decloan, " & "janentdate, janded, janoth, janrloan, janloan, febentdate, febded, "
loc_0041CC80: var_54 = var_3C & "feboth, febrloan, febloan, marentdate, marded, maroth, marrloan, " & "marloan) Values ('" & var_44 & "', "
loc_0041CC93: call __vbaStrR8
loc_0041CCAA: ecx = & __vbaStrR8
loc_0041CD06:
loc_0041CD11: If var_18 <= 11 Then
loc_0041CD1C: If var_18 <= 11 Then
loc_0041CD22: GoTo loc_[eax*4+0041E08Ch]
loc_0041CD4E: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041CD7C: var_24 = txtDate.Text
loc_0041CDC1: var_30 = cmbYear.Text
loc_0041CDF5: call __vbaStrR8
loc_0041CE1E: var_34 = __vbaStrR8 & var_0040A300 & "04/"
loc_0041CE2B: GoTo loc_0041D960
loc_0041CE55: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041CE83: var_24 = txtDate.Text
loc_0041CEC8: var_30 = cmbYear.Text
loc_0041CEFC: call __vbaStrR8
loc_0041CF25: var_34 = __vbaStrR8 & var_0040A300 & "05/"
loc_0041CF32: GoTo loc_0041D960
loc_0041CF5C: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041CF8A: var_24 = txtDate.Text
loc_0041CFCF: var_30 = cmbYear.Text
loc_0041D003: call __vbaStrR8
loc_0041D02C: var_34 = __vbaStrR8 & var_0040A300 & "06/"
loc_0041D039: GoTo loc_0041D960
loc_0041D063: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041D091: var_24 = txtDate.Text
loc_0041D0D6: var_30 = cmbYear.Text
loc_0041D10A: call __vbaStrR8
loc_0041D133: var_34 = __vbaStrR8 & var_0040A300 & "07/"
loc_0041D140: GoTo loc_0041D960
loc_0041D16A: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041D198: var_24 = txtDate.Text
loc_0041D1DD: var_30 = cmbYear.Text
loc_0041D211: call __vbaStrR8
loc_0041D23A: var_34 = __vbaStrR8 & var_0040A300 & "08/"
loc_0041D247: GoTo loc_0041D960
loc_0041D271: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041D29F: var_24 = txtDate.Text
loc_0041D2E4: var_30 = cmbYear.Text
loc_0041D318: call __vbaStrR8
loc_0041D341: var_34 = __vbaStrR8 & var_0040A300 & "09/"
loc_0041D34E: GoTo loc_0041D960
loc_0041D378: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041D3A6: var_24 = txtDate.Text
loc_0041D3EB: var_30 = cmbYear.Text
loc_0041D41F: call __vbaStrR8
loc_0041D448: var_34 = __vbaStrR8 & var_0040A300 & "10/"
loc_0041D455: GoTo loc_0041D960
loc_0041D47F: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041D4AD: var_24 = txtDate.Text
loc_0041D4F2: var_30 = cmbYear.Text
loc_0041D526: call __vbaStrR8
loc_0041D54F: var_34 = __vbaStrR8 & var_0040A300 & "11/"
loc_0041D55C: GoTo loc_0041D960
loc_0041D586: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041D5B4: var_24 = txtDate.Text
loc_0041D5F9: var_30 = cmbYear.Text
loc_0041D62D: call __vbaStrR8
loc_0041D656: var_34 = __vbaStrR8 & var_0040A300 & "12/"
loc_0041D663: GoTo loc_0041D960
loc_0041D68D: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041D6BB: var_24 = txtDate.Text
loc_0041D700: var_30 = cmbYear.Text
loc_0041D734: call __vbaStrR8
loc_0041D74E: var_2C = __vbaStrR8 & var_0040A300
loc_0041D756: GoTo loc_0041D93C
loc_0041D780: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041D7AE: var_24 = txtDate.Text
loc_0041D7F3: var_30 = cmbYear.Text
loc_0041D827: call __vbaStrR8
loc_0041D841: var_2C = __vbaStrR8 & var_0040A300
loc_0041D849: GoTo loc_0041D93C
loc_0041D86D: var_C4 = var_6C
loc_0041D873: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041D8A1: var_24 = txtDate.Text
loc_0041D8E6: var_30 = cmbYear.Text
loc_0041D91A: call __vbaStrR8
loc_0041D943: var_34 = __vbaStrR8 & var_0040A300 & "03/"
loc_0041D960: 'Referenced from: 0041CE2B
loc_0041D966: call __vbaStrR8
loc_0041D97B: var_20 = & __vbaStrR8
loc_0041D9B4: End If
loc_0041D9D4: var_98 = "dd/mm/yyyy"
loc_0041D9E0: var_A0 = var_20
loc_0041DA12: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_0041DA40: var_30 = txtDed.Text
loc_0041DA89: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041DAB7: var_40 = txtOther.Text
loc_0041DB00: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_0041DB2E: var_50 = txtRLoan.Text
loc_0041DB7D: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041DBAE: var_60 = txtLoan.Text
loc_0041DBE4: var_24 = var_00443048 & ", '"
loc_0041DC1D: var_34 = 1 & Format$(var_20, var_98) & "', "
loc_0041DC30: call __vbaStrR8
loc_0041DC54: var_44 = & __vbaStrR8 & ", "
loc_0041DC67: call __vbaStrR8
loc_0041DC8B: var_54 = & __vbaStrR8 & ", "
loc_0041DC9E: call __vbaStrR8
loc_0041DCC2: var_64 = & __vbaStrR8 & ", "
loc_0041DCD5: call __vbaStrR8
loc_0041DCEC: ecx = & __vbaStrR8
loc_0041DD80: 00000001h = 00000001h + var_18
loc_0041DD8D: GoTo loc_0041CD06
loc_0041DD92: End If
loc_0041DDA6: ecx = var_00443048 & var_004095C0
loc_0041DDAD: var_eax = call Proc_2_0_41B450(vbNullString, , )
loc_0041DDD2: var_BC = cmbYear.ListIndex
loc_0041DE12: var_C0 = cmbYear.ListCount
loc_0041DE3A: var_BC = var_BC + 0001h
loc_0041DE51: setl cl
loc_0041DE67: If ecx Then
loc_0041DEA1: var_BC = cmbYear.ListIndex
loc_0041DEC8: var_BC = var_BC + 0001h
loc_0041DED4: cmbYear.ListIndex = var_BC
loc_0041DF0B: GoTo loc_0041DF4B
loc_0041DF0D: End If
loc_0041DF24: cmbYear.ListIndex = 0
loc_0041DF4B: 'Referenced from: 0041DF0B
loc_0041DF4E: var_eax = frmSalaryDetail.Proc_5_29_423FB0(Me, var_6C, var_70, Me, var_70)
loc_0041DF6F: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_0041DF8F: var_eax = txtDate.SetFocus
loc_0041DFCD: GoTo loc_0041E060
loc_0041E05F: Exit Sub
loc_0041E060: 'Referenced from: 0041DFCD
loc_0041E069: Exit Sub
End Sub
Public Sub blankAllTextBox() '41E780
loc_0041E7C0:
loc_0041E7CB: If ebx <= 11 Then
loc_0041E7EF: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_0041E819: var_1C = CStr(1)
loc_0041E821: txtDate.Text = var_1C
loc_0041E87C: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_0041E8A6: var_1C = CStr(0)
loc_0041E8AE: txtDed.Text = var_1C
loc_0041E909: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041E933: var_1C = CStr(0)
loc_0041E93B: txtOther.Text = var_1C
loc_0041E996: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_0041E9C0: var_1C = CStr(0)
loc_0041E9C8: txtRLoan.Text = var_1C
loc_0041EA23: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_0041EA4D: var_1C = CStr(0)
loc_0041EA55: txtTotal.Text = var_1C
loc_0041EAB0: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_0041EADA: var_1C = CStr(0)
loc_0041EAE2: txtLoan.Text = var_1C
loc_0041EB3D: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_0041EB67: var_1C = CStr(0)
loc_0041EB6F: txtBalance.Text = var_1C
loc_0041EBAE: 00000001h = 00000001h + var_18
loc_0041EBB6: GoTo loc_0041E7C0
loc_0041EBBB: End If
loc_0041EBC0: GoTo loc_0041EBDF
loc_0041EBDE: Exit Sub
loc_0041EBDF: 'Referenced from: 0041EBC0
loc_0041EBDF: Exit Sub
End Sub
Public Sub Proc_5_27_422110
Dim var_3C As TextBox
Dim var_90 As TextBox
Dim var_80 As TextBox
loc_00422186: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_004221B5: var_1C = txtOther.Text
loc_00422201: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_00422225: var_20 = txtRLoan.Text
loc_00422274: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_00422294: var_90 = var_44
loc_004222B8: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_004222D8: var_18 = txtDed.Text
loc_0042231A: call __vbaStrR8
loc_00422325: var_24 = __vbaStrR8
loc_00422335: txtDed.Text = var_24
loc_004223A2: If var_14 <= 11 Then
loc_004223C9: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_004223E9: var_1C = txtOther.Text
loc_00422431: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00422451: var_20 = txtRLoan.Text
loc_00422499: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_004224B3: var_90 = var_44
loc_004224D7: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_004224F7: var_18 = txtDed.Text
loc_00422539: call __vbaStrR8
loc_00422544: var_24 = __vbaStrR8
loc_00422554: txtDed.Text = var_24
loc_004225B6: If var_14 Then
loc_004225DD: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_004225FD: var_1C = txtTotal.Text
loc_00422645: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_00422665: var_20 = txtLoan.Text
loc_004226AD: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_004226C7: var_90 = var_44
loc_004226E7: var_14 = var_14 - 0001h
loc_004226F6: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_00422716: var_18 = txtBalance.Text
loc_00422758: call __vbaStrR8
loc_00422763: var_24 = __vbaStrR8
loc_00422773: txtBalance.Text = var_24
loc_004227D0: var_eax = Unknown_EC45896F
loc_004227D5: End If
loc_004227F4: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_00422814: var_1C = txtLoan.Text
loc_0042285A: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00422874: var_80 = var_3C
loc_00422893: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_004228B3: var_18 = txtTotal.Text
loc_004228EF: call __vbaStrR8
loc_004228FA: var_20 = __vbaStrR8
loc_00422907: txtTotal.Text = var_20
loc_0042295D: 00000001h = 00000001h + var_14
loc_00422966: var_eax = Unknown_5C38F
loc_0042296B: End If
loc_00422971: GoTo loc_004229B7
loc_004229B6: Exit Sub
loc_004229B7: 'Referenced from: 00422971
loc_004229B7: Exit Sub
End Sub
Public Sub Proc_5_28_4229E0
Dim var_50 As ComboBox
Dim var_60 As ADODB.Recordset
Dim var_6C As TextBox
Dim var_64 As Variant
Dim var_184 As ADODB.Recordset
loc_00422AA6: var_50 = txtGPFNumber.Text
loc_00422AE1: var_58 = cmbYear.Text
loc_00422B3A: ecx = "Select * From EmpDedTable Where gpf_no = '" & var_50 & "' and fn_year = " & var_58
loc_00422B90: var_160 = ADODB.Recordset.State
loc_00422BBF: If var_160 = 1 Then
loc_00422BE2: var_eax = ADODB.Recordset.Close
loc_00422BFC: End If
loc_00422C1F: ADODB.Recordset.CursorLocation = CInt(3)
loc_00422CE3: var_eax = Unknown_VTable_Call[edi+000000A0h]
loc_00422D34: var_160 = ADODB.Recordset.RecordCount
loc_00422D50: If var_160 > 0 Then
loc_00422DB9: For var_20 = 3 To 60 Step 5
loc_00422DBF:
loc_00422DC1: If var_198 Then
loc_00422DED: var_60 = ADODB.Recordset.Fields
loc_00422E29: ADODB.Recordset.ActiveConnection = var_14
loc_00422E47: var_74 = var_64
loc_00422E75: If Not (IsNull(var_64)) Then
loc_00422EA1: var_60 = ADODB.Recordset.Fields
loc_00422EDD: ADODB.Recordset.ActiveConnection = var_14
loc_00422F1C: var_74 = var_64
loc_00422F4B: var_58 = Format$(0, "dd / mm / yyyy")
loc_00422F71: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_00422F99: var_1D8 = var_6C
loc_00422FAD: var_54 = Left$(0, 2)
loc_00422FBB: txtDate.Text = var_54
loc_00423013: End If
loc_00423039: var_60 = ADODB.Recordset.Fields
loc_0042309B: var_eax = ADODB.Recordset.ActiveConnection =
loc_004230C0: var_84 = var_64
loc_00423101: If Not (IsNull(var_64)) Then
loc_0042312B: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00423142: var_184 = var_6C
loc_0042316E: var_60 = ADODB.Recordset.Fields
loc_004231CC: var_eax = ADODB.Recordset.ActiveConnection =
loc_004231EF: var_64 = ADODB.Recordset.BOF
loc_0042321D: var_50 = var_64
loc_00423225: var_eax = ADODB.Recordset.Requery
loc_0042327A: End If
loc_004232A0: var_60 = ADODB.Recordset.Fields
loc_004232FA: var_eax = ADODB.Recordset.ActiveConnection =
loc_0042331F: var_84 = var_64
loc_00423360: If Not (IsNull(var_64)) Then
loc_0042338A: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_004233A1: var_184 = var_6C
loc_004233CD: var_60 = ADODB.Recordset.Fields
loc_00423427: var_eax = ADODB.Recordset.ActiveConnection =
loc_0042344A: var_64 = ADODB.Recordset.BOF
loc_00423478: var_50 = var_64
loc_00423480: var_eax = ADODB.Recordset.Requery
loc_004234D5: End If
loc_004234FB: var_60 = ADODB.Recordset.Fields
loc_00423559: var_eax = ADODB.Recordset.ActiveConnection =
loc_0042357E: var_84 = var_64
loc_004235BB: If Not (IsNull(var_64)) Then
loc_004235E5: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_004235FC: var_184 = var_6C
loc_00423628: var_60 = ADODB.Recordset.Fields
loc_0042368A: var_eax = ADODB.Recordset.ActiveConnection =
loc_004236AD: var_64 = ADODB.Recordset.BOF
loc_004236DB: var_50 = var_64
loc_004236E3: var_eax = ADODB.Recordset.Requery
loc_00423734: End If
loc_0042375A: var_60 = ADODB.Recordset.Fields
loc_004237BC: var_eax = ADODB.Recordset.ActiveConnection =
loc_004237E1: var_84 = var_64
loc_0042381E: If Not (IsNull(var_64)) Then
loc_00423848: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_0042385F: var_184 = var_6C
loc_0042388B: var_60 = ADODB.Recordset.Fields
loc_004238ED: var_eax = ADODB.Recordset.ActiveConnection =
loc_00423910: var_64 = ADODB.Recordset.BOF
loc_0042393E: var_50 = var_64
loc_00423946: var_eax = ADODB.Recordset.Requery
loc_00423997: End If
loc_004239A1: var_34 = var_34 + 0001h
loc_004239B1: var_34 = var_34
loc_004239BA: Next var_20
loc_004239C0: GoTo loc_00422DBF
loc_004239C5: End If
loc_00423A10: var_7C = "Record found"
loc_00423A5B:
loc_00423A61: GoTo loc_00423F5A
loc_00423A66: End If
loc_00423AB1: var_7C = "No record found..."
loc_00423B04: var_eax = Call frmSalaryDetail.blankAllTextBox
loc_00423BF5: var_44 = Val(InputBox("Enter default deduction amount :: ", 0, var_9C, 10, 10, 10, 10))
loc_00423CE3: var_50 = InputBox("Enter default rLoan amount :: ", "", var_9C, 10, 10, 10, 10)
loc_00423D31:
loc_00423D3C: If edi > 11 Then GoTo loc_00423A5B
loc_00423D60: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00423DB7: var_50 = Format$(var_44, "0.00")
loc_00423DBF: txtDed.Text = var_50
loc_00423E23: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00423E72: var_E4 = var_4C
loc_00423E90: var_50 = Format$(var_4C, "0.00")
loc_00423E98: txtRLoan.Text = var_50
loc_00423EE0: 00000001h = 00000001h + di
loc_00423EEB: GoTo loc_00423D31
loc_00423F59: Exit Sub
loc_00423F5A: 'Referenced from: 00423A61
loc_00423F88: Exit Sub
End Sub
Public Sub Proc_5_29_423FB0
loc_00423FF5: If var_14 <= 11 Then
loc_0042401C: var_eax = Unknown_VTable_Call[edx+00000040h]
loc_0042403D: txtDate.TabIndex = CInt(2)
loc_00424070: 00000002h = 00000002h + 0001h
loc_00424099: var_eax = Unknown_VTable_Call[ecx+00000040h]
loc_004240BA: txtDed.TabIndex = CInt(2)
loc_004240ED: 00000002h = 00000002h + 0001h
loc_00424116: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00424137: txtOther.TabIndex = CInt(2)
loc_0042416A: 00000002h = 00000002h + 0001h
loc_00424193: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_004241B4: txtRLoan.TabIndex = CInt(2)
loc_004241E7: 00000002h = 00000002h + 0001h
loc_00424210: var_eax = Unknown_VTable_Call[eax+00000040h]
loc_00424231: txtLoan.TabIndex = CInt(2)
loc_00424262: 00000002h = 00000002h + 0001h
loc_00424271: 00000001h = 00000001h + var_14
loc_0042427A: var_eax = Unknown_2848F(var_1C, var_1C, Me, var_1C, var_1C)
loc_0042427F: End If
loc_00424299: cmdSave.TabIndex = CInt(2)
loc_004242C5: GoTo loc_004242DB
loc_004242DA: Exit Sub
loc_004242DB: 'Referenced from: 004242C5
loc_004242DB: Exit Sub
End Sub
'Object: frmReportForm
Private Sub cmdExit_Click() '424D40
loc_00424DAE: Set var_18 = Me
loc_00424DB9: var_eax = Global.Unload var_18
loc_00424DE2: GoTo loc_00424DEE
loc_00424DED: Exit Sub
loc_00424DEE: 'Referenced from: 00424DE2
End Sub
Private Sub Command1_Click() '424E10
Dim var_354 As Variant
Dim var_174 As TextBox
Dim var_358 As Variant
loc_00425286: var_310 = txtOpeningBalance.Text
loc_004252CD: var_174 = Val(var_310)
loc_00425310: var_310 = txtRetirementMonth.Text
loc_00425347: var_2A0 = CInt(Val(var_310))
loc_00425383: var_354 = Global.App
loc_004253B7: var_310 = Global.Path
loc_0042540C: var_314 = frmEmpForm.txtGPFNumber.Text
loc_00425477: Open var_310 & var_0040A5AC & var_314 & ".txt" For Output As #1 Len = -1
loc_00425506: var_310 = frmEmpForm.txtGPFNumber.Text
loc_00425551: ecx = "Select * From EmpDedTable Where gpf_no='" & var_310 & "' Order By fn_year"
loc_004255A0: var_8D4 = ADODB.Recordset.State
loc_004255C5: If var_8D4 = 1 Then
loc_004255F2: var_eax = ADODB.Recordset.Close
loc_00425618: End If
loc_00425637: ADODB.Recordset.CursorLocation = CInt(3)
loc_00425700: var_eax = Unknown_VTable_Call[edx+000000A0h]
loc_00425746: var_8D4 = ADODB.Recordset.RecordCount
loc_00425764: If var_8D4 > 0 Then
loc_004257E6: 00000058h = 00000058h - Len("Calculation of GPF Interest")
loc_0042580D: If var_443000 = 0 Then
loc_00425815: GoTo loc_00425828
loc_00425817: End If
loc_00425828: 'Referenced from: 00425815
loc_00425861: var_704 = "Calculation of GPF Interest"
loc_0042587B: Print 1, Space(CLng((var_A38 / 2))) & "Calculation of GPF Interest"
loc_004258A3: var_36C = Space(30)
loc_004258EE: var_310 = frmEmpForm.txtEmpName.Text
loc_0042591E: var_384 = var_310
loc_00425933: var_704 = "Name : "
loc_0042596A: Print 1, var_36C & "Name : " & var_310
loc_004259AF: var_36C = Space(30)
loc_004259FA: var_310 = frmEmpForm.txtGPFNumber.Text
loc_00425A2A: var_384 = var_310
loc_00425A3F: var_704 = "GPF Number : "
loc_00425A76: Print 1, var_36C & "GPF Number : " & var_310
loc_00425ABB: var_36C = Space(30)
loc_00425B06: var_310 = frmEmpForm.txtDesignation.Text
loc_00425B36: var_384 = var_310
loc_00425B4B: var_704 = "Designation : "
loc_00425B82: Print 1, var_36C & "Designation : " & var_310
loc_00425BC7: var_36C = Space(30)
loc_00425C12: var_310 = frmEmpForm.txtDept.Text
loc_00425C42: var_384 = var_310
loc_00425C57: var_704 = "Department : "
loc_00425C8E: Print 1, var_36C & "Department : " & var_310
loc_00425CD3: Print 1, "-------------------------------------------------------------------------------------------"
loc_00425CE5: Print 1, "SN|Ye-ar| Open. Bal |Yr.wise De| Interest | Bonus | Total | Loan | Clg. Bal."
loc_00425CF7: Print 1, "-------------------------------------------------------------------------------------------"
loc_00425D16:
loc_00425D44: var_8D0 = ADODB.Recordset.EOF
loc_00425D6A: If var_8D0 = 0 Then
loc_00425DA5: var_354 = ADODB.Recordset.Fields
loc_00425DC9: var_704 = "fn_year"
loc_00425E11: ADODB.Recordset.ActiveConnection = var_700
loc_00425E45: var_36C = ADODB.Recordset.BOF
loc_00425E91: var_1C8 = CInt(Val(var_36C))
loc_00425EF0: ecx = "Select * From InterestTable Where fn_year=" & CStr(var_1C8)
loc_00425F30: var_8D4 = ADODB.Recordset.State
loc_00425F5B: If var_8D4 = 1 Then
loc_00425F84: var_eax = ADODB.Recordset.Close
loc_00425FA8: End If
loc_00425FD1: ADODB.Recordset.CursorLocation = CInt(3)
loc_004260B6: var_eax = Unknown_VTable_Call[ecx+000000A0h]
loc_00426108: var_8D4 = ADODB.Recordset.RecordCount
loc_0042612E: If var_8D4 > 0 Then
loc_00426162: var_354 = ADODB.Recordset.Fields
loc_00426186: var_704 = "interest"
loc_004261CE: ADODB.Recordset.ActiveConnection = var_700
loc_00426202: var_36C = ADODB.Recordset.BOF
loc_00426235: var_310 = var_36C
loc_004262A4: var_354 = ADODB.Recordset.Fields
loc_004262D8: var_704 = "bonus"
loc_00426310: ADODB.Recordset.ActiveConnection = var_700
loc_00426344: var_36C = ADODB.Recordset.BOF
loc_004263A0: var_2FC = Val(var_36C)
loc_004263D7: End If
loc_004263E1: If var_1C8 <> 2011 Then
loc_004263EB: If var_1C8 <> 2016 Then
loc_00426546: For var_54 = 3 To 60 Step 5
loc_0042654C:
loc_00426553: If var_90C Then
loc_0042657D: var_354 = ADODB.Recordset.Fields
loc_004265DD: var_A3C = var_54 + 1
loc_00426604: var_eax = ADODB.Recordset.ActiveConnection =
loc_0042662E: var_37C = ADODB.Recordset.BOF
loc_00426684: var_2EC = Val(var_37C)
loc_004266EE: var_354 = ADODB.Recordset.Fields
loc_0042674B: var_A40 = var_54 + 2
loc_00426772: var_eax = ADODB.Recordset.ActiveConnection =
loc_0042679C: var_37C = ADODB.Recordset.BOF
loc_004267EF: var_78 = Val(var_37C)
loc_00426859: var_354 = ADODB.Recordset.Fields
loc_004268B9: var_A44 = var_54 + 3
loc_004268E0: var_eax = ADODB.Recordset.ActiveConnection =
loc_0042690A: var_37C = ADODB.Recordset.BOF
loc_004269D4: var_2C0 = var_2EC + var_78 + Val(var_37C)
loc_00426A0F: var_354 = ADODB.Recordset.Fields
loc_00426A6F: var_A48 = var_54 + 4
loc_00426A96: var_eax = ADODB.Recordset.ActiveConnection =
loc_00426AC0: var_37C = ADODB.Recordset.BOF
loc_00426B16: var_B8 = Val(var_37C)
loc_00426B7C: var_29C = var_29C + var_2EC
loc_00426B98: var_2C = var_2C + var_78
loc_00426BAA: var_704 = var_D0
loc_00426BB6: var_700 = var_CC
loc_00426C0F: var_C8 = var_C8 + var_2C0
loc_00426C34: var_A8 = var_A8 + var_B8
loc_00426C60: var_ret_1 = var_198 + var_2C0 - var_B8
loc_00426C6E: var_198 = var_ret_1
loc_00426CA9: var_8D4 = ADODB.Recordset.RecordCount
loc_00426CCE: var_204 = var_204 + 0001h
loc_00426CDD: If var_204 = 0 Then
loc_00426CEA: If var_18 <= 0 Then GoTo loc_00426D7B
loc_00426CF0: End If
loc_00426D19: var_8D4 = ADODB.Recordset.RecordCount
loc_00426D42: var_204 = var_204 + 0001h
loc_00426D6D: If var_198 Then
loc_00426D75: End If
loc_00426D7B:
loc_00426D87: var_704 = var_200
loc_00426D93: var_700 = var_1FC
loc_00426DDB: var_18 = var_18 + 0001h
loc_00426DEB: var_18 = var_18
loc_00426DF4: Next var_54
loc_00426E00: GoTo loc_0042654C
loc_00426E05: End If
loc_00426E2E: var_8D4 = ADODB.Recordset.RecordCount
loc_00426E53: var_204 = var_204 + 0001h
loc_00426E66: If var_204 Then
loc_00426E7B: var_700 = var_58
loc_00426E8D: If var_443000 = 0 Then
loc_00426E95: GoTo loc_00426EA8
loc_00426E97: End If
loc_00426EA8: 'Referenced from: 00426E95
loc_00426EB4: var_704 = var_5C
loc_00426EF5: var_ret_2 = var_174 * var_5C
loc_00426F0A: var_ret_3 = var_ret_2 / 100
loc_00426F3F: var_10C = Round(var_ret_3 + ((var_200 * var_5C) / 1200#), 0)
loc_00426F51: GoTo loc_004280E2
loc_00426F56: End If
loc_00426F65: var_704 = var_5C
loc_00426F79: If var_443000 = 0 Then
loc_00426F81: GoTo loc_00426F94
loc_00426F83: End If
loc_00426F94: 'Referenced from: 00426F81
loc_00426F99: var_700 = var_58
loc_00426FB0: var_714 = var_2A0
loc_00426FF4: var_ret_4 = var_174 * var_5C
loc_00427009: var_ret_5 = var_ret_4 * var_2A0
loc_0042701E: var_ret_6 = var_ret_5 / 1200
loc_00427053: var_10C = Round(var_ret_6 + ((var_200 * var_5C) / 1200#), 0)
loc_00427065: GoTo loc_004280E2
loc_0042706A: End If
loc_0042706E: If var_10C <> 2011 Then GoTo loc_00428284
loc_00427074: End If
loc_00427211: For var_54 = 3 To 60 Step 5
loc_00427217:
loc_00427219: If var_91C Then
loc_00427248: var_354 = ADODB.Recordset.Fields
loc_004272A8: var_A4C = var_54 + 1
loc_004272CF: var_eax = ADODB.Recordset.ActiveConnection =
loc_004272F9: var_37C = ADODB.Recordset.BOF
loc_0042734F: var_2EC = Val(var_37C)
loc_004273B9: var_354 = ADODB.Recordset.Fields
loc_00427416: var_A50 = var_54 + 2
loc_0042743D: var_eax = ADODB.Recordset.ActiveConnection =
loc_00427467: var_37C = ADODB.Recordset.BOF
loc_004274BA: var_78 = Val(var_37C)
loc_00427524: var_354 = ADODB.Recordset.Fields
loc_00427584: var_A54 = var_54 + 3
loc_004275AB: var_eax = ADODB.Recordset.ActiveConnection =
loc_004275D5: var_37C = ADODB.Recordset.BOF
loc_0042769F: var_2C0 = var_2EC + var_78 + Val(var_37C)
loc_004276DA: var_354 = ADODB.Recordset.Fields
loc_0042773A: var_A58 = var_54 + 4
loc_00427761: var_eax = ADODB.Recordset.ActiveConnection =
loc_0042778B: var_37C = ADODB.Recordset.BOF
loc_004277E1: var_B8 = Val(var_37C)
loc_00427847: var_29C = var_29C + var_2EC
loc_00427863: var_2C = var_2C + var_78
loc_00427875: var_704 = var_D0
loc_00427881: var_700 = var_CC
loc_004278DA: var_C8 = var_C8 + var_2C0
loc_004278FF: var_A8 = var_A8 + var_B8
loc_00427973: If (var_54 < 43) Then
loc_00427994: var_164 = var_164 + var_198 + var_2C0 - var_B8
loc_0042799A: End If
loc_004279C3: var_8D4 = ADODB.Recordset.RecordCount
loc_004279E2: var_204 = var_204 + 0001h
loc_004279F5: If var_204 = 0 Then
loc_00427A02: If var_18 <= 0 Then GoTo loc_00427A93
loc_00427A08: End If
loc_00427A31: var_8D4 = ADODB.Recordset.RecordCount
loc_00427A56: var_204 = var_204 + 0001h
loc_00427A85: If var_204 Then
loc_00427A8D: End If
loc_00427A93:
loc_00427A9F: var_704 = var_200
loc_00427AAB: var_700 = var_1FC
loc_00427AF3: var_18 = var_18 + 0001h
loc_00427B03: var_18 = var_18
loc_00427B0C: Next var_54
loc_00427B18: GoTo loc_00427217
loc_00427B1D: End If
loc_00427B29: var_704 = var_200
loc_00427B35: var_700 = var_1FC
loc_00427B62: var_188 = var_200 - var_164
loc_00427B96: var_8D4 = ADODB.Recordset.RecordCount
loc_00427BC1: var_204 = var_204 + 0001h
loc_00427BD0: If var_204 Then
loc_00427DB0: var_10C = Round(var_174 * 8 * 8 / 1200 + var_164 * 8 / 1200 + var_174 * 8.6# * 4 / 1200 + var_188 * 8.6# / 1200, 0)
loc_00427DCB: GoTo loc_004280D7
loc_00427DD0: End If
loc_00427DE9: If var_2A0 < 9 Then
loc_00427E25: var_714 = var_2A0
loc_00427ECC: var_10C = Round(var_174 * 8 * var_2A0 / 1200 + var_164 * 8 / 1200, 0)
loc_00427EDE: GoTo loc_004280E2
loc_00427EE3: End If
loc_00427EEF: var_2A0 = var_2A0 - di
loc_00427F40: var_764 = var_2A0
loc_0042806A:
loc_004280AA: var_43C = Round(var_174 * 8 * var_10C / var_10C + var_164 * var_10C / var_10C + var_174 * 8.6# * var_10C / var_10C + var_188 * 8.6# / var_10C, 0)
loc_004280BC: var_10C = var_43C
loc_004280D7: 'Referenced from: 00427DCB
loc_004280E2: 'Referenced from: 00426F51
loc_00428141: setz dl
loc_0042814C: setz cl
loc_0042815F: setz cl
loc_0042816C: var_714 = var_70C
loc_004281C2: var_8D8 = CBool(&H8002 And (var_A8 = 0))
loc_004281D7: If var_8D8 Then
loc_004281E3: var_704 = var_68
loc_004281EF: var_700 = var_64
loc_0042826D: var_2FC = Round(var_68 * var_2FC / 100, 0)
loc_0042827F: GoTo loc_004292A2
loc_00428288: If var_2FC <> 2016 Then GoTo loc_0042A082
loc_0042842B: For var_54 = 3 To 60 Step 5
loc_00428431:
loc_00428433: If var_93C Then
loc_00428462: var_354 = ADODB.Recordset.Fields
loc_004284C2: var_A5C = var_54 + 1
loc_004284E9: var_eax = ADODB.Recordset.ActiveConnection =
loc_00428513: var_37C = ADODB.Recordset.BOF
loc_00428569: var_2EC = Val(var_37C)
loc_004285D3: var_354 = ADODB.Recordset.Fields
loc_00428630: var_A60 = var_54 + 2
loc_00428657: var_eax = ADODB.Recordset.ActiveConnection =
loc_00428681: var_37C = ADODB.Recordset.BOF
loc_004286D4: var_78 = Val(var_37C)
loc_0042873E: var_354 = ADODB.Recordset.Fields
loc_0042879E: var_A64 = var_54 + 3
loc_004287C5: var_eax = ADODB.Recordset.ActiveConnection =
loc_004287EF: var_37C = ADODB.Recordset.BOF
loc_004288B9: var_2C0 = var_2EC + var_78 + Val(var_37C)
loc_004288F4: var_354 = ADODB.Recordset.Fields
loc_00428954: var_A68 = var_54 + 4
loc_0042897B: var_eax = ADODB.Recordset.ActiveConnection =
loc_004289A5: var_37C = ADODB.Recordset.BOF
loc_004289FB: var_B8 = Val(var_37C)
loc_00428A61: var_29C = var_29C + var_2EC
loc_00428A7D: var_2C = var_2C + var_78
loc_00428A8F: var_704 = var_D0
loc_00428A9B: var_700 = var_CC
loc_00428AF4: var_C8 = var_C8 + var_2C0
loc_00428B19: var_A8 = var_A8 + var_B8
loc_00428B8D: If (var_54 < 33) Then
loc_00428BAE: var_88 = var_88 + var_198 + var_2C0 - var_B8
loc_00428BB4: End If
loc_00428BDD: var_8D4 = ADODB.Recordset.RecordCount
loc_00428BFC: var_204 = var_204 + 0001h
loc_00428C0F: If var_204 = 0 Then
loc_00428C1C: If var_18 <= 0 Then GoTo loc_00428CAD
loc_00428C22: End If
loc_00428C4B: var_8D4 = ADODB.Recordset.RecordCount
loc_00428C70: var_204 = var_204 + 0001h
loc_00428C9F: If var_204 Then
loc_00428CA7: End If
loc_00428CAD:
loc_00428CB9: var_704 = var_200
loc_00428CC5: var_700 = var_1FC
loc_00428D0D: var_18 = var_18 + 0001h
loc_00428D1D: var_18 = var_18
loc_00428D26: Next var_54
loc_00428D32: GoTo loc_00428431
loc_00428D37: End If
loc_00428D43: var_704 = var_200
loc_00428D4F: var_700 = var_1FC
loc_00428D7C: var_E8 = var_200 - var_88
loc_00428DB0: var_8D4 = ADODB.Recordset.RecordCount
loc_00428DDB: var_204 = var_204 + 0001h
loc_00428DEA: If var_204 Then
loc_00428FBC: var_10C = Round(var_174 * 8.1# * 6 / 1200 + var_88 * 6 / 1200 + var_174 * 8 * 6 / 1200 + var_E8 * 6 / 1200, 0)
loc_00428FD7: GoTo loc_004280D7
loc_00428FDC: End If
loc_00429002: If var_2A0 < 7 Then
loc_00429043: var_714 = var_2A0
loc_004290EE: var_10C = Round(var_174 * 8.1# * var_2A0 / 1200 + var_88 * 6 / 1200, 0)
loc_00429100: GoTo loc_004280E2
loc_00429105: End If
loc_00429127: var_2A0 = var_2A0 - 0006h
loc_00429185: var_764 = var_2A0
loc_004291D7: var_ret_39 = var_174 * 8.1# * 6 / 1200
loc_00429208: var_ret_3B = var_88 * 6 / 1200
loc_0042925C: var_ret_3E = var_174 * 8 * var_2A0 / 1200
loc_00429277: GoTo loc_0042806A
loc_0042927C: End If
loc_004292A2: 'Referenced from: 0042827F
loc_004292F0: var_C8 = Format$(var_C8, &H40A3CC)
loc_00429351: var_39C = Round(var_174 + var_C8 + var_10C + var_2FC, 0)
loc_00429394: var_704 = var_68
loc_004293A0: var_700 = var_64
loc_004293BF: var_ret_3F = var_68 - var_A8
loc_004293DE: var_7E4 = "0.00"
loc_00429422: var_7F4 = "0.00"
loc_0042945D: var_704 = vbNullString
loc_004294A8: 00000002h = 00000002h - Len(CStr(vbNull) & vbNullString)
loc_004294CB: var_714 = var_60
loc_00429514: var_31C = CStr(var_1C8) & vbNullString
loc_00429521: var_3A4 = Right$(var_31C, 2)
loc_00429578: var_324 = CStr(var_1C8 + 0001h + 0001h) & vbNullString
loc_00429591: var_3D4 = Right$(var_324, 2)
loc_004295AD: var_754 = "0.00"
loc_004295F1: 0000000Ch = 0000000Ch - Len(Format$(var_174, "0.00"))
loc_00429613: var_764 = "0.00"
loc_00429623: var_43C = "0.00"
loc_00429649: var_444 = Format$(var_174, var_43C)
loc_00429665: var_784 = "0.00"
loc_004296A9: 0000000Ah = 0000000Ah - Len(Format$(var_C8, "0.00"))
loc_004296CB: var_794 = "0.00"
loc_004296DB: var_4AC = "0.00"
loc_00429701: var_4B4 = Format$(var_C8, var_4AC)
loc_0042971D: var_7B4 = "0.00"
loc_00429761: 0000000Ch = 0000000Ch - Len(Format$(var_10C, "0.00"))
loc_00429783: var_7C4 = "0.00"
loc_0042980E: 00000007h = 00000007h - Len(Left$(Format$(var_2FC, "0.00"), 7))
loc_00429836: var_33C = Format$(var_2FC, "0.00")
loc_00429843: var_594 = Left$(var_33C, 7)
loc_0042985F: var_824 = "0.00"
loc_00429892: var_814 = var_68
loc_004298C8: 0000000Ch = 0000000Ch - Len(Format$(var_68, "0.00"))
loc_004298E4: var_844 = "0.00"
loc_004298F4: var_5FC = "0.00"
loc_0042990B: var_834 = var_68
loc_0042992D: var_604 = Format$(var_68, var_5FC)
loc_00429949: var_864 = "0.00"
loc_0042998D: 0000000Bh = 0000000Bh - Len(Format$(var_A8, "0.00"))
loc_004299AF: var_874 = "0.00"
loc_004299BF: var_66C = "0.00"
loc_004299D9: var_674 = Format$(var_A8, var_66C)
loc_00429A01: var_8A4 = "0.00"
loc_00429A2B: var_894 = var_24C
loc_00429A61: 0000000Ch = 0000000Ch - Len(Format$(var_24C, "0.00"))
loc_00429A7D: var_8C4 = "0.00"
loc_00429A8D: var_6DC = "0.00"
loc_00429AA7: var_8B4 = var_24C
loc_00429ABD: var_6E4 = Format$(var_24C, var_6DC)
loc_00429B66: var_45C = vbNullString & Space(2) & var_60 & &H40A974 & Right$(var_31C, 2) & &H40A97C & Right$(var_324, 2) & &H40A974 & Space(12) & Format$(var_174, var_43C)
loc_00429BEE: var_57C = var_45C & &H40A974 & Space(10) & Format$(var_C8, var_4AC) & &H40A974 & Space(12) & Format$(var_10C, "0.00") & &H40A974 & Space(7)
loc_00429C65: var_68C = var_57C & Left$(var_33C, 7) & &H40A974 & Space(12) & Format$(var_68, var_5FC) & &H40A974 & Space(11) & Format$(var_A8, var_66C)
loc_00429EE0: Print 1, var_68C & &H40A974 & Space(12) & Format$(var_24C, var_6DC)
loc_00429F20: var_1F8 = Round(var_1F8 + var_C8, 0)
loc_00429F69: var_F8 = Round(var_F8 + var_10C, 0)
loc_00429FB2: var_98 = Round(var_98 + var_2FC, 0)
loc_00429FD0: var_704 = var_244
loc_00429FDC: var_700 = var_240
loc_0042A00B: var_37C = Round(var_244 + var_A8, 0)
loc_0042A046: var_704 = var_24C
loc_0042A06B: var_174 = var_24C
loc_0042A075: var_60 = var_60 + 0001h
loc_0042A07F: var_60 = var_60
loc_0042A082:
loc_0042A08B: var_1C = var_1C + 0001h
loc_0042A097: var_1C = var_1C
loc_0042A0BA: var_eax = ADODB.Recordset.MoveNext
loc_0042A0E5: var_204 = var_204 + 0001h
loc_0042A0EF: var_204 = var_204
loc_0042A0F5: GoTo loc_00425D16
loc_0042A0FA: End If
loc_0042A106: Print 1, "-------------------------------------------------------------------------------------------"
loc_0042A131: var_7A4 = "0.00"
loc_0042A18B: var_7B4 = "0.00"
loc_0042A1D9: var_804 = var_244
loc_0042A1E9: var_5CC = Round(var_244, 0)
loc_0042A1F8: var_704 = vbNullString
loc_0042A268: var_744 = "0.00"
loc_0042A2AC: 0000000Ah = 0000000Ah - Len(Format$(var_1F8, "0.00"))
loc_0042A2CE: var_754 = "0.00"
loc_0042A304: var_434 = Format$(var_1F8, "0.00")
loc_0042A320: var_774 = "0.00"
loc_0042A364: 0000000Ch = 0000000Ch - Len(Format$(var_F8, "0.00"))
loc_0042A386: var_784 = "0.00"
loc_0042A411: 00000007h = 00000007h - Len(Left$(Format$(var_98, "0.00"), 7))
loc_0042A439: var_320 = Format$(Round(var_98, 0), "0.00")
loc_0042A446: var_534 = Left$(var_320, 7)
loc_0042A45B: var_7C4 = "| "
loc_0042A48D: var_7F4 = "0.00"
loc_0042A4B7: var_7E4 = var_244
loc_0042A4ED: 0000000Bh = 0000000Bh - Len(Format$(var_244, "0.00"))
loc_0042A509: var_814 = "0.00"
loc_0042A519: var_5DC = "0.00"
loc_0042A533: var_5E4 = Format$(var_5CC, var_5DC)
loc_0042A554: var_824 = "| "
loc_0042A60E: var_4CC = vbNullString & Space(2) & &H40A974 & Space(5) & &H40A974 & Space(12) & &H40A974 & Space(10) & 8 & &H40A974 & Space(12) & Format$(Round(var_F8, 0), "0.00")
loc_0042A6A7: var_60C = var_4CC & &H40A974 & Space(7) & Left$(var_320, 7) & "| " & Space(11) & &H40A974 & Space(11) & Format$(var_5CC, var_5DC) & "| "
loc_0042A846: Print 1, var_60C
loc_0042A858: Print 1, "-------------------------------------------------------------------------------------------"
loc_0042A866: var_1C = var_1C + 0001h
loc_0042A877: var_1C = var_1C
loc_0042A87A: Print 1, "The amount calculated & shown in the statement upto March : "
loc_0042A883: var_1C = var_1C + 0001h
loc_0042A899: var_1C = var_1C
loc_0042A89C: Print 1, vbNullString
loc_0042A8AA: var_1C = var_1C + 0001h
loc_0042A8BB: var_1C = var_1C
loc_0042A8BE: Print 1, "Amount verified/paid by the S.I. & G.P.F. Departement upto March : "
loc_0042A8CC: var_1C = var_1C + 0001h
loc_0042A8DD: var_1C = var_1C
loc_0042A8E0: Print 1, " ----------"
loc_0042A8EC: var_1C = var_1C + 0001h
loc_0042A902: var_1C = var_1C
loc_0042A905: Print 1, " Difference (if any) : "
loc_0042A913: var_1C = var_1C + 0001h
loc_0042A924: var_1C = var_1C
loc_0042A927: Print 1, "-------------------------------------------------------------------------------------------"
loc_0042A935: var_1C = var_1C + 0001h
loc_0042A946: var_1C = var_1C
loc_0042A949: Print 1, "This statement has been prepared on basis of G.P.F. Pass Book, provided by the employee."
loc_0042A957: var_1C = var_1C + 0001h
loc_0042A968: var_1C = var_1C
loc_0042A96B: Print 1, "-------------------------------------------------------------------------------------------"
loc_0042A977: var_1C = var_1C + 0001h
loc_0042A981: var_1C = var_1C
loc_0042A989: If var_1C <= 51 Then
loc_0042A997: Print 1, vbNullString
loc_0042A9A4: var_1C = var_1C + 0001h
loc_0042A9AE: var_1C = var_1C
loc_0042A9B1: GoTo loc_0042A984
loc_0042A9B3: End If
loc_0042A9D7: var_704 = "-------------- Contact Us ---------------"
loc_0042A9F1: Print 1, Space(50) & "-------------- Contact Us ---------------"
loc_0042AA34: var_704 = "| Rakesh Lohiya |"
loc_0042AA4E: Print 1, Space(50) & "| Rakesh Lohiya |"
loc_0042AA91: var_704 = "| Lohiya Associates |"
loc_0042AAAB: Print 1, Space(50) & "| Lohiya Associates |"
loc_0042AADF: var_704 = "| 56A,Inside Pratap Nagar Pvt Bus Stand,|"
loc_0042AB08: Print 1, Space(50) & "| 56A,Inside Pratap Nagar Pvt Bus Stand,|"
loc_0042AB4B: var_704 = "| Near Mahila Maha Vidhyalaya, |"
loc_0042AB65: Print 1, Space(50) & "| Near Mahila Maha Vidhyalaya, |"
loc_0042ABA8: var_704 = "| Jodhpur - 342008 |"
loc_0042ABC2: Print 1, Space(50) & "| Jodhpur - 342008 |"
loc_0042AC05: var_704 = "| Mobile No. : 09314466152, 09928122079 |"
loc_0042AC1F: Print 1, Space(50) & "| Mobile No. : 09314466152, 09928122079 |"
loc_0042AC62: var_704 = "| Web Site : www.gpfcalculation.com |"
loc_0042AC7C: Print 1, Space(50) & "| Web Site : www.gpfcalculation.com |"
loc_0042ACBF: var_704 = "| Email-id : [email protected] |"
loc_0042ACD9: Print 1, Space(50) & "| Email-id : [email protected] |"
loc_0042AD1C: var_704 = "-----------------------------------------"
loc_0042AD36: Print 1, Space(50) & "-----------------------------------------"
loc_0042AD55: GoTo loc_0042AD63
loc_0042AD57: End If
loc_0042AD63: 'Referenced from: 0042AD55
loc_0042AD8D: var_310 = txtOpeningBalance.Text
loc_0042AE21: var_310 = frmEmpForm.txtGPFNumber.Text
loc_0042AE78: ecx = "Select * From EmpDedTable Where gpf_no='" & var_310 & "' Order By fn_year"
loc_0042AED1: var_8D4 = ADODB.Recordset.State
loc_0042AEFC: If var_8D4 = 1 Then
loc_0042AF25: var_eax = ADODB.Recordset.Close
loc_0042AF49: End If
loc_0042AF72: ADODB.Recordset.CursorLocation = CInt(3)
loc_0042B057: var_eax = Unknown_VTable_Call[edx+000000A0h]
loc_0042B0A9: var_8D4 = ADODB.Recordset.RecordCount
loc_0042B0CF: If var_8D4 > 0 Then
loc_0042B0DF:
loc_0042B10D: var_8D0 = ADODB.Recordset.EOF
loc_0042B133: If var_8D0 = 0 Then
loc_0042B167: var_354 = ADODB.Recordset.Fields
loc_0042B18B: var_704 = "fn_year"
loc_0042B1D3: ADODB.Recordset.ActiveConnection = var_700
loc_0042B207: var_36C = ADODB.Recordset.BOF
loc_0042B253: var_178 = CInt(Val(var_36C))
loc_0042B293: If var_178 <> 2011 Then
loc_0042B29D: If var_178 = 2016 Then GoTo loc_0042E6C9
loc_0042B2AE: If Not Sign(var_204 And 1 - 0) Then
loc_0042B2B0: edx = var_204 And 1 - 1
loc_0042B2B6: edx = var_204 And 1 - 1 Or 16777214 + 1
loc_0042B2B8: End If
loc_0042B2BD: If var_204 And 1 - 1 Or 16777214 + 1 = 0 Then
loc_0042B2CE: 00000059h = 00000059h - Len("Calculation of GPF Interest")
loc_0042B2F5: If var_443000 = 0 Then
loc_0042B2FD: GoTo loc_0042B310
loc_0042B2FF: End If
loc_0042B310: 'Referenced from: 0042B2FD
loc_0042B328: var_36C = Space(CLng((var_A74 / 2)))
loc_0042B337: var_38C = Space(20)
loc_0042B344: var_A78 = var_204
loc_0042B376: If var_443000 = 0 Then
loc_0042B37E: GoTo loc_0042B391
loc_0042B380: End If
loc_0042B391: 'Referenced from: 0042B37E
loc_0042B3C9: var_704 = "Calculation of GPF Interest"
loc_0042B3D9: var_714 = "Page No. : "
loc_0042B426: Print 1, var_36C & "Calculation of GPF Interest" & var_38C & "Page No. : " & Round(var_4016D0, var_4016D4)
loc_0042B46E: GoTo loc_0042B52C
loc_0042B47E: 00000059h = 00000059h - Len(var_4016D4)
loc_0042B4A5: If var_443000 = 0 Then
loc_0042B4AD: GoTo loc_0042B4C0
loc_0042B4AF: End If
loc_0042B4C0: 'Referenced from: 0042B4AD
loc_0042B4F3: var_704 = "Calculation of GPF Interest"
loc_0042B50D: Print 1, Space(CLng((var_A8C / 2))) & "Calculation of GPF Interest"
loc_0042B52C: 'Referenced from: 0042B46E
loc_0042B571: var_310 = frmEmpForm.txtEmpName.Text
loc_0042B5DA: var_314 = frmEmpForm.txtEmpName.Text
loc_0042B630: 00000044h = 00000044h - Len("Name : " & var_314)
loc_0042B63A: var_36C = Space(68)
loc_0042B685: var_31C = frmEmpForm.txtGPFNumber.Text
loc_0042B6BB: var_374 = "Name : " & var_310
loc_0042B6C7: var_3A4 = var_31C
loc_0042B6E8: var_704 = " G.P.F. No. : "
loc_0042B734: Print 1, "Name : " & var_310 & var_36C & " G.P.F. No. : " & 0
loc_0042B7B5: Print 1, "-------------------------------------------------------------------------------------------"
loc_0042B7DC: var_704 = "| | |"
loc_0042B7F7: var_724 = var_178
loc_0042B7FE: var_178 = var_178 + 0001h
loc_0042B808: var_744 = var_178
loc_0042B830: var_714 = "Session : "
loc_0042B840: var_734 = " - "
loc_0042B8D0: Print 1, "| | |" & Space(25) & "Session : " & var_178 & " - " & var_178 & Space(26) & &H40A974
loc_0042B929: Print 1, "| Mon | Date |-------------------------------------------------------------------------"
loc_0042B93E: Print 1, "| | | Ded | Arrear | RLoan | Total | Loan | Balance |"
loc_0042B950: Print 1, "-------------------------------------------------------------------------------------------"
loc_0042B987: ecx = "Select * From InterestTable Where fn_year=" & CStr(var_178)
loc_0042B9C7: var_8D4 = ADODB.Recordset.State
loc_0042B9F2: If var_8D4 = 1 Then
loc_0042BA1B: var_eax = ADODB.Recordset.Close
loc_0042BA3F: End If
loc_0042BA68: ADODB.Recordset.CursorLocation = CInt(3)
loc_0042BB4D: var_eax = Unknown_VTable_Call[ecx+000000A0h]
loc_0042BB9F: var_8D4 = ADODB.Recordset.RecordCount
loc_0042BBC5: If var_8D4 > 0 Then
loc_0042BBF9: var_354 = ADODB.Recordset.Fields
loc_0042BC1D: var_704 = "interest"
loc_0042BC65: ADODB.Recordset.ActiveConnection = var_700
loc_0042BC99: var_36C = ADODB.Recordset.BOF
loc_0042BCF5: var_11C = Val(var_36C)
loc_0042BD5A: var_354 = ADODB.Recordset.Fields
loc_0042BD8E: var_704 = "bonus"
loc_0042BDC6: ADODB.Recordset.ActiveConnection = var_700
loc_0042BDFA: var_36C = ADODB.Recordset.BOF
loc_0042BE2D: var_310 = var_36C
loc_0042BE71: End If
loc_0042BFB6: For var_54 = 3 To 60 Step 5
loc_0042BFBC:
loc_0042BFBE: If var_96C Then
loc_0042BFC8: eax = var_60 - 1
loc_0042BFCC: If var_60 - 1 <= 0 Then
loc_0042BFCE: GoTo loc_[eax*4+004366B0h]
loc_0042BFDA: GoTo loc_0042C027
loc_0042BFE1: GoTo loc_0042C027
loc_0042BFE8: GoTo loc_0042C027
loc_0042BFEF: GoTo loc_0042C027
loc_0042BFF6: GoTo loc_0042C027
loc_0042BFFD: GoTo loc_0042C027
loc_0042C004: GoTo loc_0042C027
loc_0042C00B: GoTo loc_0042C027
loc_0042C012: GoTo loc_0042C027
loc_0042C019: GoTo loc_0042C027
loc_0042C020: GoTo loc_0042C027
loc_0042C027: 'Referenced from: 0042BFDA
loc_0042C02D: var_1AC = "| Mar |"
loc_0042C033: End If
loc_0042C05C: var_354 = ADODB.Recordset.Fields
loc_0042C0BC: var_A90 = var_54 + 1
loc_0042C0E3: var_eax = ADODB.Recordset.ActiveConnection =
loc_0042C10D: var_37C = ADODB.Recordset.BOF
loc_0042C163: var_1BC = Val(var_37C)
loc_0042C1CD: var_354 = ADODB.Recordset.Fields
loc_0042C22A: var_A94 = var_54 + 2
loc_0042C251: var_eax = ADODB.Recordset.ActiveConnection =
loc_0042C27B: var_37C = ADODB.Recordset.BOF
loc_0042C2D1: var_1D8 = Val(var_37C)
loc_0042C33B: var_354 = ADODB.Recordset.Fields
loc_0042C39B: var_A98 = var_54 + 3
loc_0042C3C2: var_eax = ADODB.Recordset.ActiveConnection =
loc_0042C3EC: var_37C = ADODB.Recordset.BOF
loc_0042C442: var_13C = Val(var_37C)
loc_0042C4B9: var_12C = var_1BC + var_1D8 + var_13C
loc_0042C4F4: var_354 = ADODB.Recordset.Fields
loc_0042C554: var_A9C = var_54 + 4
loc_0042C57B: var_eax = ADODB.Recordset.ActiveConnection =
loc_0042C5A5: var_37C = ADODB.Recordset.BOF
loc_0042C5F8: var_3C = Val(var_37C)
loc_0042C65E: var_22C = var_22C + var_1BC
loc_0042C683: var_284 = var_284 + var_1D8
loc_0042C6A8: var_274 = var_274 + var_13C
loc_0042C6CD: var_264 = var_264 + var_12C
loc_0042C6DF: var_704 = var_1C4
loc_0042C6EB: var_700 = var_1C0
loc_0042C72E: var_704 = var_234
loc_0042C73A: var_700 = var_230
loc_0042C767: var_ret_40 = var_234 + var_12C - var_3C
loc_0042C7AF: var_8D4 = ADODB.Recordset.RecordCount
loc_0042C7CE: var_204 = var_204 + 0001h
loc_0042C7E1: If var_204 = 0 Then
loc_0042C7EE: If var_60 <= 0 Then GoTo loc_0042C889
loc_0042C7F4: End If
loc_0042C81D: var_8D4 = ADODB.Recordset.RecordCount
loc_0042C842: var_204 = var_204 + 0001h
loc_0042C851: If var_204 = 0 Then
loc_0042C861: GoTo loc_0042C889
loc_0042C863: End If
loc_0042C889: 'Referenced from: 0042C861
loc_0042C8B2: var_354 = ADODB.Recordset.Fields
loc_0042C8FC: ADODB.Recordset.ActiveConnection = var_48
loc_0042C93E: var_394 = var_1AC & var_0040A6F8
loc_0042C94A: var_704 = "dd/mm/yy"
loc_0042C964: var_364 = var_358
loc_0042C9A7: var_714 = " | "
loc_0042C9B7: var_724 = "0.00"
loc_0042C9F8: 00000008h = 00000008h - Len(Format$(var_1BC, "0.00"))
loc_0042CA1A: var_734 = "0.00"
loc_0042CA50: var_404 = Format$(var_1BC, "0.00")
loc_0042CA5C: var_744 = " | "
loc_0042CA6C: var_754 = "0.00"
loc_0042CAB0: 00000009h = 00000009h - Len(Format$(var_1D8, "0.00"))
loc_0042CAD2: var_764 = "0.00"
loc_0042CB08: var_474 = Format$(var_1D8, "0.00")
loc_0042CB14: var_774 = "| "
loc_0042CB24: var_784 = "0.00"
loc_0042CB68: 00000009h = 00000009h - Len(Format$(var_13C, "0.00"))
loc_0042CB8A: var_794 = "0.00"
loc_0042CBC0: var_4E4 = Format$(var_13C, "0.00")
loc_0042CBCC: var_7A4 = "| "
loc_0042CBDC: var_7B4 = "0.00"
loc_0042CC20: 0000000Ah = 0000000Ah - Len(Format$(var_12C, "0.00"))
loc_0042CC42: var_7C4 = "0.00"
loc_0042CC52: var_54C = "0.00"
loc_0042CC78: var_554 = Format$(var_12C, var_54C)
loc_0042CC84: var_7D4 = " | "
loc_0042CC94: var_7E4 = "0.00"
loc_0042CCD5: 0000000Ah = 0000000Ah - Len(Format$(var_3C, "0.00"))
loc_0042CCF7: var_7F4 = "0.00"
loc_0042CD07: var_5BC = "0.00"
loc_0042CD2A: var_5C4 = Format$(var_3C, var_5BC)
loc_0042CD36: var_804 = " | "
loc_0042CD46: var_824 = "0.00"
loc_0042CD70: var_814 = var_234
loc_0042CDA6: 0000000Bh = 0000000Bh - Len(Format$(var_234, "0.00"))
loc_0042CDC2: var_844 = "0.00"
loc_0042CDD2: var_62C = "0.00"
loc_0042CDEC: var_834 = var_234
loc_0042CE02: var_634 = Format$(var_234, var_62C)
loc_0042CE23: var_854 = " |"
loc_0042CEBB: var_4CC = var_1AC & var_0040A6F8 & Format(var_358, "dd/mm/yy") & " | " & Space(8) & 8 & " | " & Space(9) & 8 & "| " & Space(9)
loc_0042CF54: var_61C = var_4CC & 8 & "| " & Space(10) & Format$(var_12C, var_54C) & " | " & Space(10) & Format$(var_3C, var_5BC) & " | " & Space(11)
loc_0042D134: Print 1, var_61C & Format$(var_234, var_62C) & " |"
loc_0042D16D: var_60 = var_60 + 0001h
loc_0042D178: var_60 = var_60
loc_0042D17F: Next var_54
loc_0042D185: GoTo loc_0042BFBC
loc_0042D18A: End If
loc_0042D196: var_22C = var_22C
loc_0042D1A8: var_284 = var_284
loc_0042D1BA: var_274 = var_274
loc_0042D1CC: var_264 = var_264
loc_0042D1E4: var_1C4 = var_1C4
loc_0042D1FC: var_1C0 = var_1C0
loc_0042D202: var_20C = var_20C
loc_0042D208: var_208 = var_208
loc_0042D20E: Print 1, "-------------------------------------------------------------------------------------------"
loc_0042D223: var_704 = "0.00"
loc_0042D26D: 00000009h = 00000009h - Len(Format$(var_22C, "0.00"))
loc_0042D289: var_714 = "0.00"
loc_0042D299: var_38C = "0.00"
loc_0042D2BF: var_394 = Format$(var_22C, var_38C)
loc_0042D2CB: var_724 = " | "
loc_0042D2DB: var_734 = "0.00"
loc_0042D325: 00000009h = 00000009h - Len(Format$(var_284, "0.00"))
loc_0042D341: var_744 = "0.00"
loc_0042D377: var_404 = Format$(var_284, "0.00")
loc_0042D383: var_754 = "| "
loc_0042D393: var_764 = "0.00"
loc_0042D3DD: 00000009h = 00000009h - Len(Format$(var_274, "0.00"))
loc_0042D3F9: var_774 = "0.00"
loc_0042D42F: var_474 = Format$(var_274, "0.00")
loc_0042D43B: var_784 = "| "
loc_0042D44B: var_794 = "0.00"
loc_0042D495: 0000000Ah = 0000000Ah - Len(Format$(var_264, "0.00"))
loc_0042D4B1: var_7A4 = "0.00"
loc_0042D4E7: var_4E4 = Format$(var_264, "0.00")
loc_0042D4F3: var_7B4 = " | "
loc_0042D503: var_7D4 = "0.00"
loc_0042D52D: var_7C4 = var_1C4
loc_0042D55D: 0000000Ah = 0000000Ah - Len(Format$(var_1C4, "0.00"))
loc_0042D57F: var_7F4 = "0.00"
loc_0042D58F: var_54C = "0.00"
loc_0042D5A9: var_7E4 = var_1C4
loc_0042D5CB: var_554 = Format$(var_1C4, var_54C)
loc_0042D5D7: var_804 = " |"
loc_0042D5E7: var_824 = "0.00"
loc_0042D609: var_814 = var_20C
loc_0042D647: 0000000Ch = 0000000Ch - Len(Format$(var_20C, "0.00"))
loc_0042D663: var_844 = "0.00"
loc_0042D683: var_834 = var_20C
loc_0042D6BF: var_854 = " |"
loc_0042D78A: var_53C = Space(9) & Format$(var_22C, var_38C) & " | " & Space(9) & 8 & "| " & Space(9) & 8 & "| " & Space(10) & 8 & " | " & Space(10)
loc_0042D97D: Print 1, "| | Total |" & var_53C & Format$(var_1C4, var_54C) & " |" & Space(12) & Format(var_20C, "0.00") & " |"
loc_0042D99E: Print 1, "-------------------------------------------------------------------------------------------"
loc_0042D9F5: var_264 = Format$(var_264, &H40A3CC)
loc_0042DA1B: var_704 = "Opening Balance"
loc_0042DA3C: 00000045h = 00000045h - Len("Opening Balance")
loc_0042DA68: var_734 = "0.00"
loc_0042DA92: var_724 = var_28C
loc_0042DAC8: 0000000Ch = 0000000Ch - Len(Format$(var_28C, "0.00"))
loc_0042DAD8: var_754 = "0.00"
loc_0042DB0E: var_744 = var_28C
loc_0042DB24: var_3F4 = Format$(var_28C, "0.00")
loc_0042DB45: var_764 = " |"
loc_0042DC37: Print 1, Space(7) & "Opening Balance" & Space(69) & &H40A974 & Space(12) & 8 & " |"
loc_0042DC54: var_704 = "Current year deposit"
loc_0042DC75: 00000045h = 00000045h - Len("Current year deposit")
loc_0042DCA1: var_724 = "0.00"
loc_0042DCE5: 0000000Ch = 0000000Ch - Len(Format$(var_264, "0.00"))
loc_0042DD07: var_734 = "0.00"
loc_0042DD17: var_3EC = "0.00"
loc_0042DD31: var_3F4 = Format$(var_264, var_3EC)
loc_0042DD52: var_744 = " |"
loc_0042DE44: Print 1, Space(7) & "Current year deposit" & Space(69) & &H40A974 & Space(12) & Format$(var_264, var_3EC) & " |"
loc_0042DE7B: var_8D4 = ADODB.Recordset.RecordCount
loc_0042DEA0: var_204 = var_204 + 0001h
loc_0042DEB3: If var_204 Then
loc_0042DEC5: var_704 = var_28C
loc_0042DED1: var_700 = var_288
loc_0042DEE1: var_724 = var_20C
loc_0042DF0B: var_720 = var_208
loc_0042DFAA: var_2B0 = Round(var_28C * var_11C / 100 + var_20C * var_11C / 1200, 0)
loc_0042DFB6: GoTo loc_0042E0E1
loc_0042DFBB: End If
loc_0042DFCE: var_714 = var_2A0
loc_0042DFDB: var_704 = var_28C
loc_0042DFE1: var_700 = var_288
loc_0042DFF1: var_734 = var_20C
loc_0042E021: var_730 = var_208
loc_0042E0D5: var_2B0 = Round(var_28C * var_11C * var_2A0 / 1200 + var_20C * var_11C / 1200, 0)
loc_0042E102: var_704 = "Interest ("
loc_0042E112: var_714 = ".0"
loc_0042E122: var_38C = ".0"
loc_0042E148: var_394 = Format$(var_11C, var_38C)
loc_0042E154: var_724 = "%)"
loc_0042E164: var_734 = ".0"
loc_0042E1C8: 00000043h = 00000043h - Len(1 & Format$(var_11C, ".0"))
loc_0042E1F4: var_754 = "0.00"
loc_0042E238: 0000000Ch = 0000000Ch - Len(Format$(var_2B0, "0.00"))
loc_0042E24E: var_764 = "0.00"
loc_0042E26A: var_43C = "0.00"
loc_0042E284: var_444 = Format$(var_2B0, var_43C)
loc_0042E2A5: var_774 = " |"
loc_0042E31B: var_45C = Space(7) & "Interest (" & Format$(var_11C, var_38C) & "%)" & Space(67) & &H40A974 & Space(12) & Format$(var_2B0, var_43C)
loc_0042E3F0: Print 1, var_45C & " |"
loc_0042E405: var_704 = var_28C
loc_0042E411: var_700 = var_288
loc_0042E467: var_30C = Round(var_28C + var_264 + var_2B0, 0)
loc_0042E49A: var_704 = "Total"
loc_0042E4B5: 00000045h = 00000045h - Len("Total")
loc_0042E4E7: var_724 = "0.00"
loc_0042E52B: 0000000Ch = 0000000Ch - Len(Format$(var_30C, "0.00"))
loc_0042E54D: var_734 = "0.00"
loc_0042E55D: var_3EC = "0.00"
loc_0042E577: var_3F4 = Format$(var_30C, var_3EC)
loc_0042E598: var_744 = " |"
loc_0042E68A: Print 1, Space(7) & "Total" & Space(69) & &H40A974 & Space(12) & Format$(var_30C, var_3EC) & " |"
loc_0042E696: fcomp real8 ptr [004016C0h]
loc_0042E6A4: If Err.Number Then
loc_0042E6B4: If var_178 <> 1983 Then
loc_0042E6BE: If var_178 = 1984 Then GoTo loc_00431E3C
loc_0042E6C4: GoTo loc_00431E32
loc_0042E6C9: End If
loc_0042E6CD: If var_178 <> 2011 Then GoTo loc_00431EE9
loc_0042E6DE: If Not Sign(var_204 And 1 - 0) Then
loc_0042E6E0: eax = var_204 And 1 - 1
loc_0042E6E6: eax = var_204 And 1 - 1 Or 16777214 + 1
loc_0042E6E8: End If
loc_0042E6ED: If var_204 And 1 - 1 Or 16777214 + 1 = 0 Then
loc_0042E6FE: 00000059h = 00000059h - Len("Calculation of GPF Interest")
loc_0042E725: If var_443000 = 0 Then
loc_0042E72D: GoTo loc_0042E740
loc_0042E72F: End If
loc_0042E740: 'Referenced from: 0042E72D
loc_0042E758: var_36C = Space(CLng((var_AA8 / 2)))
loc_0042E767: var_38C = Space(20)
loc_0042E774: var_AAC = var_204
loc_0042E7A6: If var_443000 = 0 Then
loc_0042E7AE: GoTo loc_0042E7C1
loc_0042E7B0: End If
loc_0042E7C1: 'Referenced from: 0042E7AE
loc_0042E7F9: var_704 = "Calculation of GPF Interest"
loc_0042E809: var_714 = "Page No. : "
loc_0042E856: Print 1, var_36C & "Calculation of GPF Interest" & var_38C & "Page No. : " & Round(var_4016D0, var_4016D4)
loc_0042E89E: GoTo loc_0042E95C
loc_0042E8AE: 00000059h = 00000059h - Len(var_4016D4)
loc_0042E8D5: If var_443000 = 0 Then
loc_0042E8DD: GoTo loc_0042E8F0
loc_0042E8DF: End If
loc_0042E8F0: 'Referenced from: 0042E8DD
loc_0042E923: var_704 = "Calculation of GPF Interest"
loc_0042E93D: Print 1, Space(CLng((var_AC0 / 2))) & "Calculation of GPF Interest"
loc_0042E95C: 'Referenced from: 0042E89E
loc_0042E9A1: var_310 = frmEmpForm.txtEmpName.Text
loc_0042EA0A: var_314 = frmEmpForm.txtEmpName.Text
loc_0042EA60: 00000044h = 00000044h - Len("Name : " & var_314)
loc_0042EA6A: var_36C = Space(68)
loc_0042EAB5: var_31C = frmEmpForm.txtGPFNumber.Text
loc_0042EAEB: var_374 = "Name : " & var_310
loc_0042EAF7: var_3A4 = var_31C
loc_0042EB18: var_704 = " G.P.F. No. : "
loc_0042EB64: Print 1, "Name : " & var_310 & var_36C & " G.P.F. No. : " & 0
loc_0042EBE5: Print 1, "-------------------------------------------------------------------------------------------"
loc_0042EC0C: var_704 = "| | |"
loc_0042EC42: var_714 = "Session : "
loc_0042EC5B: var_734 = " - "
loc_0042ECF4: Print 1, "| | |" & Space(25) & "Session : " & 2011 & " - " & 2012 & Space(26) & &H40A974
loc_0042ED4D: Print 1, "| Mon | Date |-------------------------------------------------------------------------"
loc_0042ED62: Print 1, "| | | Ded | Arrear | RLoan | Total | Loan | Balance |"
loc_0042ED74: Print 1, "-------------------------------------------------------------------------------------------"
loc_0042EDA9: ecx = "Select * From InterestTable Where fn_year=" & CStr(2011)
loc_0042EDE9: var_8D4 = ADODB.Recordset.State
loc_0042EE14: If var_8D4 = 1 Then
loc_0042EE3D: var_eax = ADODB.Recordset.Close
loc_0042EE61: End If
loc_0042EE8A: ADODB.Recordset.CursorLocation = CInt(3)
loc_0042EF6F: var_eax = Unknown_VTable_Call[ecx+000000A0h]
loc_0042EFC1: var_8D4 = ADODB.Recordset.RecordCount
loc_0042EFE7: If var_8D4 > 0 Then
loc_0042F01B: var_354 = ADODB.Recordset.Fields
loc_0042F03F: var_704 = "interest"
loc_0042F087: ADODB.Recordset.ActiveConnection = var_700
loc_0042F0BB: var_36C = ADODB.Recordset.BOF
loc_0042F117: var_11C = Val(var_36C)
loc_0042F17C: var_354 = ADODB.Recordset.Fields
loc_0042F1B0: var_704 = "bonus"
loc_0042F1E8: ADODB.Recordset.ActiveConnection = var_700
loc_0042F21C: var_36C = ADODB.Recordset.BOF
loc_0042F24F: var_310 = var_36C
loc_0042F293: End If
loc_0042F420: For var_54 = 3 To 60 Step 5
loc_0042F426:
loc_0042F428: If var_98C Then
loc_0042F432: eax = var_60 - 1
loc_0042F436: If var_60 - 1 <= 0 Then
loc_0042F438: GoTo loc_[eax*4+004366E0h]
loc_0042F444: GoTo loc_0042F491
loc_0042F44B: GoTo loc_0042F491
loc_0042F452: GoTo loc_0042F491
loc_0042F459: GoTo loc_0042F491
loc_0042F460: GoTo loc_0042F491
loc_0042F467: GoTo loc_0042F491
loc_0042F46E: GoTo loc_0042F491
loc_0042F475: GoTo loc_0042F491
loc_0042F47C: GoTo loc_0042F491
loc_0042F483: GoTo loc_0042F491
loc_0042F48A: GoTo loc_0042F491
loc_0042F491: 'Referenced from: 0042F444
loc_0042F497: var_1AC = "| Mar |"
loc_0042F49D: End If
loc_0042F4C6: var_354 = ADODB.Recordset.Fields
loc_0042F526: var_AC4 = var_54 + 1
loc_0042F54D: var_eax = ADODB.Recordset.ActiveConnection =
loc_0042F577: var_37C = ADODB.Recordset.BOF
loc_0042F5CD: var_1BC = Val(var_37C)
loc_0042F637: var_354 = ADODB.Recordset.Fields
loc_0042F694: var_AC8 = var_54 + 2
loc_0042F6BB: var_eax = ADODB.Recordset.ActiveConnection =
loc_0042F6E5: var_37C = ADODB.Recordset.BOF
loc_0042F73B: var_1D8 = Val(var_37C)
loc_0042F7A5: var_354 = ADODB.Recordset.Fields
loc_0042F805: var_ACC = var_54 + 3
loc_0042F82C: var_eax = ADODB.Recordset.ActiveConnection =
loc_0042F856: var_37C = ADODB.Recordset.BOF
loc_0042F8AC: var_13C = Val(var_37C)
loc_0042F923: var_12C = var_1BC + var_1D8 + var_13C
loc_0042F95E: var_354 = ADODB.Recordset.Fields
loc_0042F9BE: var_AD0 = var_54 + 4
loc_0042F9E5: var_eax = ADODB.Recordset.ActiveConnection =
loc_0042FA0F: var_37C = ADODB.Recordset.BOF
loc_0042FA62: var_3C = Val(var_37C)
loc_0042FAC8: var_22C = var_22C + var_1BC
loc_0042FAED: var_284 = var_284 + var_1D8
loc_0042FB12: var_274 = var_274 + var_13C
loc_0042FB37: var_264 = var_264 + var_12C
loc_0042FB49: var_704 = var_1C4
loc_0042FB55: var_700 = var_1C0
loc_0042FB98: var_704 = var_234
loc_0042FBA4: var_700 = var_230
loc_0042FBD1: var_ret_4A = var_234 + var_12C - var_3C
loc_0042FBF5: If var_60 < 9 Then
loc_0042FC03: var_704 = var_234
loc_0042FC0F: var_700 = var_230
loc_0042FC38: var_164 = var_164 + var_234
loc_0042FC3E: End If
loc_0042FC67: var_8D4 = ADODB.Recordset.RecordCount
loc_0042FC8C: var_204 = var_204 + 0001h
loc_0042FC9B: If var_204 = 0 Then
loc_0042FCA8: If var_60 <= 0 Then GoTo loc_0042FD43
loc_0042FCAE: End If
loc_0042FCD7: var_8D4 = ADODB.Recordset.RecordCount
loc_0042FCFC: var_204 = var_204 + 0001h
loc_0042FD0B: If var_204 = 0 Then
loc_0042FD1B: GoTo loc_0042FD43
loc_0042FD1D: End If
loc_0042FD43: 'Referenced from: 0042FD1B
loc_0042FD6C: var_354 = ADODB.Recordset.Fields
loc_0042FDB6: ADODB.Recordset.ActiveConnection = var_48
loc_0042FDF8: var_394 = var_1AC & var_0040A6F8
loc_0042FE04: var_704 = "dd/mm/yy"
loc_0042FE24: var_364 = var_358
loc_0042FE61: var_714 = " | "
loc_0042FE71: var_724 = "0.00"
loc_0042FEB8: 00000008h = 00000008h - Len(Format$(var_1BC, "0.00"))
loc_0042FED4: var_734 = "0.00"
loc_0042FEE4: var_3FC = "0.00"
loc_0042FF0A: var_404 = Format$(var_1BC, var_3FC)
loc_0042FF16: var_744 = " | "
loc_0042FF26: var_754 = "0.00"
loc_0042FF70: 00000009h = 00000009h - Len(Format$(var_1D8, "0.00"))
loc_0042FF8C: var_764 = "0.00"
loc_0042FFC2: var_474 = Format$(var_1D8, "0.00")
loc_0042FFCE: var_774 = "| "
loc_0042FFDE: var_784 = "0.00"
loc_00430028: 00000009h = 00000009h - Len(Format$(var_13C, "0.00"))
loc_00430044: var_794 = "0.00"
loc_0043007A: var_4E4 = Format$(var_13C, "0.00")
loc_00430086: var_7A4 = "| "
loc_00430096: var_7B4 = "0.00"
loc_004300E0: 0000000Ah = 0000000Ah - Len(Format$(var_12C, "0.00"))
loc_004300FC: var_7C4 = "0.00"
loc_0043010C: var_54C = "0.00"
loc_00430132: var_554 = Format$(var_12C, var_54C)
loc_0043013E: var_7D4 = " | "
loc_0043014E: var_7E4 = "0.00"
loc_00430195: 0000000Ah = 0000000Ah - Len(Format$(var_3C, "0.00"))
loc_004301B1: var_7F4 = "0.00"
loc_004301C1: var_5BC = "0.00"
loc_004301E4: var_5C4 = Format$(var_3C, var_5BC)
loc_004301F0: var_804 = " | "
loc_00430200: var_824 = "0.00"
loc_0043022A: var_814 = var_234
loc_0043025A: 0000000Bh = 0000000Bh - Len(Format$(var_234, "0.00"))
loc_0043027C: var_844 = "0.00"
loc_0043028C: var_62C = "0.00"
loc_004302A6: var_834 = var_234
loc_004302C2: var_634 = Format$(var_234, var_62C)
loc_004302DD: var_854 = " |"
loc_00430342: var_45C = var_1AC & var_0040A6F8 & Format(var_358, "dd/mm/yy") & " | " & Space(8) & Format$(var_1BC, var_3FC) & " | " & Space(9)
loc_004303EC: var_5DC = var_45C & 8 & "| " & Space(9) & 8 & "| " & Space(10) & Format$(var_12C, var_54C) & " | " & Space(10) & Format$(var_3C, var_5BC)
loc_004305EE: Print 1, var_5DC & " | " & Space(11) & Format$(var_234, var_62C) & " |"
loc_00430620: var_60 = var_60 + 0001h
loc_00430630: var_60 = var_60
loc_00430639: Next var_54
loc_0043063F: GoTo loc_0042F426
loc_00430644: End If
loc_00430650: var_22C = var_22C
loc_00430662: var_284 = var_284
loc_00430674: var_274 = var_274
loc_00430686: var_264 = var_264
loc_0043069E: var_1C4 = var_1C4
loc_004306B6: var_1C0 = var_1C0
loc_004306BC: var_20C = var_20C
loc_004306C8: Print 1, "-------------------------------------------------------------------------------------------"
loc_004306DD: var_704 = "0.00"
loc_00430721: 00000009h = 00000009h - Len(Format$(var_22C, "0.00"))
loc_00430743: var_714 = "0.00"
loc_00430753: var_38C = "0.00"
loc_00430779: var_394 = Format$(var_22C, var_38C)
loc_00430785: var_724 = " | "
loc_00430795: var_734 = "0.00"
loc_004307D9: 00000009h = 00000009h - Len(Format$(var_284, "0.00"))
loc_004307FB: var_744 = "0.00"
loc_0043080B: var_3FC = "0.00"
loc_00430831: var_404 = Format$(var_284, var_3FC)
loc_0043083D: var_754 = "| "
loc_0043084D: var_764 = "0.00"
loc_00430891: 00000009h = 00000009h - Len(Format$(var_274, "0.00"))
loc_004308B3: var_774 = "0.00"
loc_004308E9: var_474 = Format$(var_274, "0.00")
loc_004308F5: var_784 = "| "
loc_00430905: var_794 = "0.00"
loc_00430949: 0000000Ah = 0000000Ah - Len(Format$(var_264, "0.00"))
loc_0043096B: var_7A4 = "0.00"
loc_004309A1: var_4E4 = Format$(var_264, "0.00")
loc_004309AD: var_7B4 = " | "
loc_004309BD: var_7D4 = "0.00"
loc_004309E7: var_7C4 = var_1C4
loc_00430A1D: 0000000Ah = 0000000Ah - Len(Format$(var_1C4, "0.00"))
loc_00430A39: var_7F4 = "0.00"
loc_00430A49: var_54C = "0.00"
loc_00430A63: var_7E4 = var_1C4
loc_00430A85: var_554 = Format$(var_1C4, var_54C)
loc_00430A91: var_804 = " |"
loc_00430AA1: var_824 = "0.00"
loc_00430AC3: var_814 = var_20C
loc_00430B01: 0000000Ch = 0000000Ch - Len(Format$(var_20C, "0.00"))
loc_00430B1D: var_844 = "0.00"
loc_00430B3D: var_834 = var_20C
loc_00430B79: var_854 = " |"
loc_00430C11: var_4CC = Space(9) & Format$(var_22C, var_38C) & " | " & Space(9) & Format$(var_284, var_3FC) & "| " & Space(9) & 8 & "| " & Space(10)
loc_00430E29: var_310 = "| | Total |" & var_4CC & 8 & " | " & Space(10) & Format$(var_1C4, var_54C) & " |" & Space(12) & Format(var_20C, "0.00") & " |"
loc_00430E37: Print 1, var_310
loc_00430E58: Print 1, "-------------------------------------------------------------------------------------------"
loc_00430E6D: var_704 = var_20C
loc_00430E79: var_700 = var_208
loc_00430EA6: var_188 = var_20C - var_164
loc_00430EFA: var_264 = Format$(var_264, &H40A3CC)
loc_00430F20: var_704 = "Opening Balance"
loc_00430F3B: 00000045h = 00000045h - Len("Opening Balance")
loc_00430F6D: var_734 = "0.00"
loc_00430F8F: var_724 = var_28C
loc_00430FCD: 0000000Ch = 0000000Ch - Len(Format$(var_28C, "0.00"))
loc_00430FE9: var_754 = "0.00"
loc_00431013: var_744 = var_28C
loc_00431029: var_3F4 = Format$(var_28C, "0.00")
loc_0043104A: var_764 = " |"
loc_0043113C: Print 1, Space(7) & "Opening Balance" & Space(69) & &H40A974 & Space(12) & 8 & " |"
loc_00431159: var_704 = "Current year deposit"
loc_0043117A: 00000045h = 00000045h - Len("Current year deposit")
loc_004311A6: var_724 = "0.00"
loc_004311EA: 0000000Ch = 0000000Ch - Len(Format$(var_264, "0.00"))
loc_0043120C: var_734 = "0.00"
loc_0043121C: var_3EC = "0.00"
loc_00431236: var_3F4 = Format$(var_264, var_3EC)
loc_00431257: var_744 = " |"
loc_00431349: Print 1, Space(7) & "Current year deposit" & Space(69) & &H40A974 & Space(12) & Format$(var_264, var_3EC) & " |"
loc_00431380: var_8D4 = ADODB.Recordset.RecordCount
loc_004313A5: var_204 = var_204 + 0001h
loc_004313B8: If var_204 Then
loc_00431405: If var_443000 = 0 Then
loc_0043140D: GoTo loc_00431420
loc_0043140F: End If
loc_00431420: 'Referenced from: 0043140D
loc_0043148C: If var_443000 = 0 Then
loc_00431494: GoTo loc_004314A7
loc_00431496: End If
loc_004314A7: 'Referenced from: 00431494
loc_00431557: var_2B0 = Round(var_4016C8 + var_164 * 8 / 1200 + (((var_28C * 8.6#) * 4#) / 1200#) + var_188 * 8.6# / 1200, var_4016CC)
loc_00431572: GoTo loc_00431852
loc_00431577: End If
loc_0043158B: If var_2A0 < 9 Then
loc_00431598: var_AD4 = var_2A0
loc_004315E7: If var_443000 = 0 Then
loc_004315EF: GoTo loc_00431602
loc_004315F1: End If
loc_00431602: 'Referenced from: 004315EF
loc_0043166E: var_2B0 = Round(var_4016CC + var_4016C8 * 8 / 1200, var_164)
loc_00431680: GoTo loc_0043185D
loc_00431685: End If
loc_004316A8: If var_443000 = 0 Then
loc_004316B0: GoTo loc_004316C3
loc_004316B2: End If
loc_004316C3: 'Referenced from: 004316B0
loc_00431736: var_2A0 = var_2A0 - di
loc_00431742: var_AE0 = var_2A0
loc_0043176D: If var_443000 = 0 Then
loc_00431775: GoTo loc_00431788
loc_00431777: End If
loc_00431788: 'Referenced from: 00431775
loc_00431837: var_2B0 = Round(var_4016CC + var_4016C8 * 8 / 1200 + (((var_28C * 8.6#) * var_AE8) / 1200#) + var_188 * 8.6# / 1200, var_164)
loc_00431852: 'Referenced from: 00431572
loc_0043185D: 'Referenced from: 00431680
loc_00431878: var_704 = "Interest ("
loc_00431888: var_714 = ".0"
loc_00431898: var_38C = ".0"
loc_004318BE: var_394 = Format$(var_11C, var_38C)
loc_004318CA: var_724 = "% & 8.6%)"
loc_004318DA: var_734 = ".0"
loc_0043193E: 0000003Ch = 0000003Ch - Len(1 & Format$(var_11C, ".0"))
loc_0043196A: var_754 = "0.00"
loc_004319AE: 0000000Ch = 0000000Ch - Len(Format$(var_2B0, "0.00"))
loc_004319C4: var_764 = "0.00"
loc_004319E0: var_43C = "0.00"
loc_004319FA: var_444 = Format$(var_2B0, var_43C)
loc_00431A1B: var_774 = " |"
loc_00431A91: var_45C = Space(7) & "Interest (" & Format$(var_11C, var_38C) & "% & 8.6%)" & Space(60) & &H40A974 & Space(12) & Format$(var_2B0, var_43C)
loc_00431B66: Print 1, var_45C & " |"
loc_00431B7B: var_704 = var_28C
loc_00431B87: var_700 = var_288
loc_00431BDD: var_30C = Round(var_28C + var_264 + var_2B0, 0)
loc_00431C10: var_704 = "Total"
loc_00431C2B: 00000045h = 00000045h - Len("Total")
loc_00431C5D: var_724 = "0.00"
loc_00431CA1: 0000000Ch = 0000000Ch - Len(Format$(var_30C, "0.00"))
loc_00431CC3: var_734 = "0.00"
loc_00431CD3: var_3EC = "0.00"
loc_00431CED: var_3F4 = Format$(var_30C, var_3EC)
loc_00431D0E: var_744 = " |"
loc_00431E00: Print 1, Space(7) & "Total" & Space(69) & &H40A974 & Space(12) & Format$(var_30C, var_3EC) & " |"
loc_00431E0C: fcomp real8 ptr [004016C0h]
loc_00431E1A: If Err.Number Then
loc_00431E2A: If var_178 <> 1983 Then
loc_00431E30: If var_178 = 1984 Then GoTo loc_00431E3C
loc_00431E32: 'Referenced from: 0042E6C4
loc_00431E36: If var_178 <> 1985 Then GoTo loc_00435650
loc_00431E3C: End If
loc_00431E3C: End If
loc_00431E48: var_704 = var_254
loc_00431E54: var_700 = var_250
loc_00431ED2: var_14C = Round(var_30C * var_254 / 100, 0)
loc_00431EE4: GoTo loc_00435676
loc_00431EED: If var_14C <> 2016 Then GoTo loc_0043601A
loc_00431EFE: If Not Sign(var_204 And 1 - 0) Then
loc_00431F00: eax = var_204 And 1 - 1
loc_00431F06: eax = var_204 And 1 - 1 Or 16777214 + 1
loc_00431F08: End If
loc_00431F0D: If var_204 And 1 - 1 Or 16777214 + 1 = 0 Then
loc_00431F1E: 00000059h = 00000059h - Len("Calculation of GPF Interest")
loc_00431F45: If var_443000 = 0 Then
loc_00431F4D: GoTo loc_00431F60
loc_00431F4F: End If
loc_00431F60: 'Referenced from: 00431F4D
loc_00431F78: var_36C = Space(CLng((var_AF4 / 2)))
loc_00431F87: var_38C = Space(20)
loc_00431F94: var_AF8 = var_204
loc_00431FC6: If var_443000 = 0 Then
loc_00431FCE: GoTo loc_00431FE1
loc_00431FD0: End If
loc_00431FE1: 'Referenced from: 00431FCE
loc_00432019: var_704 = "Calculation of GPF Interest"
loc_00432029: var_714 = "Page No. : "
loc_00432076: Print 1, var_36C & "Calculation of GPF Interest" & var_38C & "Page No. : " & Round(var_4016D0, var_4016D4)
loc_004320BE: GoTo loc_0043217C
loc_004320CE: 00000059h = 00000059h - Len(var_4016D4)
loc_004320F5: If var_443000 = 0 Then
loc_004320FD: GoTo loc_00432110
loc_004320FF: End If
loc_00432110: 'Referenced from: 004320FD
loc_00432143: var_704 = "Calculation of GPF Interest"
loc_0043215D: Print 1, Space(CLng((var_B0C / 2))) & "Calculation of GPF Interest"
loc_0043217C: 'Referenced from: 004320BE
loc_004321C1: var_310 = frmEmpForm.txtEmpName.Text
loc_0043222A: var_314 = frmEmpForm.txtEmpName.Text
loc_00432280: 00000044h = 00000044h - Len("Name : " & var_314)
loc_0043228A: var_36C = Space(68)
loc_004322D5: var_31C = frmEmpForm.txtGPFNumber.Text
loc_0043230B: var_374 = "Name : " & var_310
loc_00432317: var_3A4 = var_31C
loc_00432338: var_704 = " G.P.F. No. : "
loc_00432384: Print 1, "Name : " & var_310 & var_36C & " G.P.F. No. : " & 0
loc_00432405: Print 1, "-------------------------------------------------------------------------------------------"
loc_0043242C: var_704 = "| | |"
loc_00432462: var_714 = "Session : "
loc_0043247B: var_734 = " - "
loc_00432514: Print 1, "| | |" & Space(25) & "Session : " & 2016 & " - " & 2017 & Space(26) & &H40A974
loc_0043256D: Print 1, "| Mon | Date |-------------------------------------------------------------------------"
loc_00432582: Print 1, "| | | Ded | Arrear | RLoan | Total | Loan | Balance |"
loc_00432594: Print 1, "-------------------------------------------------------------------------------------------"
loc_004325C9: ecx = "Select * From InterestTable Where fn_year=" & CStr(2016)
loc_00432609: var_8D4 = ADODB.Recordset.State
loc_00432634: If var_8D4 = 1 Then
loc_0043265D: var_eax = ADODB.Recordset.Close
loc_00432681: End If
loc_004326AA: ADODB.Recordset.CursorLocation = CInt(3)
loc_0043278F: var_eax = Unknown_VTable_Call[ecx+000000A0h]
loc_004327E1: var_8D4 = ADODB.Recordset.RecordCount
loc_00432807: If var_8D4 > 0 Then
loc_0043283B: var_354 = ADODB.Recordset.Fields
loc_0043285F: var_704 = "interest"
loc_004328A7: ADODB.Recordset.ActiveConnection = var_700
loc_004328DB: var_36C = ADODB.Recordset.BOF
loc_00432937: var_11C = Val(var_36C)
loc_0043299C: var_354 = ADODB.Recordset.Fields
loc_004329D0: var_704 = "bonus"
loc_00432A08: ADODB.Recordset.ActiveConnection = var_700
loc_00432A3C: var_36C = ADODB.Recordset.BOF
loc_00432A6F: var_310 = var_36C
loc_00432AB3: End If
loc_00432C40: For var_54 = 3 To 60 Step 5
loc_00432C46:
loc_00432C48: If var_9AC Then
loc_00432C52: eax = var_60 - 1
loc_00432C56: If var_60 - 1 <= 0 Then
loc_00432C58: GoTo loc_[eax*4+00436710h]
loc_00432C64: GoTo loc_00432CB1
loc_00432C6B: GoTo loc_00432CB1
loc_00432C72: GoTo loc_00432CB1
loc_00432C79: GoTo loc_00432CB1
loc_00432C80: GoTo loc_00432CB1
loc_00432C87: GoTo loc_00432CB1
loc_00432C8E: GoTo loc_00432CB1
loc_00432C95: GoTo loc_00432CB1
loc_00432C9C: GoTo loc_00432CB1
loc_00432CA3: GoTo loc_00432CB1
loc_00432CAA: GoTo loc_00432CB1
loc_00432CB1: 'Referenced from: 00432C64
loc_00432CB7: var_1AC = "| Mar |"
loc_00432CBD: End If
loc_00432CE6: var_354 = ADODB.Recordset.Fields
loc_00432D46: var_B10 = var_54 + 1
loc_00432D6D: var_eax = ADODB.Recordset.ActiveConnection =
loc_00432D97: var_37C = ADODB.Recordset.BOF
loc_00432DED: var_1BC = Val(var_37C)
loc_00432E57: var_354 = ADODB.Recordset.Fields
loc_00432EB4: var_B14 = var_54 + 2
loc_00432EDB: var_eax = ADODB.Recordset.ActiveConnection =
loc_00432F05: var_37C = ADODB.Recordset.BOF
loc_00432F5B: var_1D8 = Val(var_37C)
loc_00432FC5: var_354 = ADODB.Recordset.Fields
loc_00433025: var_B18 = var_54 + 3
loc_0043304C: var_eax = ADODB.Recordset.ActiveConnection =
loc_00433076: var_37C = ADODB.Recordset.BOF
loc_004330CC: var_13C = Val(var_37C)
loc_00433143: var_12C = var_1BC + var_1D8 + var_13C
loc_0043317E: var_354 = ADODB.Recordset.Fields
loc_004331DE: var_B1C = var_54 + 4
loc_00433205: var_eax = ADODB.Recordset.ActiveConnection =
loc_0043322F: var_37C = ADODB.Recordset.BOF
loc_00433282: var_3C = Val(var_37C)
loc_004332E8: var_22C = var_22C + var_1BC
loc_0043330D: var_284 = var_284 + var_1D8
loc_00433332: var_274 = var_274 + var_13C
loc_00433357: var_264 = var_264 + var_12C
loc_00433369: var_704 = var_1C4
loc_00433375: var_700 = var_1C0
loc_004333B8: var_704 = var_234
loc_004333C4: var_700 = var_230
loc_004333F1: var_ret_58 = var_234 + var_12C - var_3C
loc_00433415: If var_60 < 7 Then
loc_00433423: var_704 = var_234
loc_0043342F: var_700 = var_230
loc_00433458: var_88 = var_88 + var_234
loc_0043345E: End If
loc_00433487: var_8D4 = ADODB.Recordset.RecordCount
loc_004334AC: var_204 = var_204 + 0001h
loc_004334BB: If var_204 = 0 Then
loc_004334C8: If var_60 <= 0 Then GoTo loc_00433563
loc_004334CE: End If
loc_004334F7: var_8D4 = ADODB.Recordset.RecordCount
loc_0043351C: var_204 = var_204 + 0001h
loc_0043352B: If var_204 = 0 Then
loc_0043353B: GoTo loc_00433563
loc_0043353D: End If
loc_00433563: 'Referenced from: 0043353B
loc_0043358C: var_354 = ADODB.Recordset.Fields
loc_004335D6: ADODB.Recordset.ActiveConnection = var_48
loc_00433618: var_394 = var_1AC & var_0040A6F8
loc_00433624: var_704 = "dd/mm/yy"
loc_00433644: var_364 = var_358
loc_00433681: var_714 = " | "
loc_00433691: var_724 = "0.00"
loc_004336D8: 00000008h = 00000008h - Len(Format$(var_1BC, "0.00"))
loc_004336F4: var_734 = "0.00"
loc_00433704: var_3FC = "0.00"
loc_0043372A: var_404 = Format$(var_1BC, var_3FC)
loc_00433736: var_744 = " | "
loc_00433746: var_754 = "0.00"
loc_00433790: 00000009h = 00000009h - Len(Format$(var_1D8, "0.00"))
loc_004337AC: var_764 = "0.00"
loc_004337E2: var_474 = Format$(var_1D8, "0.00")
loc_004337EE: var_774 = "| "
loc_004337FE: var_784 = "0.00"
loc_00433848: 00000009h = 00000009h - Len(Format$(var_13C, "0.00"))
loc_00433864: var_794 = "0.00"
loc_0043389A: var_4E4 = Format$(var_13C, "0.00")
loc_004338A6: var_7A4 = "| "
loc_004338B6: var_7B4 = "0.00"
loc_00433900: 0000000Ah = 0000000Ah - Len(Format$(var_12C, "0.00"))
loc_0043391C: var_7C4 = "0.00"
loc_0043392C: var_54C = "0.00"
loc_00433952: var_554 = Format$(var_12C, var_54C)
loc_0043395E: var_7D4 = " | "
loc_0043396E: var_7E4 = "0.00"
loc_004339B5: 0000000Ah = 0000000Ah - Len(Format$(var_3C, "0.00"))
loc_004339D1: var_7F4 = "0.00"
loc_004339E1: var_5BC = "0.00"
loc_00433A04: var_5C4 = Format$(var_3C, var_5BC)
loc_00433A10: var_804 = " | "
loc_00433A20: var_824 = "0.00"
loc_00433A4A: var_814 = var_234
loc_00433A7A: 0000000Bh = 0000000Bh - Len(Format$(var_234, "0.00"))
loc_00433A9C: var_844 = "0.00"
loc_00433AAC: var_62C = "0.00"
loc_00433AC6: var_834 = var_234
loc_00433AE2: var_634 = Format$(var_234, var_62C)
loc_00433AFD: var_854 = " |"
loc_00433B62: var_45C = var_1AC & var_0040A6F8 & Format(var_358, "dd/mm/yy") & " | " & Space(8) & Format$(var_1BC, var_3FC) & " | " & Space(9)
loc_00433C0C: var_5DC = var_45C & 8 & "| " & Space(9) & 8 & "| " & Space(10) & Format$(var_12C, var_54C) & " | " & Space(10) & Format$(var_3C, var_5BC)
loc_00433E0E: Print 1, var_5DC & " | " & Space(11) & Format$(var_234, var_62C) & " |"
loc_00433E40: var_60 = var_60 + 0001h
loc_00433E50: var_60 = var_60
loc_00433E59: Next var_54
loc_00433E5F: GoTo loc_00432C46
loc_00433E64: End If
loc_00433E70: var_22C = var_22C
loc_00433E82: var_284 = var_284
loc_00433E94: var_274 = var_274
loc_00433EA6: var_264 = var_264
loc_00433EBE: var_1C4 = var_1C4
loc_00433ED6: var_1C0 = var_1C0
loc_00433EDC: var_20C = var_20C
loc_00433EE8: Print 1, "-------------------------------------------------------------------------------------------"
loc_00433EFD: var_704 = "0.00"
loc_00433F41: 00000009h = 00000009h - Len(Format$(var_22C, "0.00"))
loc_00433F63: var_714 = "0.00"
loc_00433F73: var_38C = "0.00"
loc_00433F99: var_394 = Format$(var_22C, var_38C)
loc_00433FA5: var_724 = " | "
loc_00433FB5: var_734 = "0.00"
loc_00433FF9: 00000009h = 00000009h - Len(Format$(var_284, "0.00"))
loc_0043401B: var_744 = "0.00"
loc_0043402B: var_3FC = "0.00"
loc_00434051: var_404 = Format$(var_284, var_3FC)
loc_0043405D: var_754 = "| "
loc_0043406D: var_764 = "0.00"
loc_004340B1: 00000009h = 00000009h - Len(Format$(var_274, "0.00"))
loc_004340D3: var_774 = "0.00"
loc_00434109: var_474 = Format$(var_274, "0.00")
loc_00434115: var_784 = "| "
loc_00434125: var_794 = "0.00"
loc_00434169: 0000000Ah = 0000000Ah - Len(Format$(var_264, "0.00"))
loc_0043418B: var_7A4 = "0.00"
loc_004341C1: var_4E4 = Format$(var_264, "0.00")
loc_004341CD: var_7B4 = " | "
loc_004341DD: var_7D4 = "0.00"
loc_00434207: var_7C4 = var_1C4
loc_0043423D: 0000000Ah = 0000000Ah - Len(Format$(var_1C4, "0.00"))
loc_00434259: var_7F4 = "0.00"
loc_00434269: var_54C = "0.00"
loc_00434283: var_7E4 = var_1C4
loc_004342A5: var_554 = Format$(var_1C4, var_54C)
loc_004342B1: var_804 = " |"
loc_004342C1: var_824 = "0.00"
loc_004342E3: var_814 = var_20C
loc_00434321: 0000000Ch = 0000000Ch - Len(Format$(var_20C, "0.00"))
loc_0043433D: var_844 = "0.00"
loc_0043435D: var_834 = var_20C
loc_00434399: var_854 = " |"
loc_00434431: var_4CC = Space(9) & Format$(var_22C, var_38C) & " | " & Space(9) & Format$(var_284, var_3FC) & "| " & Space(9) & 8 & "| " & Space(10)
loc_00434649: var_310 = "| | Total |" & var_4CC & 8 & " | " & Space(10) & Format$(var_1C4, var_54C) & " |" & Space(12) & Format(var_20C, "0.00") & " |"
loc_00434657: Print 1, var_310
loc_00434678: Print 1, "-------------------------------------------------------------------------------------------"
loc_0043468D: var_704 = var_20C
loc_00434699: var_700 = var_208
loc_004346C6: var_E8 = var_20C - var_88
loc_0043471A: var_264 = Format$(var_264, &H40A3CC)
loc_00434740: var_704 = "Opening Balance"
loc_0043475B: 00000045h = 00000045h - Len("Opening Balance")
loc_0043478D: var_734 = "0.00"
loc_004347AF: var_724 = var_28C
loc_004347ED: 0000000Ch = 0000000Ch - Len(Format$(var_28C, "0.00"))
loc_00434809: var_754 = "0.00"
loc_00434833: var_744 = var_28C
loc_00434849: var_3F4 = Format$(var_28C, "0.00")
loc_0043486A: var_764 = " |"
loc_0043495C: Print 1, Space(7) & "Opening Balance" & Space(69) & &H40A974 & Space(12) & 8 & " |"
loc_00434979: var_704 = "Current year deposit"
loc_0043499A: 00000045h = 00000045h - Len("Current year deposit")
loc_004349C6: var_724 = "0.00"
loc_00434A0A: 0000000Ch = 0000000Ch - Len(Format$(var_264, "0.00"))
loc_00434A2C: var_734 = "0.00"
loc_00434A3C: var_3EC = "0.00"
loc_00434A56: var_3F4 = Format$(var_264, var_3EC)
loc_00434A77: var_744 = " |"
loc_00434B69: Print 1, Space(7) & "Current year deposit" & Space(69) & &H40A974 & Space(12) & Format$(var_264, var_3EC) & " |"
loc_00434BA0: var_8D4 = ADODB.Recordset.RecordCount
loc_00434BC5: var_204 = var_204 + 0001h
loc_00434BD8: If var_204 Then
loc_00434C25: If var_443000 = 0 Then
loc_00434C2D: GoTo loc_00434C40
loc_00434C2F: End If
loc_00434C40: 'Referenced from: 00434C2D
loc_00434CA6: If var_443000 = 0 Then
loc_00434CAE: GoTo loc_00434CC1
loc_00434CB0: End If
loc_00434CC1: 'Referenced from: 00434CAE
loc_00434D71: var_2B0 = Round(var_4016C8 + var_88 * 6 / 1200 + (((var_28C * 8.1#) * 6#) / 1200#) + var_E8 * 6 / 1200, var_4016CC)
loc_00434D8C: GoTo loc_00435067
loc_00434D91: End If
loc_00434DA5: If var_2A0 < 7 Then
loc_00434DB2: var_B20 = var_2A0
loc_00434E05: If var_443000 = 0 Then
loc_00434E0D: GoTo loc_00434E20
loc_00434E0F: End If
loc_00434E20: 'Referenced from: 00434E0D
loc_00434E8C: var_2B0 = Round(var_4016CC + var_4016C8 * 6 / 1200, var_88)
loc_00434E9E: GoTo loc_00435072
loc_00434EA3: End If
loc_00434EC6: If var_443000 = 0 Then
loc_00434ECE: GoTo loc_00434EE1
loc_00434ED0: End If
loc_00434EE1: 'Referenced from: 00434ECE
loc_00434F57: var_B2C = var_2A0 - 0006h
loc_00434F82: If var_443000 = 0 Then
loc_00434F8A: GoTo loc_00434F9D
loc_00434F8C: End If
loc_00434F9D: 'Referenced from: 00434F8A
loc_0043504C: var_2B0 = Round(var_4016CC + var_4016C8 * 6 / 1200 + (((var_28C * 8#) * var_B34) / 1200#) + var_E8 * 8 / 1200, var_88)
loc_00435067: 'Referenced from: 00434D8C
loc_00435072: 'Referenced from: 00434E9E
loc_0043508D: var_704 = "Interest ("
loc_0043509D: var_714 = ".0"
loc_004350AD: var_38C = ".0"
loc_004350D3: var_394 = Format$(var_11C, var_38C)
loc_004350DF: var_724 = "% & 8.0%)"
loc_004350EF: var_734 = ".0"
loc_00435153: 0000003Ch = 0000003Ch - Len(1 & Format$(var_11C, ".0"))
loc_0043517F: var_754 = "0.00"
loc_004351C3: 0000000Ch = 0000000Ch - Len(Format$(var_2B0, "0.00"))
loc_004351D9: var_764 = "0.00"
loc_004351F5: var_43C = "0.00"
loc_0043520F: var_444 = Format$(var_2B0, var_43C)
loc_00435230: var_774 = " |"
loc_004352A6: var_45C = Space(7) & "Interest (" & Format$(var_11C, var_38C) & "% & 8.0%)" & Space(60) & &H40A974 & Space(12) & Format$(var_2B0, var_43C)
loc_0043537B: Print 1, var_45C & " |"
loc_00435390: var_704 = var_28C
loc_0043539C: var_700 = var_288
loc_004353F2: var_30C = Round(var_28C + var_264 + var_2B0, 0)
loc_00435425: var_704 = "Total"
loc_00435440: 00000045h = 00000045h - Len("Total")
loc_00435472: var_724 = "0.00"
loc_004354B6: 0000000Ch = 0000000Ch - Len(Format$(var_30C, "0.00"))
loc_004354D8: var_734 = "0.00"
loc_004354E8: var_3EC = "0.00"
loc_00435502: var_3F4 = Format$(var_30C, var_3EC)
loc_00435523: var_744 = " |"
loc_00435615: Print 1, Space(7) & "Total" & Space(69) & &H40A974 & Space(12) & Format$(var_30C, var_3EC) & " |"
loc_00435621: fcomp real8 ptr [004016C0h]
loc_0043562F: If Err.Number Then
loc_0043563B: If var_178 = 1983 Then GoTo loc_00431E3C
loc_00435645: If var_178 = 1984 Then GoTo loc_00431E3C
loc_0043564B: GoTo loc_00431E32
loc_00435650: End If
loc_00435650: End If
loc_00435650: End If
loc_00435676: 'Referenced from: 00431EE4
loc_0043568A: var_704 = "Bonus"
loc_004356AB: 00000045h = 00000045h - Len("Bonus")
loc_004356C7: var_714 = "| "
loc_004356D7: var_724 = "0.00"
loc_0043571B: 0000000Bh = 0000000Bh - Len(Format$(var_14C, "0.00"))
loc_0043573D: var_734 = "0.00"
loc_0043574D: var_3EC = "0.00"
loc_00435767: var_3F4 = Format$(var_14C, var_3EC)
loc_00435788: var_744 = " |"
loc_0043587A: Print 1, Space(7) & "Bonus" & Space(69) & "| " & Space(11) & Format$(var_14C, var_3EC) & " |"
loc_0043588F: var_704 = var_28C
loc_0043589B: var_700 = var_288
loc_00435906: var_30C = Round(var_28C + var_264 + var_2B0 + var_14C, 0)
loc_00435940: var_704 = "Total"
loc_00435961: 00000045h = 00000045h - Len("Total")
loc_0043598D: var_724 = "0.00"
loc_004359D1: 0000000Ch = 0000000Ch - Len(Format$(var_30C, "0.00"))
loc_004359F3: var_734 = "0.00"
loc_00435A03: var_3EC = "0.00"
loc_00435A1D: var_3F4 = Format$(var_30C, var_3EC)
loc_00435A3E: var_744 = " |"
loc_00435B30: Print 1, Space(7) & "Total" & Space(69) & &H40A974 & Space(12) & Format$(var_30C, var_3EC) & " |"
loc_00435B4D: var_704 = "Ded amount of loan"
loc_00435B6E: 00000045h = 00000045h - Len("Ded amount of loan")
loc_00435B9A: var_734 = "0.00"
loc_00435BC4: var_724 = var_1C4
loc_00435BFA: 0000000Ch = 0000000Ch - Len(Format$(var_1C4, "0.00"))
loc_00435C16: var_754 = "0.00"
loc_00435C26: var_3EC = "0.00"
loc_00435C40: var_744 = var_1C4
loc_00435C56: var_3F4 = Format$(var_1C4, var_3EC)
loc_00435C77: var_764 = " |"
loc_00435D69: Print 1, Space(7) & "Ded amount of loan" & Space(69) & &H40A974 & Space(12) & Format$(var_1C4, var_3EC) & " |"
loc_00435D7E: Print 1, "-------------------------------------------------------------------------------------------"
loc_00435D93: var_704 = var_1C4
loc_00435D9F: var_700 = var_1C0
loc_00435DF4: var_1E8 = Round(var_30C - var_1C4, 0)
loc_00435E1C: 0000004Ch = 0000004Ch - Len("Balance of year ending 31st March")
loc_00435E38: var_724 = "0.00"
loc_00435E7C: 0000000Ch = 0000000Ch - Len(Format$(var_1E8, "0.00"))
loc_00435E9E: var_734 = "0.00"
loc_00435EE2: var_3D4 = Format$(var_1E8, "0.00")
loc_00435EF7: var_704 = "Balance of year ending 31st March"
loc_00435F27: var_744 = " |"
loc_00435F85: Print 1, "Balance of year ending 31st March" & Space(76) & &H40A974 & Space(12) & 0 & " |"
loc_00435FFE: Print 1, "-------------------------------------------------------------------------------------------"
loc_0043601A:
loc_00436041: var_eax = ADODB.Recordset.MoveNext
loc_0043606C: var_204 = var_204 + 0001h
loc_00436076: var_204 = var_204
loc_0043607C: GoTo loc_0042B0DF
loc_00436081: End If
loc_004360BB: var_704 = "No Record Found...."
loc_004360CB: var_36C = "No Record Found...."
loc_00436118: End If
loc_0043611A: Close #1
loc_00436149: var_354 = Global.App
loc_0043617D: var_310 = Global.Path
loc_004361D2: var_318 = frmEmpForm.txtGPFNumber.Text
loc_00436247: var_364 = "notepad " & var_310 & var_0040A5AC & var_318 & ".txt"
loc_004362B8: GoTo loc_00436501
loc_00436500: Exit Sub
loc_00436501: 'Referenced from: 004362B8
loc_0043668E: Exit Sub
End Sub
Private Sub txtOpeningBalance_GotFocus() '436860
loc_004368DC: var_18 = txtOpeningBalance.Text
loc_00436908: txtOpeningBalance.SelLength = Len(var_18)
loc_0043694E: GoTo loc_0043696D
loc_0043696C: Exit Sub
loc_0043696D: 'Referenced from: 0043694E
End Sub
Private Sub txtOpeningBalance_KeyPress(KeyAscii As Integer) '436990
loc_004369DF: If edi = 13 Then
loc_004369FA: var_eax = txtRetirementMonth.SetFocus
loc_00436A21: GoTo loc_00436A42
loc_00436A23: End If
loc_00436A29: setg dl
loc_00436A32: setl cl
loc_00436A37: If ecx = 0 Then GoTo loc_00436A42
loc_00436A3D: If txtRetirementMonth.SetFocus = 8 Then GoTo loc_00436A42
loc_00436A42: 'Referenced from: 00436A21
loc_00436A4A: GoTo loc_00436A56
loc_00436A55: Exit Sub
loc_00436A56: 'Referenced from: 00436A4A
End Sub
Private Sub txtOpeningBalance_LostFocus() '436A80
loc_00436AE7: var_18 = txtOpeningBalance.Text
loc_00436B18: edi = Len(var_18) + 1
loc_00436B2D: If Len(var_18) + 1 Then
loc_00436B49: txtOpeningBalance.Text = var_0040A3CC
loc_00436B70: End If
loc_00436B7C: GoTo loc_00436B91
loc_00436B90: Exit Sub
loc_00436B91: 'Referenced from: 00436B7C
End Sub
Private Sub txtRetirementMonth_GotFocus() '436BC0
loc_00436C3C: var_18 = txtRetirementMonth.Text
loc_00436C68: txtRetirementMonth.SelLength = Len(var_18)
loc_00436CAE: GoTo loc_00436CCD
loc_00436CCC: Exit Sub
loc_00436CCD: 'Referenced from: 00436CAE
End Sub
Private Sub txtRetirementMonth_KeyPress(KeyAscii As Integer) '436CF0
loc_00436D3F: If edi = 13 Then
loc_00436D5A: var_eax = Command1.SetFocus
loc_00436D81: GoTo loc_00436DA2
loc_00436D83: End If
loc_00436D89: setg dl
loc_00436D92: setl cl
loc_00436D97: If ecx = 0 Then GoTo loc_00436DA2
loc_00436D9D: If Command1.SetFocus = 8 Then GoTo loc_00436DA2
loc_00436DA2: 'Referenced from: 00436D81
loc_00436DAA: GoTo loc_00436DB6
loc_00436DB5: Exit Sub
loc_00436DB6: 'Referenced from: 00436DAA
End Sub
Private Sub txtRetirementMonth_LostFocus() '436DE0
loc_00436E47: var_18 = txtRetirementMonth.Text
loc_00436E78: edi = Len(var_18) + 1
loc_00436E8D: If Len(var_18) + 1 Then
loc_00436EA9: txtRetirementMonth.Text = var_0040B4D8
loc_00436ED0: End If
loc_00436EDC: GoTo loc_00436EF1
loc_00436EF0: Exit Sub
loc_00436EF1: 'Referenced from: 00436EDC
End Sub
Private Sub Form_Load() '436750
loc_004367B7: txtOpeningBalance.Text = var_0040A3CC
loc_004367FA: txtRetirementMonth.Text = var_0040B4D8
loc_00436829: GoTo loc_00436835
loc_00436834: Exit Sub
loc_00436835: 'Referenced from: 00436829
End Sub
Public Sub Proc_6_9_436F20
End Sub
'Object: frmSearchEmp
Private Sub cmdExit_Click() '436F40
loc_00436FAE: Set var_18 = Me
loc_00436FB9: var_eax = Global.Unload var_18
loc_00436FE2: GoTo loc_00436FEE
loc_00436FED: Exit Sub
loc_00436FEE: 'Referenced from: 00436FE2
End Sub
Private Sub cmdSearch_Click() '437010
Dim var_28 As Variant
Dim var_74 As MSFlexGrid
Dim var_20(var_28, var_20, Me, var_28, var_20, Me, var_28, Me, Me, 00000005h, var_74) As OptionButton
Dim var_34 As MSFlexGrid
Dim var_2C As ADODB.Recordset
Dim var_44 As MSFlexGrid
loc_004370B1: var_28 = var_28.Text
loc_004370FC: var_74 = var_74.Text
loc_00437144: var_74 = var_74.Text
loc_00437173: var_D4 = Option1.Value
loc_004371A4: setz al
loc_004371BD: If var_E4 Then
loc_004371C2: var_78 = "Select * From EmpMasterTable Where name like '%"
loc_004371E6: var_20 = txtEmpName.Text
loc_004371F0: If var_20 >= 0 Then GoTo loc_004375DE
loc_004371F6: GoTo loc_004375CC
loc_004371FB: End If
loc_00437209: call var_20(var_28, var_20, Me, var_28, var_20, Me, var_28, Me, Me, 00000005h, var_74)
loc_0043721B: var_D4 = Option2.Value
loc_0043724C: setz dl
loc_00437265: If var_E4 Then
loc_0043726E: var_78 = "Select * From EmpMasterTable Where gpf_no like '%"
loc_00437287: call esi(var_28, Me, Me)
loc_00437292: var_20 = txtEmpName.Text
loc_004372C3: var_38 = var_20
loc_004372E7: var_88 = "%'"
loc_0043730F: ecx = "Select * From EmpMasterTable Where gpf_no like '%" & Ucase(var_20) & "%'"
loc_00437339: GoTo loc_004377E1
loc_0043733E: End If
loc_0043735E: var_D4 = Option3.Value
loc_0043738F: setz al
loc_004373A8: If var_E4 Then
loc_004373AD: var_78 = "Select * From EmpMasterTable Where sno like '%"
loc_004373C6: var_28 = Me & 0
loc_004373D1: var_20 = txtEmpName.Text
loc_004373DB: If var_20 >= 0 Then GoTo loc_004375DE
loc_004373E1: GoTo loc_004375CC
loc_004373E6: End If
loc_004373F4: call var_28(var_28, var_20, Me)
loc_00437406: var_D4 = Option4.Value
loc_00437437: setz dl
loc_00437450: If var_E4 Then
loc_00437459: var_78 = "Select * From EmpMasterTable Where dept like '%"
loc_00437472: call var_28(var_28, Me, Me)
loc_0043747D: var_20 = txtEmpName.Text
loc_004374AE: var_38 = var_20
loc_004374D2: var_88 = "%'"
loc_004374FA: ecx = "Select * From EmpMasterTable Where dept like '%" & Ucase(var_20) & "%'"
loc_00437524: GoTo loc_004377E1
loc_00437529: End If
loc_00437549: var_D4 = Option5.Value
loc_0043757A: setz al
loc_00437593: If var_E4 Then
loc_0043759C: var_78 = "Select * From EmpMasterTable Where city like '%"
loc_004375B5: var_28 = Me & 0
loc_004375C0: var_20 = txtEmpName.Text
loc_004375CA: If var_20 < 0 Then
loc_004375CC: 'Referenced from: 004371F6
loc_004375D8: var_20 = CheckObj(var_28, var_00408F54, 160)
loc_004375DE: End If
loc_004375E4: var_38 = var_20
loc_00437615: var_88 = "%'"
loc_0043763D: ecx = "Select * From EmpMasterTable Where city like '%" & Ucase(var_20) & "%'"
loc_00437667: GoTo loc_004377E1
loc_0043766C: End If
loc_0043768C: var_D4 = Option6.Value
loc_004376BD: setz dl
loc_004376D6: If var_E4 Then
loc_004376E2: ecx = "Select * From EmpMasterTable order by entdate"
loc_004376E8: GoTo loc_004377E1
loc_004376ED: End If
loc_0043770D: var_D4 = Option7.Value
loc_0043773E: setz al
loc_00437757: If var_E4 Then
loc_00437776: var_20 = txtEmpName.Text
loc_004377BF: ecx = "Select * From EmpMasterTable Where mobileno like '%" & var_20 & "%'"
loc_004377E1: End If
loc_00437809: var_D8 = ADODB.Recordset.State
loc_0043782E: If var_D8 = 1 Then
loc_00437851: var_eax = ADODB.Recordset.Close
loc_0043786F: End If
loc_00437892: ADODB.Recordset.CursorLocation = CInt(3)
loc_00437954: var_eax = Unknown_VTable_Call[edx+000000A0h]
loc_0043799A: var_D8 = ADODB.Recordset.RecordCount
loc_004379B8: If var_D8 > 0 Then
loc_004379FD: var_74 = var_74.Text
loc_00437A23: esi = MSFlexGrid.Text
loc_00437AB3: var_28 = var_28.Text
loc_00437B48: var_28 = var_28.Text
loc_00437BDD: var_28 = var_28.Text
loc_00437C72: var_28 = var_28.Text
loc_00437D07: var_28 = var_28.Text
loc_00437D9C: var_28 = var_28.Text
loc_00437E31: var_28 = var_28.Text
loc_00437EC6: var_28 = var_28.Text
loc_00437F66: esi = MSFlexGrid.Text
loc_00437FFB: var_28 = var_28.Text
loc_00438090: var_28 = var_28.Text
loc_00438125: var_28 = var_28.Text
loc_004381BA: var_28 = var_28.Text
loc_0043824F: var_28 = var_28.Text
loc_00438268:
loc_00438291: var_D4 = ADODB.Recordset.EOF
loc_004382B1: If var_D4 = 0 Then
loc_004382C3: var_78 = var_18
loc_004382E3: var_38 = CStr(vbNull)
loc_00438345: var_34 = var_34.Text
loc_0043838E: var_28 = ADODB.Recordset.Fields
loc_004383BA: var_78 = "sno"
loc_004383DE: ADODB.Recordset.ActiveConnection = var_74
loc_00438406: var_38 = var_2C
loc_00438434: If Not (IsNull(var_2C)) Then
loc_0043843E: var_88 = var_18
loc_00438474: var_28 = ADODB.Recordset.Fields
loc_004384A5: var_78 = "sno"
loc_004384C2: ADODB.Recordset.ActiveConnection = var_74
loc_004384EC: var_2C = ADODB.Recordset.BOF
loc_0043852F: var_48 = var_40
loc_00438597: var_44 = var_44.Text
loc_004385C7: End If
loc_004385CC: var_1C = var_1C + 0001h
loc_004385D8: var_1C = var_1C
loc_004385FA: var_28 = ADODB.Recordset.Fields
loc_00438626: var_78 = "gpf_no"
loc_0043864A: ADODB.Recordset.ActiveConnection = var_74
loc_00438672: var_38 = var_2C
loc_004386A0: If Not (IsNull(var_2C)) Then
loc_004386AA: var_88 = var_18
loc_004386E0: var_28 = ADODB.Recordset.Fields
loc_00438711: var_78 = "gpf_no"
loc_0043872E: ADODB.Recordset.ActiveConnection = var_74
loc_00438758: var_2C = ADODB.Recordset.BOF
loc_0043879B: var_48 = var_40
loc_00438803: var_44 = var_44.Text
loc_00438833: End If
loc_00438838: var_1C = var_1C + 0001h
loc_00438844: var_1C = var_1C
loc_00438866: var_28 = ADODB.Recordset.Fields
loc_00438897: var_78 = "name"
loc_004388B4: ADODB.Recordset.ActiveConnection = var_74
loc_004388DC: var_38 = var_2C
loc_0043890A: If Not (IsNull(var_2C)) Then
loc_00438914: var_88 = var_18
loc_0043894A: var_28 = ADODB.Recordset.Fields
loc_0043897B: var_78 = "name"
loc_00438998: ADODB.Recordset.ActiveConnection = var_74
loc_004389C2: var_2C = ADODB.Recordset.BOF
loc_00438A05: var_48 = var_40
loc_00438A6D: var_44 = var_44.Text
loc_00438A9D: GoTo loc_00438AA2
loc_00438A9F: End If
loc_00438AA2: 'Referenced from: 00438A9D
loc_00438AA7: var_1C = var_1C + 0001h
loc_00438AB3: var_1C = var_1C
loc_00438AD5: var_28 = ADODB.Recordset.Fields
loc_00438B01: var_78 = "designation"
loc_00438B25: ADODB.Recordset.ActiveConnection = var_74
loc_00438B4D: var_38 = var_2C
loc_00438B7B: If Not (IsNull(var_2C)) Then
loc_00438B85: var_88 = var_18
loc_00438BBB: var_28 = ADODB.Recordset.Fields
loc_00438BEC: var_78 = "designation"
loc_00438C09: ADODB.Recordset.ActiveConnection = var_74
loc_00438C33: var_2C = ADODB.Recordset.BOF
loc_00438C76: var_48 = var_40
loc_00438CDE: var_44 = var_44.Text
loc_00438D0E: End If
loc_00438D13: var_1C = var_1C + 0001h
loc_00438D1F: var_1C = var_1C
loc_00438D41: var_28 = ADODB.Recordset.Fields
loc_00438D72: var_78 = "dept"
loc_00438D8F: ADODB.Recordset.ActiveConnection = var_74
loc_00438DB7: var_38 = var_2C
loc_00438DE5: If Not (IsNull(var_2C)) Then
loc_00438DEF: var_88 = var_18
loc_00438E25: var_28 = ADODB.Recordset.Fields
loc_00438E56: var_78 = "dept"
loc_00438E73: ADODB.Recordset.ActiveConnection = var_74
loc_00438E9D: var_2C = ADODB.Recordset.BOF
loc_00438EE0: var_48 = var_40
loc_00438F48: var_44 = var_44.Text
loc_00438F78: GoTo loc_00438F7D
loc_00438F7A: End If
loc_00438F7D: 'Referenced from: 00438F78
loc_00438F82: var_1C = var_1C + 0001h
loc_00438F8E: var_1C = var_1C
loc_00438FB0: var_28 = ADODB.Recordset.Fields
loc_00438FDC: var_78 = "address"
loc_00439000: ADODB.Recordset.ActiveConnection = var_74
loc_00439028: var_38 = var_2C
loc_00439056: If Not (IsNull(var_2C)) Then
loc_00439060: var_88 = var_18
loc_00439096: var_28 = ADODB.Recordset.Fields
loc_004390C7: var_78 = "address"
loc_004390E4: ADODB.Recordset.ActiveConnection = var_74
loc_0043910E: var_2C = ADODB.Recordset.BOF
loc_00439151: var_48 = var_40
loc_004391B9: var_44 = var_44.Text
loc_004391E9: End If
loc_004391EE: var_1C = var_1C + 0001h
loc_004391FA: var_1C = var_1C
loc_0043921C: var_28 = ADODB.Recordset.Fields
loc_0043924D: var_78 = "city"
loc_0043926A: ADODB.Recordset.ActiveConnection = var_74
loc_00439292: var_38 = var_2C
loc_004392C0: If Not (IsNull(var_2C)) Then
loc_004392CA: var_88 = var_18
loc_00439300: var_28 = ADODB.Recordset.Fields
loc_00439331: var_78 = "city"
loc_0043934E: ADODB.Recordset.ActiveConnection = var_74
loc_00439378: var_2C = ADODB.Recordset.BOF
loc_004393BB: var_48 = var_40
loc_00439423: var_44 = var_44.Text
loc_00439453: GoTo loc_00439458
loc_00439455: End If
loc_00439458: 'Referenced from: 00439453
loc_0043945D: var_1C = var_1C + 0001h
loc_00439469: var_1C = var_1C
loc_0043948B: var_28 = ADODB.Recordset.Fields
loc_004394B7: var_78 = "mobileno"
loc_004394DB: ADODB.Recordset.ActiveConnection = var_74
loc_00439503: var_38 = var_2C
loc_00439531: If Not (IsNull(var_2C)) Then
loc_0043953B: var_88 = var_18
loc_00439571: var_28 = ADODB.Recordset.Fields
loc_004395A2: var_78 = "mobileno"
loc_004395BF: ADODB.Recordset.ActiveConnection = var_74
loc_004395E9: var_2C = ADODB.Recordset.BOF
loc_0043962C: var_48 = var_40
loc_00439694: var_44 = var_44.Text
loc_004396C4: End If
loc_004396C9: var_1C = var_1C + 0001h
loc_004396D5: var_1C = var_1C
loc_004396F7: var_28 = ADODB.Recordset.Fields
loc_00439728: var_78 = "contactno"
loc_00439745: ADODB.Recordset.ActiveConnection = var_74
loc_0043976D: var_38 = var_2C
loc_0043979B: If Not (IsNull(var_2C)) Then
loc_004397A5: var_88 = var_18
loc_004397DB: var_28 = ADODB.Recordset.Fields
loc_0043980C: var_78 = "contactno"
loc_00439829: ADODB.Recordset.ActiveConnection = var_74
loc_00439853: var_2C = ADODB.Recordset.BOF
loc_00439896: var_48 = var_40
loc_004398FE: var_44 = var_44.Text
loc_0043992E: GoTo loc_00439933
loc_00439930: End If
loc_00439933: 'Referenced from: 0043992E
loc_00439938: var_1C = var_1C + 0001h
loc_00439944: var_1C = var_1C
loc_00439966: var_28 = ADODB.Recordset.Fields
loc_00439992: var_78 = "description"
loc_004399B6: ADODB.Recordset.ActiveConnection = var_74
loc_004399DE: var_38 = var_2C
loc_00439A0C: If Not (IsNull(var_2C)) Then
loc_00439A16: var_88 = var_18
loc_00439A4C: var_28 = ADODB.Recordset.Fields
loc_00439A7D: var_78 = "description"
loc_00439A9A: ADODB.Recordset.ActiveConnection = var_74
loc_00439AC4: var_2C = ADODB.Recordset.BOF
loc_00439B07: var_48 = var_40
loc_00439B6F: var_44 = var_44.Text
loc_00439B9F: End If
loc_00439BA4: var_1C = var_1C + 0001h
loc_00439BB0: var_1C = var_1C
loc_00439BD2: var_28 = ADODB.Recordset.Fields
loc_00439C03: var_78 = "jobstart"
loc_00439C20: ADODB.Recordset.ActiveConnection = var_74
loc_00439C48: var_38 = var_2C
loc_00439C76: If Not (IsNull(var_2C)) Then
loc_00439C80: var_88 = var_18
loc_00439CB6: var_28 = ADODB.Recordset.Fields
loc_00439CE7: var_78 = "jobstart"
loc_00439D04: ADODB.Recordset.ActiveConnection = var_74
loc_00439D2E: var_2C = ADODB.Recordset.BOF
loc_00439D71: var_48 = var_40
loc_00439DD9: var_44 = var_44.Text
loc_00439E09: GoTo loc_00439E0E
loc_00439E0B: End If
loc_00439E0E: 'Referenced from: 00439E09
loc_00439E13: var_1C = var_1C + 0001h
loc_00439E1F: var_1C = var_1C
loc_00439E41: var_28 = ADODB.Recordset.Fields
loc_00439E6D: var_78 = "jobend"
loc_00439E91: ADODB.Recordset.ActiveConnection = var_74
loc_00439EB9: var_38 = var_2C
loc_00439EE7: If Not (IsNull(var_2C)) Then
loc_00439EF1: var_88 = var_18
loc_00439F27: var_28 = ADODB.Recordset.Fields
loc_00439F58: var_78 = "jobend"
loc_00439F75: ADODB.Recordset.ActiveConnection = var_74
loc_00439F9F: var_2C = ADODB.Recordset.BOF
loc_00439FE2: var_48 = var_40
loc_0043A04A: var_44 = var_44.Text
loc_0043A07A: End If
loc_0043A07F: var_1C = var_1C + 0001h
loc_0043A08B: var_1C = var_1C
loc_0043A0AD: var_28 = ADODB.Recordset.Fields
loc_0043A0DE: var_78 = "entdate"
loc_0043A0FB: ADODB.Recordset.ActiveConnection = var_74
loc_0043A123: var_38 = var_2C
loc_0043A151: If Not (IsNull(var_2C)) Then
loc_0043A15F: var_88 = var_18
loc_0043A176: var_A8 = var_1C
loc_0043A19B: var_28 = ADODB.Recordset.Fields
loc_0043A1CC: var_78 = "entdate"
loc_0043A1E9: ADODB.Recordset.ActiveConnection = var_74
loc_0043A213: var_2C = ADODB.Recordset.BOF
loc_0043A248: var_48 = var_40
loc_0043A2C0: var_44 = var_44.Text
loc_0043A2F0: GoTo loc_0043A2F8
loc_0043A2F2: End If
loc_0043A2F8: 'Referenced from: 0043A2F0
loc_0043A311: var_40 = var_28.Text
loc_0043A31B: var_ret_1 = CLng(var_28)
loc_0043A337: var_78 = var_ret_1 + 00000001h
loc_0043A35E: var_74 = var_74.Text
loc_0043A389: var_18 = var_18 + 0001h
loc_0043A395: var_18 = var_18
loc_0043A3B3: var_eax = ADODB.Recordset.MoveNext
loc_0043A3D5: GoTo loc_00438268
loc_0043A3DA: End If
loc_0043A3E6: GoTo loc_0043A428
loc_0043A427: Exit Sub
loc_0043A428: 'Referenced from: 0043A3E6
loc_0043A428: Exit Sub
End Sub
Private Sub Form_Load() '43A450
loc_0043A4B3: txtEmpName.Text = vbNullString
loc_0043A4E2: GoTo loc_0043A4EE
loc_0043A4ED: Exit Sub
loc_0043A4EE: 'Referenced from: 0043A4E2
End Sub
Private Sub MSFlexGrid1_UnknownEvent_9 '43A510
Dim var_1C As MSFlexGrid
Dim esi As MSFlexGrid
loc_0043A59E: var_30 = var_1C.Text
loc_0043A5A8: var_ret_1 = CLng(var_1C)
loc_0043A602: var_40 = esi.Text
loc_0043A617: var_18 = Me
loc_0043A624: var_eax = MSFlexGrid.1808
loc_0043A6CE: var_eax = frmEmpForm.Show var_44
loc_0043A6F8: GoTo loc_0043A727
loc_0043A726: Exit Sub
loc_0043A727: 'Referenced from: 0043A6F8
End Sub
Private Sub txtEmpName_KeyPress(KeyAscii As Integer) '43A750
loc_0043A79C: If KeyAscii = 13 Then
loc_0043A7B7: var_eax = cmdSearch.SetFocus
loc_0043A7DE: End If
loc_0043A7E6: GoTo loc_0043A7F2
loc_0043A7F1: Exit Sub
loc_0043A7F2: 'Referenced from: 0043A7E6
End Sub
'Object: frmChangePassword
Private Sub txtOldPass_KeyDown(KeyCode As Integer, Shift As Integer) '43B890
loc_0043B8DC: If KeyCode = 13 Then
loc_0043B8F7: var_eax = txtNewPass.SetFocus
loc_0043B91E: End If
loc_0043B926: GoTo loc_0043B932
loc_0043B931: Exit Sub
loc_0043B932: 'Referenced from: 0043B926
End Sub
Private Sub txtNewPass_KeyDown(KeyCode As Integer, Shift As Integer) '43B7C0
loc_0043B80C: If KeyCode = 13 Then
loc_0043B827: var_eax = txtRePass.SetFocus
loc_0043B84E: End If
loc_0043B856: GoTo loc_0043B862
loc_0043B861: Exit Sub
loc_0043B862: 'Referenced from: 0043B856
End Sub
Private Sub txtRePass_KeyDown(KeyCode As Integer, Shift As Integer) '43B960
loc_0043B9AC: If KeyCode = 13 Then
loc_0043B9C7: var_eax = cmdChangePass.SetFocus
loc_0043B9EE: End If
loc_0043B9F6: GoTo loc_0043BA02
loc_0043BA01: Exit Sub
loc_0043BA02: 'Referenced from: 0043B9F6
End Sub
Private Sub cmdChangePass_Click() '43A820
Dim var_30 As ADODB.Recordset
Dim var_34 As ADODB.Recordset
loc_0043A8AE: var_eax = frmChangePassword.Proc_8_6_43B1F0(Me, var_BC, edi)
loc_0043A8BC: If var_BC = var_FFFFFF Then
loc_0043A8CC: ecx = "Select * From PasswordTable"
loc_0043A8FA: var_C0 = ADODB.Recordset.State
loc_0043A929: If var_C0 = 1 Then
loc_0043A94D: var_eax = ADODB.Recordset.Close
loc_0043A967: End If
loc_0043A98B: ADODB.Recordset.CursorLocation = CInt(3)
loc_0043AA3E: var_eax = Unknown_VTable_Call[edx+000000A0h]
loc_0043AA8F: var_C0 = ADODB.Recordset.RecordCount
loc_0043AAAB: If var_C0 > 0 Then
loc_0043AAB7:
loc_0043AAE0: var_BC = ADODB.Recordset.EOF
loc_0043AAFC: If var_BC = 0 Then
loc_0043AB07: If ADODB.Recordset.Bookmark <> %StkVar1 <> 0 Then GoTo loc_0043AF46
loc_0043AB33: var_30 = ADODB.Recordset.Fields
loc_0043AB63: var_80 = "passwrd"
loc_0043AB83: ADODB.Recordset.ActiveConnection = var_7C
loc_0043ABB5: var_40 = var_34
loc_0043ABE3: If Not (IsNull(var_34)) Then
loc_0043AC06: var_18 = txtOldPass.Text
loc_0043AC2A: var_50 = var_18
loc_0043AC5A: var_34 = ADODB.Recordset.Fields
loc_0043AC8A: var_80 = "passwrd"
loc_0043ACA6: ADODB.Recordset.ActiveConnection = var_7C
loc_0043ACD4: var_34 = ADODB.Recordset.BOF
loc_0043AD22: If (var_18 = var_34) Then
loc_0043AD4E: var_30 = ADODB.Recordset.Fields
loc_0043AD7E: var_80 = "uname"
loc_0043AD9A: ADODB.Recordset.ActiveConnection = var_7C
loc_0043ADCA: var_40 = var_34
loc_0043ADF4: If Not (IsNull(var_34)) Then
loc_0043AE20: var_30 = ADODB.Recordset.Fields
loc_0043AE50: var_80 = "uname"
loc_0043AE6C: ADODB.Recordset.ActiveConnection = var_7C
loc_0043AE9A: var_34 = ADODB.Recordset.BOF
loc_0043AECB: ecx = var_34
loc_0043AEFC: GoTo loc_0043AF01
loc_0043AEFE: End If
loc_0043AEFE: End If
loc_0043AF01: End If
loc_0043AF23: var_eax = ADODB.Recordset.MoveNext
loc_0043AF41: GoTo loc_0043AAB7
loc_0043AF46:
loc_0043AF4B: If ADODB.Recordset.Bookmark = %StkVar1 = 0 Then
loc_0043AF6E: var_1C = txtNewPass.Text
loc_0043AFFD: ecx = "Update PasswordTable Set uname = '" & edi+00000034h & "', passwrd = '" & var_1C & "' Where uname = '" & edi+00000034h & var_00408F68
loc_0043B034: var_eax = call Proc_2_0_41B450(vbNullString, IsNull(var_34), Me)
loc_0043B065: Set var_30 = Me
loc_0043B073: var_eax = Global.Unload var_30
loc_0043B090: GoTo loc_0043B16A
loc_0043B095: End If
loc_0043B0CB: var_48 = "Old password doesn't match. Please try again..."
loc_0043B0F9: GoTo loc_0043B15F
loc_0043B0FB: End If
loc_0043B131: var_48 = "Cannot complete operation..."
loc_0043B15F: 'Referenced from: 0043B0F9
loc_0043B16A: 'Referenced from: 0043B090
loc_0043B16C: End If
loc_0043B174: GoTo loc_0043B1C6
loc_0043B1C5: Exit Sub
loc_0043B1C6: 'Referenced from: 0043B174
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) '43B6E0
loc_0043B72C: If KeyAscii = 27 Then
loc_0043B756: Set var_18 = Me
loc_0043B761: var_eax = Global.Unload var_18
loc_0043B782: End If
loc_0043B78A: GoTo loc_0043B796
loc_0043B795: Exit Sub
loc_0043B796: 'Referenced from: 0043B78A
End Sub
Private Sub Command2_Click() '43B610
loc_0043B67E: Set var_18 = Me
loc_0043B689: var_eax = Global.Unload var_18
loc_0043B6B2: GoTo loc_0043B6BE
loc_0043B6BD: Exit Sub
loc_0043B6BE: 'Referenced from: 0043B6B2
End Sub
Public Sub Proc_8_6_43B1F0
Dim var_20 As TextBox
Dim var_34 As TextBox
loc_0043B25B: var_18 = txtOldPass.Text
loc_0043B28A: setle dl
loc_0043B2A4: If edx Then
loc_0043B2DA: var_34 = "Please enter old password..."
loc_0043B328: var_eax = txtOldPass.SetFocus
loc_0043B334:
loc_0043B346:
loc_0043B35B: GoTo loc_0043B5EA
loc_0043B360: End If
loc_0043B379: var_18 = txtNewPass.Text
loc_0043B3A5: setle cl
loc_0043B3C2: If var_20 Then
loc_0043B3F8: var_34 = "Please enter new password..."
loc_0043B446: var_eax = txtNewPass.SetFocus
loc_0043B450: If txtNewPass.SetFocus >= 0 Then GoTo loc_0043B346
loc_0043B456: GoTo loc_0043B334
loc_0043B45B: End If
loc_0043B474: var_18 = txtNewPass.Text
loc_0043B4AB: var_1C = txtRePass.Text
loc_0043B507: If (var_18 = var_1C) Then
loc_0043B53D: var_34 = "New password and re password doesn't match..."
loc_0043B58B: var_eax = txtNewPass.SetFocus
loc_0043B595: If txtNewPass.SetFocus >= 0 Then GoTo loc_0043B346
loc_0043B59B: GoTo loc_0043B334
loc_0043B5A0: End If
loc_0043B5AC: GoTo loc_0043B5EA
loc_0043B5E9: Exit Sub
loc_0043B5EA: 'Referenced from: 0043B35B
End Sub
'Object: frmLogin
Private Sub txtUserName_KeyDown(KeyCode As Integer, Shift As Integer) '43C6D0
loc_0043C71C: If KeyCode = 13 Then
loc_0043C737: var_eax = txtPassword.SetFocus
loc_0043C75E: End If
loc_0043C766: GoTo loc_0043C772
loc_0043C771: Exit Sub
loc_0043C772: 'Referenced from: 0043C766
End Sub
Private Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer) '43C600
loc_0043C64C: If KeyCode = 13 Then
loc_0043C667: var_eax = cmbLogin.SetFocus
loc_0043C68E: End If
loc_0043C696: GoTo loc_0043C6A2
loc_0043C6A1: Exit Sub
loc_0043C6A2: 'Referenced from: 0043C696
End Sub
Private Sub Command2_Click() '43BFC0
loc_0043C02E: Set var_18 = Me
loc_0043C039: var_eax = Global.Unload var_18
loc_0043C062: GoTo loc_0043C06E
loc_0043C06D: Exit Sub
loc_0043C06E: 'Referenced from: 0043C062
End Sub
Private Sub cmbLogin_Click() '43BA30
loc_0043BAB5: var_eax = frmLogin.Proc_9_5_43C090(Me, var_B4, edi)
loc_0043BAC3: If var_B4 = var_FFFFFF Then
loc_0043BAE8: var_18 = txtUserName.Text
loc_0043BB1F: var_20 = txtPassword.Text
loc_0043BB87: ecx = "Select * From PasswordTable Where uname = '" & var_18 & "' and passwrd = '" & var_20 & var_00408F68
loc_0043BBEB: var_B8 = ADODB.Recordset.State
loc_0043BC1A: If var_B8 = 1 Then
loc_0043BC3A: var_eax = ADODB.Recordset.Close
loc_0043BC54: End If
loc_0043BC74: ADODB.Recordset.CursorLocation = CInt(3)
loc_0043BD14: var_eax = Unknown_VTable_Call[edi+000000A0h]
loc_0043BD5B: var_B8 = ADODB.Recordset.RecordCount
loc_0043BD97: If var_B8 > 0 Then
loc_0043BDB1: var_40 = "Successfully login..."
loc_0043BE4D: var_eax = Unknown_VTable_Call[edi+000002B0h]
loc_0043BE94: Set var_2C = Me
loc_0043BE9C: var_eax = Global.Unload var_2C
loc_0043BEA3: If Global.Unload var_2C < 0 Then
loc_0043BEB0: GoTo loc_0043BF31
loc_0043BEB2: End If
loc_0043BEC6: var_40 = "Username or Password is wrong..."
loc_0043BF1B: var_eax = txtUserName.SetFocus
loc_0043BF25: If txtUserName.SetFocus >= 0 Then GoTo loc_0043BF39
loc_0043BF31: 'Referenced from: 0043BEB0
loc_0043BF33: txtUserName.SetFocus = CheckObj(Me, var_00408F54, 516)
loc_0043BF39: End If
loc_0043BF44: End If
loc_0043BF4C: GoTo loc_0043BF96
loc_0043BF95: Exit Sub
loc_0043BF96: 'Referenced from: 0043BF4C
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '43C520
loc_0043C56C: If KeyCode = 27 Then
loc_0043C596: Set var_18 = Me
loc_0043C5A1: var_eax = Global.Unload var_18
loc_0043C5C2: End If
loc_0043C5CA: GoTo loc_0043C5D6
loc_0043C5D5: Exit Sub
loc_0043C5D6: 'Referenced from: 0043C5CA
End Sub
Public Sub Proc_9_5_43C090
Dim var_20 As TextBox
Dim var_34 As TextBox
loc_0043C115: var_18 = txtUserName.Text
loc_0043C13F: var_2C = var_18
loc_0043C167: var_1C = CStr(Trim(var_18))
loc_0043C177: txtUserName.Text = var_1C
loc_0043C1F0: var_18 = txtPassword.Text
loc_0043C214: var_2C = var_18
loc_0043C240: var_1C = CStr(Trim(0))
loc_0043C250: txtPassword.Text = var_1C
loc_0043C2B3: var_18 = txtUserName.Text
loc_0043C2DF: setle cl
loc_0043C2FB: If var_20 Then
loc_0043C37F: var_eax = txtUserName.SetFocus
loc_0043C38B:
loc_0043C39D:
loc_0043C3B2: GoTo loc_0043C4FB
loc_0043C3B7: End If
loc_0043C3D0: var_18 = txtPassword.Text
loc_0043C3FC: setle cl
loc_0043C418: If var_20 Then
loc_0043C44E: var_34 = "Please enter password..."
loc_0043C49C: var_eax = txtPassword.SetFocus
loc_0043C4A6: If txtPassword.SetFocus >= 0 Then GoTo loc_0043C39D
loc_0043C4AC: GoTo loc_0043C38B
loc_0043C4B1: End If
loc_0043C4BD: GoTo loc_0043C4FB
loc_0043C4FA: Exit Sub
loc_0043C4FB: 'Referenced from: 0043C3B2
End Sub
'Object: frmTopNDifferences
Private Sub cmdPrint_Click() '43C7A0
Dim var_D8 As Variant
Dim var_DC As ADODB.Recordset
loc_0043C9DE: var_eax = frmTopNDifferences.Proc_10_3_43ED80(Me, var_510, edi)
loc_0043C9EB: If var_510 Then
loc_0043CA14: var_CC = txtTopNDifferences.Text
loc_0043CA4B: var_A4 = CInt(Val(var_CC))
loc_0043CA8D: var_D8 = Global.App
loc_0043CAB7: var_CC = Global.Path
loc_0043CAF6: Open var_CC & "\Summary.txt" For Output As #1 Len = -1
loc_0043CB27: ecx = "Select gpf_no, name, designation, dept, city, bal_diff, diff_year From EmpMasterTable Order By bal_diff Desc"
loc_0043CB55: var_514 = ADODB.Recordset.State
loc_0043CB7A: If var_514 = 1 Then
loc_0043CBA7: var_eax = ADODB.Recordset.Close
loc_0043CBCD: End If
loc_0043CBEC: ADODB.Recordset.CursorLocation = CInt(3)
loc_0043CCB5: var_eax = Unknown_VTable_Call[edx+000000A0h]
loc_0043CCF0: var_34 = CInt(1)
loc_0043CD1E: var_514 = ADODB.Recordset.RecordCount
loc_0043CD3C: If var_514 > 0 Then
loc_0043CD52: 00000058h = 00000058h - Len("Calculation of GPF Interest")
loc_0043CD79: If var_443000 = 0 Then
loc_0043CD81: GoTo loc_0043CD94
loc_0043CD83: End If
loc_0043CD94: 'Referenced from: 0043CD81
loc_0043CDCD: var_3D4 = "Calculation of GPF Interest"
loc_0043CDED: Print 1, Space(CLng((var_578 / 2))) & "Calculation of GPF Interest"
loc_0043CE11: Print 1, " Summary Report of Difference "
loc_0043CE40: var_CC = txtTopNDifferences.Text
loc_0043CE7C: 00000004h = 00000004h - Len(var_CC)
loc_0043CEEE: var_3E4 = var_A4
loc_0043CEFB: var_144 = Format$(Now, "dd/mm/yyyy")
loc_0043CF10: var_3D4 = "Top "
loc_0043CF2A: var_3F4 = " Differences Print Date : "
loc_0043CF87: Print 1, "Top " & Space(4) & var_A4 & " Differences Print Date : " & 0
loc_0043CFF9: Print 1, "-------------------------------------------------------------------------------------------"
loc_0043D007: Print 1, " SN. | GPF | Employee Name | Design | Dept. | City | Year | Diff. "
loc_0043D015: Print 1, "-------------------------------------------------------------------------------------------"
loc_0043D01A:
loc_0043D043: var_510 = ADODB.Recordset.EOF
loc_0043D063: If var_510 = 0 Then
loc_0043D085: var_B4 = vbNullString
loc_0043D0B4: var_D8 = ADODB.Recordset.Fields
loc_0043D0E2: var_3D4 = "gpf_no"
loc_0043D114: ADODB.Recordset.ActiveConnection = var_3D0
loc_0043D149: var_E4 = var_DC
loc_0043D17F: If Not (IsNull(var_DC)) Then
loc_0043D1AE: var_D8 = ADODB.Recordset.Fields
loc_0043D1DC: var_3D4 = "gpf_no"
loc_0043D20E: ADODB.Recordset.ActiveConnection = var_3D0
loc_0043D24E: var_E4 = var_DC
loc_0043D25E: var_B4 = var_DC
loc_0043D28E: var_EC = Len(var_B4)
loc_0043D2A5: If (var_EC > 6) Then
loc_0043D2B7: var_CC = CStr(var_B4)
loc_0043D2D0: var_E4 = Right$(var_CC, 6)
loc_0043D2DC: var_B4 = Right$(var_CC, 6)
loc_0043D2EA: End If
loc_0043D2EA: End If
loc_0043D303: var_24 = vbNullString
loc_0043D332: var_D8 = ADODB.Recordset.Fields
loc_0043D360: var_3D4 = "name"
loc_0043D392: ADODB.Recordset.ActiveConnection = var_3D0
loc_0043D3C7: var_E4 = var_DC
loc_0043D3FD: If Not (IsNull(var_DC)) Then
loc_0043D42C: var_D8 = ADODB.Recordset.Fields
loc_0043D45A: var_3D4 = "name"
loc_0043D48C: ADODB.Recordset.ActiveConnection = var_3D0
loc_0043D4C9: var_E4 = var_DC
loc_0043D4D9: var_24 = var_DC
loc_0043D506: var_EC = Len(var_24)
loc_0043D51D: If (var_EC > 25) Then
loc_0043D52C: var_CC = CStr(var_24)
loc_0043D542: var_E4 = Right$(var_CC, 25)
loc_0043D54E: var_24 = Right$(var_CC, 25)
loc_0043D55C: End If
loc_0043D55C: End If
loc_0043D575: var_7C = vbNullString
loc_0043D5A4: var_D8 = ADODB.Recordset.Fields
loc_0043D5D2: var_3D4 = "designation"
loc_0043D604: ADODB.Recordset.ActiveConnection = var_3D0
loc_0043D639: var_E4 = var_DC
loc_0043D66F: If Not (IsNull(var_DC)) Then
loc_0043D69E: var_D8 = ADODB.Recordset.Fields
loc_0043D6CC: var_3D4 = "designation"
loc_0043D6FE: ADODB.Recordset.ActiveConnection = var_3D0
loc_0043D73B: var_E4 = var_DC
loc_0043D74B: var_7C = var_DC
loc_0043D778: var_EC = Len(var_7C)
loc_0043D78F: If (var_EC > 6) Then
loc_0043D79E: var_CC = CStr(var_7C)
loc_0043D7B4: var_E4 = Right$(var_CC, 6)
loc_0043D7C0: var_7C = Right$(var_CC, 6)
loc_0043D7CE: End If
loc_0043D7CE: End If
loc_0043D7EA: var_9C = vbNullString
loc_0043D819: var_D8 = ADODB.Recordset.Fields
loc_0043D847: var_3D4 = "dept"
loc_0043D879: ADODB.Recordset.ActiveConnection = var_3D0
loc_0043D8AE: var_E4 = var_DC
loc_0043D8E4: If Not (IsNull(var_DC)) Then
loc_0043D913: var_D8 = ADODB.Recordset.Fields
loc_0043D941: var_3D4 = "dept"
loc_0043D973: ADODB.Recordset.ActiveConnection = var_3D0
loc_0043D9B3: var_E4 = var_DC
loc_0043D9C3: var_9C = var_DC
loc_0043D9F3: var_EC = Len(var_9C)
loc_0043DA0A: If (var_EC > 9) Then
loc_0043DA1C: var_CC = CStr(var_9C)
loc_0043DA35: var_E4 = Right$(var_CC, 9)
loc_0043DA41: var_9C = Right$(var_CC, 9)
loc_0043DA4F: End If
loc_0043DA4F: End If
loc_0043DA68: var_6C = vbNullString
loc_0043DA97: var_D8 = ADODB.Recordset.Fields
loc_0043DAC5: var_3D4 = "city"
loc_0043DAF7: ADODB.Recordset.ActiveConnection = var_3D0
loc_0043DB2C: var_E4 = var_DC
loc_0043DB62: If Not (IsNull(var_DC)) Then
loc_0043DB91: var_D8 = ADODB.Recordset.Fields
loc_0043DBBF: var_3D4 = "city"
loc_0043DBF1: ADODB.Recordset.ActiveConnection = var_3D0
loc_0043DC2E: var_E4 = var_DC
loc_0043DC3E: var_6C = var_DC
loc_0043DC6B: var_EC = Len(var_6C)
loc_0043DC82: If (var_EC > 7) Then
loc_0043DC91: var_CC = CStr(var_6C)
loc_0043DCA7: var_E4 = Right$(var_CC, 7)
loc_0043DCB3: var_6C = Right$(var_CC, 7)
loc_0043DCC1: End If
loc_0043DCC1: End If
loc_0043DCC9: var_4C = vbNullString
loc_0043DCF8: var_D8 = ADODB.Recordset.Fields
loc_0043DD26: var_3D4 = "diff_year"
loc_0043DD58: ADODB.Recordset.ActiveConnection = var_3D0
loc_0043DD8D: var_E4 = var_DC
loc_0043DDC3: If Not (IsNull(var_DC)) Then
loc_0043DDF2: var_D8 = ADODB.Recordset.Fields
loc_0043DE20: var_3D4 = "diff_year"
loc_0043DE52: ADODB.Recordset.ActiveConnection = var_3D0
loc_0043DE82: var_DC = ADODB.Recordset.BOF
loc_0043DEB2: var_4C = var_DC
loc_0043DEE6: If Len(var_4C) > 4 Then
loc_0043DEF9: var_4C = Right$(var_4C, 4)
loc_0043DEFB: End If
loc_0043DEFB: End If
loc_0043DF33: var_D8 = ADODB.Recordset.Fields
loc_0043DF61: var_3D4 = "bal_diff"
loc_0043DF93: ADODB.Recordset.ActiveConnection = var_3D0
loc_0043DFC8: var_E4 = var_DC
loc_0043DFFE: If Not (IsNull(var_DC)) Then
loc_0043E02D: var_D8 = ADODB.Recordset.Fields
loc_0043E05B: var_3D4 = "bal_diff"
loc_0043E08D: ADODB.Recordset.ActiveConnection = var_3D0
loc_0043E0BD: var_DC = ADODB.Recordset.BOF
loc_0043E0EA: var_CC = var_DC
loc_0043E12E: End If
loc_0043E136: var_3F4 = vbNullString
loc_0043E13C: var_3D4 = vbNullString
loc_0043E1C2: var_404 = " | "
loc_0043E21D: var_424 = " | "
loc_0043E270: var_444 = " | "
loc_0043E2D6: var_464 = " | "
loc_0043E331: var_484 = " | "
loc_0043E37D: var_4A4 = " | "
loc_0043E38E: var_4B4 = var_4C
loc_0043E3A5: 00000004h = 00000004h - Len(var_4C)
loc_0043E3F1: var_4D4 = var_C4
loc_0043E437: 00000009h = 00000009h - Len(Format$(var_C4, "0.00"))
loc_0043E45F: var_3AC = "0.00"
loc_0043E47D: var_4F4 = var_C4
loc_0043E493: var_3B4 = Format$(var_C4, var_3AC)
loc_0043E506: var_1AC = vbNullString & Space(CLng(4 - Len(CInt(1) & vbNullString))) & CInt(1) & " | " & Space(CLng(6 - Len(var_B4))) & var_B4 & " | "
loc_0043E588: var_2BC = var_1AC & var_24 & Space(CLng(25 - Len(var_24))) & " | " & var_7C & Space(CLng(6 - Len(var_7C))) & " | " & var_9C & Space(CLng(9 - Len(var_9C)))
loc_0043E61E: var_3CC = var_2BC & " | " & var_6C & Space(CLng(7 - Len(var_6C))) & " | " & var_4C & Space(4) & " | " & Space(9) & Format$(var_C4, var_3AC)
loc_0043E74C: Print 1, var_3CC
loc_0043E76A: var_3D4 = var_C4
loc_0043E773: var_3D0 = var_C0
loc_0043E799: var_48 = " | " + var_C4
loc_0043E7CB: If (var_34 = var_A4) Then
loc_0043E7F4: var_eax = ADODB.Recordset.MoveLast
loc_0043E818: End If
loc_0043E845: var_34 = var_34 + 1
loc_0043E86D: var_eax = ADODB.Recordset.MoveNext
loc_0043E88F: GoTo loc_0043D01A
loc_0043E8A6: Print 1, "-------------------------------------------------------------------------------------------"
loc_0043E8E6: Print 1, "Total Employee :: " & CStr(var_A4)
loc_0043E978: Print 1, "Total Difference Amount :: " & Format$(var_48, "0.00")
loc_0043E9A8: End If
loc_0043E9AA: Close #1
loc_0043E9D8: var_D8 = Global.App
loc_0043EA02: var_CC = Global.Path
loc_0043EA44: var_E4 = "notepad " & var_CC & "\Summary.txt"
loc_0043EA92: End If
loc_0043EA9B: GoTo loc_0043EC2B
loc_0043EC2A: Exit Sub
loc_0043EC2B: 'Referenced from: 0043EA9B
loc_0043EC72: Exit Sub
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '43ECA0
loc_0043ECEC: If KeyCode = 27 Then
loc_0043ED16: Set var_18 = Me
loc_0043ED21: var_eax = Global.Unload var_18
loc_0043ED42: End If
loc_0043ED4A: GoTo loc_0043ED56
loc_0043ED55: Exit Sub
loc_0043ED56: 'Referenced from: 0043ED4A
End Sub
Private Sub txtTopNDifferences_KeyPress(KeyAscii As Integer) '43F1B0
loc_0043F1FF: If edi = 13 Then
loc_0043F21A: var_eax = cmdPrint.SetFocus
loc_0043F241: GoTo loc_0043F262
loc_0043F243: End If
loc_0043F249: setg dl
loc_0043F252: setl cl
loc_0043F257: If ecx = 0 Then GoTo loc_0043F262
loc_0043F25D: If cmdPrint.SetFocus = 8 Then GoTo loc_0043F262
loc_0043F262: 'Referenced from: 0043F241
loc_0043F26A: GoTo loc_0043F276
loc_0043F275: Exit Sub
loc_0043F276: 'Referenced from: 0043F26A
End Sub
Public Sub Proc_10_3_43ED80
Dim var_34 As TextBox
Dim var_24 As TextBox
loc_0043EE05: var_18 = txtTopNDifferences.Text
loc_0043EE2F: var_2C = var_18
loc_0043EE57: var_1C = CStr(Trim(var_18))
loc_0043EE67: txtTopNDifferences.Text = var_1C
loc_0043EECA: var_18 = txtTopNDifferences.Text
loc_0043EEFB: edi = Len(var_18) + 1
loc_0043EF10: If Len(var_18) + 1 Then
loc_0043EF46: var_34 = "Please enter any numbers..."
loc_0043EF9B: var_eax = txtTopNDifferences.SetFocus
loc_0043EFA5: If txtTopNDifferences.SetFocus >= 0 Then GoTo loc_0043F12A
loc_0043EFAB: GoTo loc_0043F118
loc_0043EFB0: End If
loc_0043EFC9: var_18 = txtTopNDifferences.Text
loc_0043F000: var_1C = txtTopNDifferences.Text
loc_0043F02E: fcomp real8 ptr [004016C0h]
loc_0043F039: If Err.Number Then
loc_0043F040: GoTo loc_0043F044
loc_0043F042: End If
loc_0043F044: 'Referenced from: 0043F040
loc_0043F058: setg dl
loc_0043F081: If var_24 Then
loc_0043F0B7: var_34 = "Please enter any valid numbers..."
loc_0043F10C: var_eax = txtTopNDifferences.SetFocus
loc_0043F116: If txtTopNDifferences.SetFocus < 0 Then
loc_0043F118: 'Referenced from: 0043EFAB
loc_0043F124: txtTopNDifferences.SetFocus = CheckObj(esi, var_00408F54, 516)
loc_0043F12A: End If
loc_0043F139: GoTo loc_0043F186
loc_0043F13B: End If
loc_0043F148: GoTo loc_0043F186
loc_0043F185: Exit Sub
loc_0043F186: 'Referenced from: 0043F139
End Sub
'Object: frmPrintSummaryFromTo
Private Sub txtFromSNo_KeyPress(KeyAscii As Integer) '442100
loc_0044214F: If edi = 13 Then
loc_0044216A: var_eax = txtToSNo.SetFocus
loc_00442191: GoTo loc_004421B2
loc_00442193: End If
loc_00442199: setg dl
loc_004421A2: setl cl
loc_004421A7: If ecx = 0 Then GoTo loc_004421B2
loc_004421AD: If txtToSNo.SetFocus = 8 Then GoTo loc_004421B2
loc_004421B2: 'Referenced from: 00442191
loc_004421BA: GoTo loc_004421C6
loc_004421C5: Exit Sub
loc_004421C6: 'Referenced from: 004421BA
End Sub
Private Sub txtToSNo_KeyPress(KeyAscii As Integer) '4421F0
loc_0044223F: If edi = 13 Then
loc_0044225A: var_eax = cmdPrint.SetFocus
loc_00442281: GoTo loc_004422A2
loc_00442283: End If
loc_00442289: setg dl
loc_00442292: setl cl
loc_00442297: If ecx = 0 Then GoTo loc_004422A2
loc_0044229D: If cmdPrint.SetFocus = 8 Then GoTo loc_004422A2
loc_004422A2: 'Referenced from: 00442281
loc_004422AA: GoTo loc_004422B6
loc_004422B5: Exit Sub
loc_004422B6: 'Referenced from: 004422AA
End Sub
Private Sub cmdPrint_Click() '43F2A0
Dim var_E8 As Variant
Dim var_EC As ADODB.Recordset
loc_0043F4E4: var_eax = frmPrintSummaryFromTo.Proc_11_4_4418B0(Me, var_520, edi)
loc_0043F4F1: If var_520 Then
loc_0043F51A: var_DC = txtFromSNo.Text
loc_0043F55E: var_28 = Val(var_DC)
loc_0043F5A1: var_DC = txtToSNo.Text
loc_0043F610: var_E8 = Global.App
loc_0043F63A: var_DC = Global.Path
loc_0043F679: Open var_DC & "\Summary.txt" For Output As #1 Len = -1
loc_0043F6B9: var_404 = CInt(Val(var_DC))
loc_0043F6C8: var_3E4 = "Select gpf_no, name, designation, dept, city, bal_diff, diff_year From EmpMasterTable Where sno >= "
loc_0043F6D8: var_3F4 = " And sno <="
loc_0043F6F2: var_414 = " Order By bal_diff Desc"
loc_0043F713: var_10C = "Select gpf_no, name, designation, dept, city, bal_diff, diff_year From EmpMasterTable Where sno >= " & var_28 & " And sno <="
loc_0043F745: ecx = var_10C & CInt(Val(var_DC)) & " Order By bal_diff Desc"
loc_0043F7A0: var_524 = ADODB.Recordset.State
loc_0043F7CB: If var_524 = 1 Then
loc_0043F7F3: var_eax = ADODB.Recordset.Close
loc_0043F817: End If
loc_0043F83F: ADODB.Recordset.CursorLocation = CInt(3)
loc_0043F923: var_eax = Unknown_VTable_Call[ecx+000000A0h]
loc_0043F964: var_48 = CInt(1)
loc_0043F997: var_524 = ADODB.Recordset.RecordCount
loc_0043F9BB: If var_524 > 0 Then
loc_0043F9D1: 00000058h = 00000058h - Len("Calculation of GPF Interest")
loc_0043F9F8: If var_443000 = 0 Then
loc_0043FA00: GoTo loc_0043FA13
loc_0043FA02: End If
loc_0043FA13: 'Referenced from: 0043FA00
loc_0043FA46: var_3E4 = "Calculation of GPF Interest"
loc_0043FA66: Print 1, Space(CLng((var_588 / 2))) & "Calculation of GPF Interest"
loc_0043FA8A: Print 1, " Summary Report of Difference "
loc_0043FB22: Print 1, " Print Date : " & Format$(Now, "dd/mm/yyyy")
loc_0043FB63: Print 1, "-------------------------------------------------------------------------------------------"
loc_0043FB71: Print 1, " SN. | GPF | Employee Name | Design | Dept. | City | YEAR | Diff. "
loc_0043FB82: Print 1, "-------------------------------------------------------------------------------------------"
loc_0043FB87:
loc_0043FBB0: var_520 = ADODB.Recordset.EOF
loc_0043FBD0: If var_520 = 0 Then
loc_0043FBF2: var_C4 = vbNullString
loc_0043FC21: var_E8 = ADODB.Recordset.Fields
loc_0043FC4F: var_3E4 = "gpf_no"
loc_0043FC81: ADODB.Recordset.ActiveConnection = var_3E0
loc_0043FCAF: var_F4 = var_EC
loc_0043FCEC: If Not (IsNull(var_EC)) Then
loc_0043FD1B: var_E8 = ADODB.Recordset.Fields
loc_0043FD49: var_3E4 = "gpf_no"
loc_0043FD7B: ADODB.Recordset.ActiveConnection = var_3E0
loc_0043FDCB: var_C4 = var_EC
loc_0043FDFB: var_FC = Len(var_C4)
loc_0043FE12: If (var_FC > 6) Then
loc_0043FE49: var_C4 = Right$(CStr(var_C4), 6)
loc_0043FE57: End If
loc_0043FE57: End If
loc_0043FE70: var_38 = vbNullString
loc_0043FE9F: var_E8 = ADODB.Recordset.Fields
loc_0043FECD: var_3E4 = "name"
loc_0043FEFF: ADODB.Recordset.ActiveConnection = var_3E0
loc_0043FF34: var_F4 = var_EC
loc_0043FF6A: If Not (IsNull(var_EC)) Then
loc_0043FF99: var_E8 = ADODB.Recordset.Fields
loc_0043FFC7: var_3E4 = "name"
loc_0043FFF9: ADODB.Recordset.ActiveConnection = var_3E0
loc_00440046: var_38 = var_EC
loc_00440073: var_FC = Len(var_38)
loc_0044008A: If (var_FC > 25) Then
loc_004400BB: var_38 = Right$(CStr(var_38), 25)
loc_004400C9: End If
loc_004400C9: End If
loc_004400E5: var_90 = vbNullString
loc_00440114: var_E8 = ADODB.Recordset.Fields
loc_00440142: var_3E4 = "designation"
loc_00440174: ADODB.Recordset.ActiveConnection = var_3E0
loc_004401A9: var_F4 = var_EC
loc_004401DF: If Not (IsNull(var_EC)) Then
loc_0044020E: var_E8 = ADODB.Recordset.Fields
loc_0044023C: var_3E4 = "designation"
loc_0044026E: ADODB.Recordset.ActiveConnection = var_3E0
loc_004402BE: var_90 = var_EC
loc_004402EE: var_FC = Len(var_90)
loc_00440305: If (var_FC > 6) Then
loc_0044033C: var_90 = Right$(CStr(var_90), 6)
loc_0044034A: End If
loc_0044034A: End If
loc_00440366: var_B0 = vbNullString
loc_00440395: var_E8 = ADODB.Recordset.Fields
loc_004403C3: var_3E4 = "dept"
loc_004403F5: ADODB.Recordset.ActiveConnection = var_3E0
loc_0044042A: var_F4 = var_EC
loc_00440460: If Not (IsNull(var_EC)) Then
loc_0044048F: var_E8 = ADODB.Recordset.Fields
loc_004404BD: var_3E4 = "dept"
loc_004404EF: ADODB.Recordset.ActiveConnection = var_3E0
loc_0044053F: var_B0 = var_EC
loc_0044056F: var_FC = Len(var_B0)
loc_00440586: If (var_FC > 9) Then
loc_004405BD: var_B0 = Right$(CStr(var_B0), 9)
loc_004405CB: End If
loc_004405CB: End If
loc_004405E4: var_80 = vbNullString
loc_00440613: var_E8 = ADODB.Recordset.Fields
loc_00440641: var_3E4 = "city"
loc_00440673: ADODB.Recordset.ActiveConnection = var_3E0
loc_004406A8: var_F4 = var_EC
loc_004406DE: If Not (IsNull(var_EC)) Then
loc_0044070D: var_E8 = ADODB.Recordset.Fields
loc_0044073B: var_3E4 = "city"
loc_0044076D: ADODB.Recordset.ActiveConnection = var_3E0
loc_004407BA: var_80 = var_EC
loc_004407E7: var_FC = Len(var_80)
loc_004407FE: If (var_FC > 7) Then
loc_0044082F: var_80 = Right$(CStr(var_80), 7)
loc_0044083D: End If
loc_0044083D: End If
loc_00440845: var_60 = vbNullString
loc_00440874: var_E8 = ADODB.Recordset.Fields
loc_004408A2: var_3E4 = "diff_year"
loc_004408D4: ADODB.Recordset.ActiveConnection = var_3E0
loc_00440909: var_F4 = var_EC
loc_0044093F: If Not (IsNull(var_EC)) Then
loc_0044096E: var_E8 = ADODB.Recordset.Fields
loc_0044099C: var_3E4 = "diff_year"
loc_004409CE: ADODB.Recordset.ActiveConnection = var_3E0
loc_004409FE: var_EC = ADODB.Recordset.BOF
loc_00440A2E: var_60 = var_EC
loc_00440A62: If Len(var_60) > 4 Then
loc_00440A75: var_60 = Right$(var_60, 4)
loc_00440A77: End If
loc_00440A77: End If
loc_00440AAF: var_E8 = ADODB.Recordset.Fields
loc_00440ADD: var_3E4 = "bal_diff"
loc_00440B0F: ADODB.Recordset.ActiveConnection = var_3E0
loc_00440B44: var_F4 = var_EC
loc_00440B7A: If Not (IsNull(var_EC)) Then
loc_00440BA9: var_E8 = ADODB.Recordset.Fields
loc_00440BD7: var_3E4 = "bal_diff"
loc_00440C09: ADODB.Recordset.ActiveConnection = var_3E0
loc_00440C39: var_EC = ADODB.Recordset.BOF
loc_00440C66: var_DC = var_EC
loc_00440CAA: End If
loc_00440CB2: var_404 = vbNullString
loc_00440CB8: var_3E4 = vbNullString
loc_00440D3E: var_414 = " | "
loc_00440D99: var_434 = " | "
loc_00440DEF: var_454 = " | "
loc_00440E55: var_474 = " | "
loc_00440EB0: var_494 = " | "
loc_00440EFC: var_4B4 = " | "
loc_00440F0D: var_4C4 = var_60
loc_00440F24: 00000004h = 00000004h - Len(var_60)
loc_00440F70: var_4E4 = var_D4
loc_00440FB6: 00000009h = 00000009h - Len(Format$(var_D4, "0.00"))
loc_00440FDE: var_3BC = "0.00"
loc_00440FFC: var_504 = var_D4
loc_00441012: var_3C4 = Format$(var_D4, var_3BC)
loc_00441085: var_1BC = vbNullString & Space(CLng(4 - Len(CInt(1) & vbNullString))) & CInt(1) & " | " & Space(CLng(6 - Len(var_C4))) & var_C4 & " | "
loc_0044110A: var_2CC = var_1BC & var_38 & Space(CLng(25 - Len(var_38))) & " | " & var_90 & Space(CLng(6 - Len(var_90))) & " | " & var_B0 & Space(CLng(9 - Len(var_B0)))
loc_004411A0: var_3DC = var_2CC & " | " & var_80 & Space(CLng(7 - Len(var_80))) & " | " & var_60 & Space(4) & " | " & Space(9) & Format$(var_D4, var_3BC)
loc_004412CE: Print 1, var_3DC
loc_004412EC: var_3E4 = var_D4
loc_004412F5: var_3E0 = var_D0
loc_0044131B: var_5C = var_5C + var_D4
loc_0044134E: var_48 = var_48 + 1
loc_00441376: var_eax = ADODB.Recordset.MoveNext
loc_00441398: GoTo loc_0043FB87
loc_004413AF: Print 1, "-------------------------------------------------------------------------------------------"
loc_004413CD: var_3F4 = "Total Employee :: "
loc_00441409: Print 1, "Total Employee :: " & var_48 - 1
loc_00441497: Print 1, "Total Difference Amount :: " & Format$(var_5C, "0.00")
loc_004414C7: End If
loc_004414C9: Close #1
loc_004414F7: var_E8 = Global.App
loc_00441521: var_DC = Global.Path
loc_00441563: var_F4 = "notepad " & var_DC & "\Summary.txt"
loc_004415B1: End If
loc_004415BA: GoTo loc_0044174A
loc_00441749: Exit Sub
loc_0044174A: 'Referenced from: 004415BA
loc_00441799: Exit Sub
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '4417D0
loc_0044181C: If KeyCode = 27 Then
loc_00441846: Set var_18 = Me
loc_00441851: var_eax = Global.Unload var_18
loc_00441872: End If
loc_0044187A: GoTo loc_00441886
loc_00441885: Exit Sub
loc_00441886: 'Referenced from: 0044187A
End Sub
Public Sub Proc_11_4_4418B0
Dim var_20 As TextBox
Dim var_34 As TextBox
Dim var_18 As TextBox
Dim var_24 As TextBox
loc_00441935: var_18 = txtFromSNo.Text
loc_0044195F: var_2C = var_18
loc_00441987: var_1C = CStr(Trim(var_18))
loc_00441997: txtFromSNo.Text = var_1C
loc_00441A10: var_18 = txtToSNo.Text
loc_00441A34: var_2C = var_18
loc_00441A60: var_1C = CStr(Trim(0))
loc_00441A70: txtToSNo.Text = var_1C
loc_00441AD3: var_18 = txtFromSNo.Text
loc_00441B04: ebx = Len(var_18) + 1
loc_00441B19: If Len(var_18) + 1 Then
loc_00441B42:
loc_00441B4F: var_34 = "Please enter From S.No..."
loc_00441B98:
loc_00441BA4: var_eax = txtFromSNo.SetFocus
loc_00441BAA:
loc_00441BAE: If txtFromSNo.SetFocus >= 0 Then GoTo loc_00442083
loc_00441BB4: GoTo loc_00442071
loc_00441BB9: End If
loc_00441BD2: var_18 = txtFromSNo.Text
loc_00441C09: var_1C = txtFromSNo.Text
loc_00441C37: fcomp real8 ptr [004016C0h]
loc_00441C42: If Err.Number Then
loc_00441C49: GoTo loc_00441C4D
loc_00441C4B: End If
loc_00441C4D: 'Referenced from: 00441C49
loc_00441C5E: setg cl
loc_00441C8A: If var_24 Then
loc_00441CA8: var_6C = "Please enter any valid S.No...."
loc_00441CAF: GoTo loc_00441B42
loc_00441CB4: End If
loc_00441CCD: var_18 = txtToSNo.Text
loc_00441CFE: ebx = Len(var_18) + 1
loc_00441D13: If Len(var_18) + 1 Then
loc_00441D49: var_34 = "Please enter To S.No..."
loc_00441D9E: var_eax = txtToSNo.SetFocus
loc_00441DA4: GoTo loc_00441BAA
loc_00441DA9: End If
loc_00441DC2: var_18 = txtToSNo.Text
loc_00441DF9: var_1C = txtToSNo.Text
loc_00441E27: fcomp real8 ptr [004016C0h]
loc_00441E32: If Err.Number Then
loc_00441E39: GoTo loc_00441E3D
loc_00441E3B: End If
loc_00441E3D: 'Referenced from: 00441E39
loc_00441E4E: setg cl
loc_00441E7A: If var_24 Then
loc_00441EAC: var_34 = "Please enter any valid S.No...."
loc_00441EF5: GoTo loc_00441B98
loc_00441EFA: End If
loc_00441F13: var_1C = txtToSNo.Text
loc_00441F5A: var_18 = txtFromSNo.Text
loc_00441F9A: fcomp real8 ptr var_DC
loc_00441FA5: If Err.Number Then
loc_00441FAC: GoTo loc_00441FB0
loc_00441FAE: End If
loc_00441FB0: 'Referenced from: 00441FAC
loc_00441FDA: If var_20 Then
loc_00442010: var_34 = "Please enter To SNo. after the From S.No."
loc_00442065: var_eax = txtToSNo.SetFocus
loc_0044206F: If txtToSNo.SetFocus < 0 Then
loc_00442071: 'Referenced from: 00441BB4
loc_0044207D: txtToSNo.SetFocus = CheckObj(esi, var_00408F54, 516)
loc_00442083: End If
loc_00442092: GoTo loc_004420DF
loc_00442094: End If
loc_004420A1: GoTo loc_004420DF
loc_004420DE: Exit Sub
loc_004420DF: 'Referenced from: 00442092
End Sub
Write, Run & Share VB.net code online using OneCompiler's VB.net online compiler for free. It's one of the robust, feature-rich online compilers for VB.net language, running on the latest version 16. Getting started with the OneCompiler's VB.net compiler is simple and pretty fast. The editor shows sample boilerplate code when you choose language as VB.net. OneCompiler also has reference programs, where you can look for the sample code to get started with.
OneCompiler's VB.net online editor supports stdin and users can give inputs to programs using the STDIN textbox under the I/O tab. Following is a sample VB.net program which takes name as input and prints hello message with your name.
Public Module Program
Public Sub Main(args() As string)
Dim name as String = Console.ReadLine() ' Reading input from STDIN
Console.WriteLine("Hello " & name) ' Writing output to STDOUT
End Sub
End Module
Visual Basic is a event driven programming language by Microsoft, first released in the year 1991.
Variable is a name given to the storage area in order to identify them in our programs.
Simple syntax of Variable declaration is as follows
Dim variableName [ As [ New ] dataType ] [ = initializer ]
variableName = value
If condition-expression Then
'code
End If
If(conditional-expression)Then
'code if the conditional-expression is true
Else
'code if the conditional-expression is false
End If
If(conditional-expression)Then
'code if the above conditional-expression is true
Else If(conditional-expression) Then
'code if the above conditional-expression is true
Else
'code if the above conditional-expression is false
End If
If(conditional-expression)Then
'code if the above conditional-expression is true
If(conditional-expression)Then
'code if the above conditional-expression is true
End If
End If
Select [ Case ] expression
[ Case expressionlist
'code ]
[ Case Else
'code ]
End Select
For counter [ As datatype ] = begin To end [ Step step ]
'code
[ Continue For ]
'code
[ Exit For ]
'code
Next [ counter ]
For Each element [ As datatype ] In group
'code
[ Continue For ]
'code
[ Exit For ]
'code
Next [ element ]
While conditional-expression
'Code
[ Continue While ]
'Code
[ Exit While ]
'Code
End While
Do { While | Until } conditional-expression
'Code
[ Continue Do ]
'Code
[ Exit Do ]
'Code
Loop
Do
'Code
[ Continue Do ]
'Code
[ Exit Do ]
'Code
Loop { While | Until } conditional-expression
Procedure is a sub-routine which contains set of statements. Usually Procedures are written when multiple calls are required to same set of statements which increases re-usuability and modularity.
Procedures are of two types.
Functions return a value when they are called.
[accessModifiers] Function functionName [(parameterList)] As returnType
'code
End Function
Sub-procedures are similar to functions but they don't return any value.
Sub ProcedureName (parameterList)
'Code
End Sub