the string is sent to the edit window along with the line number (as a pointer) in TransWindow ’s… Next, I’ll make this addition to CheckWindow ’s Open event handler to set the window’s title… The complete Transaction method follows: dim s As string // update variables transdate = ckDate.text… iscleared = true Debit = 0 Else iscleared = false Debit = val(ckamount.text) End // Build record string s… = transdate + chr(9) s = s + str(checkNr) + chr(9) if iscleared then s = s + "x" + chr(9) Else s = s… + chr(9) End s = s + Pay.text + chr(9) s = s + str(Debit) + chr(9) // Update Check Register window transWindow.addTransRow… (s, ntransactions) ntransactions = ntransactions + 1 testEntryDate(ntransactions)  //ck date & recompute… Balance ListHasChanged = True The complimentary completeEdit method is: dim s As string if pay.text=… void" then iscleared = true Debit = 0 else Debit = val(ckamount.text) end if // Build record string s… = ckDate.text + chr(9) s = s + ckNr + chr(9) if iscleared then s = s + "x" + chr(9) else s = s + chr(… 9) end s = s + Pay.text + chr(9) s = s + str(Debit) + chr(9) // Update Check Register window transWindow.addTransRow… (s, linePointer) testEntryDate(linePointer+1) ListHasChanged = True self.Close In both of these methods… the “void” case is handled and then a record string is constructed and handed off to transWindow ’s… S o it seems only right to create one for this application too. First, I add the menu item.

Charters, taken with a Canon PowerShot S-500 digital camera.) Dr.… Charters, taken with a Canon PowerShot S-500 digital camera.)… Charters, taken with a Canon PowerShot S-500 digital camera.)… Charters, taken with a Canon PowerShot S-500 digital camera.)

the display: // Convert string to double dim n As Double dim r As  String dim i as Integer i = inStr(s,… chr(44))  //Find comma in string If i = 0 then  // No comma here n = val(s) else  // Comma here; replace… it with a null s = Replace(s, chr(44), "") n = val(s) End Return n This function uses the RB command… "inStr" to search the string "s" for a comma represented by the ASCII chr(44).… accomplishes tasks 2 and 3: dim d as new date  // A new date is set to the present date and time dim s… As String s = me.Text // set to the entered date // is entered date missing the year?… if inStr(3, s, "/") = 0 then  // begin search after the 3rd character s = s + "/" + str(d.Year) //… add year End if ParseDate(s, d) = false then  //format and ck date msgBox "That is not a valid date"… the payeeList Open Event Handler: dim payeeFile As FolderItem dim instream As TextInputStream dim s… inStream = payeeFile.openastextFile while not instream.eof   // Keep executing until end of file s… = instream.readLine  // Read a line of file PayeeList.AddRow s  // Add it to PayeeList nPayees = nPayees… OKButton The third subroutine, for the OK button, is the Action Event Handler: dim i as integer dim s… a Check Amount" Return End if //update variables Debit = val(ckamount.text) // Build record string s… = ckDate.text + chr(9) s = s + str(nextCkNr) + chr(9) s = s + chr(9)  // space for check-cleared marker… s = s + pay.Text + chr(9)  // Payee s = s + str(Debit)  // Check amount s = s + chr(9) + ""  // Space… for credit // Update Check Register window transWindow.addTransRow(s, ntransactions) ntransactions =

/ i is week of month, j is day of week // i = 0 means a simple date input and j = date of month dim s… should be next month d.day = 1 d = addMonth(d) d.day = d.day + dayToDate(d, i, j) - 1 end if end if s… = d.shortdate return s To begin, two new dates are defined ( d and today ) and by virtue of them… the automatic deposit data out to the Preferences file. dim i As integer dim amt As Double dim s… As string redim autoDepList(0) for i = 1 to nAutoDeposits s = autoDepReview.cell(i - 1, 0) + chr(9) … // Depositor amt = StrToVal(autoDepReview.cell(i - 1, 3)) s = s + str(amt) + chr(9)  // Amount s = s… s = s + autoDepReview.cell(i - 1, 4) + chr(9)  // Week s = s + autoDepReview.cell(i - 1, 5) + chr(9) … // Day s = s + autoDepReview.cell(i - 1, 2)   // Next Date autoDepList.append s Next This method first… code that is added to the existing readPrefs method described previously: // get autoDeposit data s… = instream.readLine nAutoDeposits = val(NthField(s, chr(9), 2)) if nAutoDeposits > 0 then autoDepositFlag… The autoDepCheck method: dim t, s As string dim i, j, k As integer dim d As new date for i = 1 to nAutoDeposits… chr(9), 6)  // Trigger date if DateSeconds(t) <= d.totalseconds then // update Check Register window s… = t + chr(9) + chr(9) + chr(9) s = s + NthField(autoDepList(i), chr(9), 1) + chr(9) + chr(9) s = s +… NthField(autoDeplist(i), chr(9), 2)  // Amount addTransRow(s, ntransactions) ntransactions = ntransactions

depositor file and fills the listBox: dim depositorFile As FolderItem dim instream As TextInputStream dim s… List if depositorFile.exists then inStream = depositorFile.openastextFile while not instream.eof s… = instream.readLine  //read Depositor list me.AddRow  s ndepositors = ndepositors + 1 wend else  //… depamount.setfocus OKButton The only subroutine for this button is the Action Event Handler: dim i as integer dim s… Deposit Amount" Return End if // update variables Credit = val(depamount.text) // Build record string s… = depDate.text + chr(9) + chr(9) + chr(9) s = s + RcvdFm.text + chr(9) + chr(9) s = s + str(Credit) /… / Update Check Register window transWindow.addTransRow(s, ntransactions) ntransactions = ntransactions… Here is the code: dim i as integer dim s As string If Datefield.checkEnteredDate = false then return… must enter an Amount" Return End // Update variables Debit = val(amount.text) // Build record string s… = dateField.text + chr(9) + chr(9) + chr(9) s = s + "ATM" + chr(9) s = s + str(Debit) // Update Check… Register window transWindow.addTransRow(s, ntransactions) ntransactions = ntransactions + 1 findBalance… It returns a string record for writing to disk. dim record(5) as String  // A six element array dim s… Capture the Balance end // Convert the array into a string with // a tab - chr(9) - as the delimiter. s… = Join(Record, chr(9)) Return s I want to accommodate future additions to the application, so I have

the first case and is called by the transWindow initialize method above. dim f As FolderItem dim s… preferencesFolder.child("Check Register pointer") if f <> nil and f.exists then inStream = f.openAsTextFile s… = instream.ReadAll dataFilefolder = DocumentsFolder.GetRelative(s) inStream.Close Else // file pointer… requested data in NewAcct , the OK button action handler executes the following: dim d as new date dim s,… testEntries then return d.year = d.year-1 d.month = 12 d.day = 31 eoyDate = d.shortdate // Build record s… = eoyDate + chr(9) s = s + chr(9) + chr(9) s = s + "Brought Forward" + chr(9) + chr(9) s = s + newAmount.text… TransWindow.addTransRow(s, 0) nTransactions = nTransactions + 1 nextcknr = val(newCkNr.text) if addPayees.value… The writeFilePointer method: dim s As String dim f As FolderItem s = dataFileFolder.GetSaveInfo(DocumentsFolder… = preferencesFolder.child("Bank Checking pointer") outstream = f.createTextFile outstream.writeLine s

Up to gallery daddyshome.jpg Steve Lemon, "Daddy"s Home." Third Place, Novice - People.

preference file when the application opens: dim f As folderItem dim instream As TextInputStream dim s… flag f = preferencesFolder.child("Bank Checking prefs") if f.exists then inStream = f.openastextFile s… = inStream.readLine if NthField(s, chr(9), 2) = "true" then manyCheck = true instream.Close Else prefsHaveChanged… of you who have persevered with these articles from the beginning may recall that transWindow 's… The OK button action handler follows: dim i, j as integer dim s, vDate As string for i = 1 to ntransactions… then // Build a replacement line; first get original date vDate = TransWindow.transList.cell(j, 1) s… = buildVoidLine(vDate, ckNr.text) isEdit = true TransWindow.addTransRow(s, j) else // Entry is the next… check number s = buildVoidLine(today.shortDate, ckNr.text) TransWindow.addTransRow(s, ntransactions)… Then, that date and the check number are sent to the new method, buildVoidLine: dim s As string s =… vDate + chr(9) s = s + ckNr + chr(9) // check nr s = s + "x" + chr(9)  //  check considered cleared… s = s + "Void" + chr(9) s = s +  "0"  // debit return s This method constructs a record in the same format

needed data from the 8150, and to let the G4 be live and available on the network: 1) Removed G4's… 8) Network copied 1 GB of campus graphics file data from 8150 to G4 & also grabbed the 8150's… Users & Groups data files, placing them in the G4's Preferences; created a share point in the G4… Because we had copied the 8150's little Users & Groups files and had chosen an identical folder

August 1982's Version 1.1 was a purely Apple product.… Access ///'s other major feature is its "scripting" capability (3.2x only).… Access ///'s script language is powerful.… Access ///'s major problem is that its documentation has not been completely in a single source since