Hi. At my organization, we're currently using an older version of Winbatch on Windows XP SP3. We have used Winbatch to write a LOT of process scripts to automate our document flows into and out of various applications, such as Excel. It has worked well for years. We will be looking at getting a newer version of Winbatch when we move our desktop standard to Windows 7 later this year. We are currently using PopMenu 97D and WIL Interpeter 2.4dpb (like I said, OLD).
We have had a weird issue come up with one user, and I was curious if anyone had any ideas what might be causing it. We have a script (code shown below) that runs normally except for a couple of users. The script opens a dialog box that is supposed to wait until the user inputs some information. But for these two users, the box minimizes to the task bar after a few seconds and then cannot be opened again. The process just hangs until I kill it. Any ideas why this might happen?
Any suggestions would be appreciated.
Thanks.
; P:\Batch\PACL.wbt - Portfolio Appraisal & Cash Ledger PDFs to P:\Reports - PED 5/25/07
acrobat = "C:\Program Files\Adobe\Acrobat\Acrobat.exe"
apx = "http://apxapp/apx/ActivitySummary.aspx"
iebrowser = "C:\Program Files\Internet Explorer\IEXPLORE.EXE"
reppath = "P:\Reports\"
:retype
apxaccount = StrLower(AskLine("Portfolio Appraisal & Cash Ledger PDFs", "Enter account code:", ""))
If StrSub(apxaccount,1,1) == "+"
char3 = StrSub(apxaccount,3,1)
char4 = StrSub(apxaccount,4,1)
char5 = StrSub(apxaccount,5,1)
char6 = StrSub(apxaccount,6,1)
char7 = StrSub(apxaccount,7,1)
char8 = StrSub(apxaccount,8,1)
char9 = StrSub(apxaccount,9,1)
Switch StrLen(apxaccount)
Case 4
account = StrCat(char3,char4)
Break
Case 5
account = StrCat(char3,char4,char5)
Break
Case 6
account = StrCat(char3,char4,char5,char6)
Break
Case 7
account = StrCat(char3,char4,char5,char6,char7)
Break
Case 8
account = StrCat(char3,char4,char5,char6,char7,char8)
Break
Case 9
account = StrCat(char3,char4,char5,char6,char7,char8,char9)
Break
EndSwitch
account = StrUpper(account)
apxaccount = StrCat("{+}@",StrLower(account))
If account == "SPELALL" Then account = "SPEL"
If account == "VATOT" Then account = "VA"
Else
account = StrUpper(apxaccount)
EndIf
enddate = AskLine("Portfolio Appraisal & Cash Ledger PDFs", "Enter month end date (MMDDYY):", "")
Delay(8)
; Parse end date
edmonth = StrSub(enddate,1,2)
edday = StrSub(enddate,3,2)
edyear = StrSub(enddate,5,2)
edcent = "20"
begindate = "%edmonth%01%edyear%"
appfiledate = "%edcent%%edyear%_%edmonth%_%edday%" ; Like 2007_04_30
cashfiledate = "%edcent%%edyear%_%edmonth%" ; Like 2007_04
If !DirExist(StrCat(reppath,account,"\Recs\Appraisals"))
makedir = AskYesNo("New Account?", StrCat(reppath,account,"\Recs\Appraisals doesn't exist. Create it?"))
If makedir ==@YES
DirMake(StrCat(reppath,account,"\Recs\Appraisals"))
DirMake(StrCat(reppath,account,"\Recs\Cash Ledgers"))
EndIf
If makedir ==@NO
tryagain = AskYesNo("Try Again?","")
If tryagain ==@YES
GoTo retype
Else
Exit
EndIf
EndIf
EndIf
appfile = StrCat(reppath,account,"\Recs\Appraisals\AJO_",appfiledate,"_Portfolio_Appraisal_",account,".pdf")
cashfile = StrCat(reppath,account,"\Recs\Cash Ledgers\AJO_",cashfiledate,"_Cash_Ledger_",account,".pdf")
If FileExist(appfile)
overapp = AskYesNo("File Exists","%appfile% exists. Overwrite it?")
If overapp ==@NO Then GoTo docashledger
FileDelete(appfile)
EndIf
If WinExist("Activities") == @FALSE
Run(iebrowser, apx)
Delay(7)
EndIf
WinActivate("Activities")
Delay(3)
SendKey("^;")
Delay(3)
SendKey("m")
Delay(3)
SendKey("rpa")
Delay(7)
SendKey(apxaccount)
SendKey("{TAB}")
Delay(1)
SendKey(enddate)
Delay(1)
SendKey("{ENTER}")
Delay(5)
WinActivate("Appraisal")
SendKey("^p")
Delay(3)
SendKey("Adobe{ENTER}")
Delay(5)
SendKey(appfile)
SendKey("{ENTER}")
Delay(7)
WinClose("Appraisal")
:docashledger
If FileExist(cashfile)
;overcash = AskYesNo("File Exists","%cashfile% exists. Overwrite it?") ; Always overwrite previous Cash Ledger, to keep in synch with Appraisal.
;If overcash ==@NO Then Exit
FileDelete(cashfile)
EndIf
;If WinExist("Activities") == @FALSE
; Run(iebrowser, apx)
; Delay(7)
;EndIf
WinActivate("Activities")
Delay(3)
WinActivate("Activities")
Delay(4)
SendKey("^;")
Delay(4)
SendKey("m")
Delay(3)
SendKey("rpc")
Delay(7)
SendKey(apxaccount)
SendKey("{TAB}")
Delay(3)
SendKey(begindate)
Delay(1)
SendKey("{TAB}")
Delay(1)
SendKey(enddate)
Delay(1)
SendKey("{ENTER}")
Delay(5)
WinActivate("Cash Ledger")
SendKey("^p")
Delay(3)
SendKey("Adobe{ENTER}")
Delay(5)
SendKey(cashfile)
SendKey("{ENTER}")
Delay(7)
WinClose("Cash Ledger")
Display(2,"Portfolio Appraisal & Cash Ledger PDFs", "All Done!")
