Automates the transactions in the Payment Calendar in Microsoft Money v5.0 under Win95

Keywords:  Microsoft Money

Designed for Microsoft Money v5.0 under Win95. Automates the transactions in the Payment Calendar when they come due. I use it to enter my prepaid rent checks in to my Account Register overnight on the first of every month. Not designed for online use (I dunno what it'll do).

;       AutoMoney.wbt - automates the Payment Calendar in Microsoft Money 97.
;       Released to the public domain by Rik Blok , 1997.
MoneyApp="C:\Program Files\Microsoft Money\MSMONEY.EXE"
MoneyWin="~Microsoft Money"
twiddle=5               ; time to twiddle your thumbs

; parameter checking
Terminate(param0 <> 1, "AutoMoney",'Usage: AutoMoney ')
file=param1
Terminate(!FileExist(file), "AutoMoney",'Usage: AutoMoney ')
WinTitle("","AutoMoney - %file%")

; close MS Money if running
If AppExist(MoneyApp)
        WinClose(MoneyWin)
        TimeDelay(twiddle)
EndIf

; open file with MS Money
Run(MoneyApp,file)
TimeDelay(twiddle)

; switch to Payment Calendar
SendKey("!gp")                  ; Goto|Payment Calendar
SendKey("{HOME}")               ; go to top of list

; check each transaction listed (assume ordered by date)
Today=TimeYmdHms()
Done=@FALSE
While !Done
        TimeDelay(twiddle)
        SendKey("!i")                   ; edit current transaction
        SendKey("{TAB}^c")              ; select date and copy to clipboard
        TimeDelay(1)
        SendKey("~")                    ; close edit window
        Date = ClipGet()                ; read transaction date from clipboard
        GoSub ConvertDate               ; convert to YY:MM:DD
        
        ; if past due or due today then enter it!
        ; Assumes transactions sorted by date and
        ; will be deleted from Payment Calendar when entered.
        ; Note: this line generated an error once on Feb. 13/1997
        If TimeDiffDays(Date,Today) < 1
                SendKey("!eo")          ; Edit|Enter Only This One
                SendKey("~")            ; Enter
        Else
                Done=@TRUE
        EndIf
EndWhile

; exit Money
TimeDelay(twiddle)
WinClose(MoneyWin)

Exit

:ConvertDate
; converts "m/d/yy" to "YY:MM:DD"
        y=ItemExtract(3,Date,"/")
        m=ItemExtract(1,Date,"/")
        d=ItemExtract(2,Date,"/")
        ; prefix zeroes
        If StrLen(m)==1 Then m=StrCat("0",m)
        If StrLen(d)==1 Then d=StrCat("0",d)
        ;merge
        Date=StrCat(y,":",m,":",d)
        Drop(y,m,d)
Return

Article ID:   W13766

Filename:   Automate Transactions with MS Money 5.txt

File Created: 1999:04:15:16:56:14

Last Updated: 1999:04:15:16:56:14

	Deltree Examples
	Detect Keyboard Tricks
	DHCP
	Dialogs
	Encryption
	Event Logs
	File Version and Dir Mgmt
	Games
	HTML
	MS Access
	Network
	NSLookup
	Registry
	Syntax Checker
	System Information
	Telnet

Database Search

TechHome

Automates the transactions in the Payment Calendar in Microsoft Money v5.0 under Win95