I use FaxMan Jr. in a VFP 6 form that faxes files. The problem I am having is that after I do THISFORM.FaxManJr1.SendFax command I don't know how to pause the commands until the fax sends because it loops back thru and tries to send the same fax again and gives me an exception error that I cannot send a fax while another is sending. I get it, but how do I halt processing until FaxMan is ready to send again. I saw the FaxMan documentation and there is a THISFORM.FaxManJr1.Status where if status is equal to 1 the Fax device is ready and has completed its last send. But when I stick that command in my code I get an error because VFP thinks .STATUS is reserved for VFP. Is there a way to fake it out?
Here's my FaxManJr code in my VFP form:
DO WHILE..... and code continues to build files to send...
then comes FaxManJr portion of code in my VFP 6 form...
cStatus = "Dialing and FAXing " + ALLT(THISFORM.FaxManJr1.FaxNumber)+ ;
" for Patient ID "+SUBSTR(faxreq.patid,9,8) + " ....."
WITH THISFORM
.cStatus.Refresh
.FaxManJr1.UserCompany = "MEDICAL CONTROL COMMUNICATIONS OFFICER"
.FaxManJr1.UserFaxNumber = "(727)582-2076"
.FaxManJr1.FaxBanner = "Date: %d Time: %t|%m|%x Page %c of %p"
.FaxManJr1.ImportFiles("c:\patient.fmf",filenames)
.FaxManJr1.FaxFiles = "c:\patient.fmf"
.FaxManJr1.SendFax
ENDWITH
ENDIF
ENDDO
Thanks for the help.
Steve Kramer
Kramer & Kramer Design
"Home of Go Cartoons"
Web Site:
www.stephenkramer.comWould you believe Far Side Lite?
More than 270 original cartoons.