West Wind Message Board Messages

Report Form - Seems like it should be so easy

Brian Samelson — Thu, 15 May 2008 15:51:58 GMT

Report Form - Seems like it should be so easy

FoxPro Programming

Report Form - Seems like it should be so easy

From:	Brian Samelson
To:	All
Attachments:	None

05/15/2008
08:51:58 AM
2DC0J04PM

I have the need to print a basic 'purchase order' type form. The customer wants to emulate their existing paper form *exactly*, down to the fact that even if the purchase order only has 3 lines, then the form should print 3 lines of data and the remainder of the form as *blank* with the grid. Something like this

| Line # | Description | Qty |
-----------------------------------
| 1 | Line 1 | 3 |
-----------------------------------
| 2 | Line 2 | 2 |
-----------------------------------
| 3 | Line 3 | 1 |
-----------------------------------
| | | |
-----------------------------------
| | | |
-----------------------------------
| | | |
-----------------------------------
| | | |
-----------------------------------

So basically, the form always prints 6 grid lines - regardless of the number of actual lines of data. Using a REPORT FORM ..FOR.. , I just cant seem to get this to work. I can easily extend the column lines down by dragging them into the page footer and the stretch nicely.. but to get the additional row lines to print seems impossible. We would prefer not to have to really kluge to the point of inserting blank lines into the table.. we tried various calculations of # of lines to print and 'print whens' and 'dont print if blanks', but seems the vfp 9 report will always allow for *potential* max amount of space a group footer may require and it screws it up... Am I missing something easy? Any suggestions appreciated!

TIA,

Brian

Re: Problem saving a attachment from an email.

Rick Steinwand — Thu, 15 May 2008 13:09:14 GMT

Re: Problem saving a attachment from an email.

Web Development with Visual FoxPro

Re: Problem saving a attachment from an email.

From:	Rick Steinwand
To:	Rick Steinwand
Attachments:	None

05/15/2008
06:09:14 AM
2DC0D6UDH

Also check out urlencode, but that's going to expand the size of your dbf 3x.

What are you trying to do?

Rick

Try encodedbf, then decodedbf after you receive it.

Using an email to send a dbf seems clunky.

Rick

Hi, all.
I´m trying to save an DBF file attached to an email with WWPOP3 and WWIPSTUFF classes and it runs but all that ASCII character out of range 32 - 128 are changed to string "=XX". For example ASCII character 3 (0x03) are translated into string "=03".
If i try to decode with VFP STRCONV function option 16 (Converts single-byte characters to decoded hexBinary) converts all the characters in the file, not only that ones that are in format "=XX" and the file results unreadable.

How must i decode the file?

Thank you all

Re: Problem saving a attachment from an email.

Rick Steinwand — Thu, 15 May 2008 12:55:05 GMT

Re: Problem saving a attachment from an email.

Web Development with Visual FoxPro

Re: Problem saving a attachment from an email.

From:	Rick Steinwand
To:	Eduardo Eizaguirre
Attachments:	None

05/15/2008
05:55:05 AM
2DC0CON30

Try encodedbf, then decodedbf after you receive it.

Using an email to send a dbf seems clunky.

Rick

How must i decode the file?

Thank you all

Problem saving a attachment from an email.

Eduardo Eizaguirre — Thu, 15 May 2008 09:29:03 GMT

Problem saving a attachment from an email.

Web Development with Visual FoxPro

Problem saving a attachment from an email.

From:	Eduardo Eizaguirre
To:	All
Attachments:	None

05/15/2008
02:29:03 AM
2DC05BOF4

Hi, all.
I´m trying to save an DBF file attached to an email with WWPOP3 and WWIPSTUFF classes and it runs but all that ASCII character out of range 32 - 128 are changed to string "=XX". For example ASCII character 3 (0x03) are translated into string "=03".
If i try to decode with VFP STRCONV function option 16 (Converts single-byte characters to decoded hexBinary) converts all the characters in the file, not only that ones that are in format "=XX" and the file results unreadable.

How must i decode the file?

Thank you all

Re: Scanning uploaded files for viruses

Micheal Hogan — Thu, 15 May 2008 02:19:51 GMT

Re: Scanning uploaded files for viruses

Web Development with Visual FoxPro

Re: Scanning uploaded files for viruses

From:	Micheal Hogan
To:	Charles Posey
Attachments:	None

05/14/2008
07:19:51 PM
2DB15FK96

I am sure someone else has come across this, but since I am somewhat new to WW development.. Is there a way to scan a file uploaded using WW Build 5.30 and McAfee so that I can isolated it prior to performing any other actions to the file and be able to inform the user that the file was infected?

Most virus scanners have command-line capabilities - so you can run a command line to scan a particular file, get the return value, and perform file operations based upon the result. Mail Servers do this all the time.

I'd have to look into specifics for McCaffee - I use Frisk.

Re: Web Connection 5.20: Encoding and Compression

Rick Strahl — Wed, 14 May 2008 21:27:19 GMT

Re: Web Connection 5.20: Encoding and Compression

Web Connection 5.0

Re: Web Connection 5.20: Encoding and Compression

From:	Rick Strahl
To:	Rick Steinwand
Attachments:	None

05/14/2008
02:27:19 PM
2DB0UZDFI

Thanks for the confirmation Rick.

+++ Rick ---

Hi Rick.

Just thought I'd mention that this issue seems to be resolved. I haven't had an issue with it for over a month now.

Rick
Hi Rick,
Yes, potentially high volume, but it's also possible they may have double-clicked the link.

A double click probably won't do it because even a double click lacks.

When I look in the temp folder on the server (via VNC), I don't see any gz files so either they're gone so quick they don't register or they're few and far between.

Well, see if adding the ProcessId helps - it should fix any problems with cross session naming at least.

+++ Rick ---

FWIW, this is WC 5.33

Hmmmm.... that's odd. The file shouldn't be gone.

Is this a high volume environment with multiple instances where lots of files get created? It's possible (rarely) that SYS(2015) will generate duplicate ids but very unlikely.

It might help to change the file name to:

lcOutFile = SYS(2023) + SYS(2015) + TRANS(Application.ProcessId) + ".gz"

To ensure no other instance generates the same filename.

+++ Rick ---

Hi Rick,
We've had gzip compression implemented without incident for several weeks now and just got an error email:
<PRE>
Error: 1705
Message: File access is denied d:\temp\_2br0t6jku.gz.
Code:
Program: gzipuncompressstring
Line No: 2151
Client: xxx.xxx.xxx.xxx
Post Buffer:
</PRE>

This corresponds to ERASE(lcOutfile) at the bottom of the procedure.

Here is that section:

CATCH
* Nothing
FINALLY
gzclose(lnHandle)
ERASE(lcOutfile)
IF (!llIsFile)
ERASE(lcInFile)
ENDIF
ENDTRY

The temp file is gone so did get erased. Should this be in a try/catch statement?

Rick Strahl
West Wind Technologies

Where do you want to surf today?

Reader Version: 5.0

From Geneva, Switzerland

Re: Web Connection 5.20: Encoding and Compression

Rick Steinwand — Wed, 14 May 2008 20:41:32 GMT

Re: Web Connection 5.20: Encoding and Compression

Web Connection 5.0

Re: Web Connection 5.20: Encoding and Compression

From:	Rick Steinwand
To:	Rick Strahl
Attachments:	None

05/14/2008
01:41:32 PM
2DB0TCHZ7

Hi Rick.

Just thought I'd mention that this issue seems to be resolved. I haven't had an issue with it for over a month now.

Rick
Hi Rick,
Yes, potentially high volume, but it's also possible they may have double-clicked the link.

A double click probably won't do it because even a double click lacks.

When I look in the temp folder on the server (via VNC), I don't see any gz files so either they're gone so quick they don't register or they're few and far between.

Well, see if adding the ProcessId helps - it should fix any problems with cross session naming at least.

+++ Rick ---

FWIW, this is WC 5.33

Hmmmm.... that's odd. The file shouldn't be gone.

Is this a high volume environment with multiple instances where lots of files get created? It's possible (rarely) that SYS(2015) will generate duplicate ids but very unlikely.

It might help to change the file name to:

lcOutFile = SYS(2023) + SYS(2015) + TRANS(Application.ProcessId) + ".gz"

To ensure no other instance generates the same filename.

+++ Rick ---

This corresponds to ERASE(lcOutfile) at the bottom of the procedure.

Here is that section:

CATCH
* Nothing
FINALLY
gzclose(lnHandle)
ERASE(lcOutfile)
IF (!llIsFile)
ERASE(lcInFile)
ENDIF
ENDTRY

The temp file is gone so did get erased. Should this be in a try/catch statement?

Re: Cookie problem after upgrading to 5.35

Rick Strahl — Wed, 14 May 2008 18:36:40 GMT

Re: Cookie problem after upgrading to 5.35

Web Connection 5.0

Re: Cookie problem after upgrading to 5.35

From:	Rick Strahl
To:	Bob Roenigk
Attachments:	None

05/14/2008
11:36:40 AM
2DB0OVXEI

Yes I found this bug a couple of days ago while working with a client here. What's odd is that this code hasn't changed as AFAIK in a while and I'm not sure why this happened.

I suspect you're running Sessions under SQL server - it actually works right with Fox data. The problem is that the insert in SQL doesn't bring back the new record.

The fix I used is actually:

*** Update the id with spacing included
#IF !WWC_USE_SQL_SYSTEMFILES        
   lcSessionId = wwSession.SessionId
#ENDIF

since the padding isn't required for SQL server which doesn't care about the trailing spaces.

There should be no problem with Fox data.

+++ Rick ---

Rick,

I just upgraded each of my projects from v5.27 to 5.35. They all failed after the upgrade due to a cookie creation problem. I can see that the cookie is created on the client, but the content is empty.

The problem is apparently in wwSession.NewSession. Here are the last dozen lines of code from that function.

*** Create a new emtpy object
SCATTER NAME THIS.oData MEMO BLANK
WITH THIS.oData
	.SessionId = lcSessionid
	.FirstOn = DATETIME()
	.Laston = DATETIME()
	.UserId = lcUserid
	.Browser = lcBrowser
	.IP = lcIP
	.Hits = 1
ENDWITH

*** Write the session to disk now
*** to make sure other instances can
*** see it immediately
THIS.Save()

*** Update the id with spacing included
lcSessionId = wwSession.SessionId

*** Force full field value width
THIS.cSessionId = lcSessionId

RETURN lcSessionId

wwSession.SessionId is always empty. By changing the line to this:

lcSessionID = PADR(lcSessionId,FSIZE("SessionId"))

all of my applications work again. (Or just commenting out that line will also work. But from your comment it looks like you want to pad it.)

Now what is really bothering me is why this isn't a problem for everyone else using 5.35. I'm wondering if I implemented something wrong in my code. But this is so deep in your code, I don't see how that could be since this is only called by this.InitSession(), which I placed in OnProcessInit of my subclass of WWC_PROCESS.

Rick Strahl
West Wind Technologies

Where do you want to surf today?

Reader Version: 5.0

From Geneva, Switzerland

'voice self-service' and WestWind

r.p — Wed, 14 May 2008 17:41:33 GMT

'voice self-service' and WestWind

Announcements and Chatter

'voice self-service' and WestWind

From:	r.p
To:	All
Attachments:	None

05/14/2008
10:41:33 AM
2DA0Q2JMO

could not a 'help wanted' forum, thought this would do.

We are looking for a "voice self-service" system that is WestWind oriented. We have something cobbled together right now but it is too expensive for us to keep doing ourselves.
Our interest is either in a product already developed and for sale or for a developer who already has done one.

Aside from the basics, we need a setup that will understand the customer's voice and will do creditcard verifications through USBank's viaWarp.

We want people to call in, keypad or speak their account number and payment information. The system should then look up the customer's information to see that it matches and then verify the payment validity through viaWarp (which is a USBank application with a hook). So if there is another TLA for this, lmk :)

any leads appreciated.

Newbie Help

Shani — Wed, 14 May 2008 16:42:55 GMT

Newbie Help

FoxPro Programming

Newbie Help

From:	Shani
To:	All
Attachments:	None

05/14/2008
09:42:55 AM
2DB0KTMQP

Hi there,

I am new to programming and working on VFP 7. I have the following code that prints out the invoices once they are issued. I need to make some changes to it. Instead of printing the invoices, I just want them to save. I commented out the the statement that tries to print out the invoices once the button is clicked. The code is as given below.

*-- Change the status_id to issued

*-- start timing how long to issue an invoice
*!* MESSAGEBOX("Start Timing!")
*!* LOCAL timeTracker
*!* timeTracker = DATETIME()

glissuedbuttonflag = .t.

This.Parent.imgIssued.ZOrder(0)

*!* IF SEEK(thisform.oMasterObject.oObjectStore.invoice_no, "a_invoices", "INVOICE_NO")
SELECT ("a_invoices")
SET ORDER TO invoice_no IN a_invoices DESCENDING
LOCATE FOR ALLTRIM(invoice_no) == ALLTRIM(thisform.oMasterObject.oObjectStore.invoice_no)
SET ORDER TO invoice_no IN a_invoices ASCENDING
IF FOUND()

*****************
thisform.cntbmentrybuttons.cmdEdit.click
thisform.oMasterObject.oObjectStore.status_id = "002" &&- issued
thisform.cntbmentrybuttons.cmdSave.click
*****************
*!* SET REPROCESS TO 10 SECONDS
*!* IF FLOCK("a_invoices")
*!* replace a_invoices.status_id WITH "002"
&&- issued
*!* thisform.oMasterObject.oObjectStore.status_id = "002"
IF EMPTY(a_invoices.issuedate) OR ISNULL(a_invoices.issuedate)
replace a_invoices.issuedate WITH DATE()
thisform.oMasterObject.oObjectStore.issuedate = DATE()
ENDIF

*|* thisform.cntbmprintbuttons.cmdPrint.click
thisform.cntinvoicingdata.orderPages.page1.cntshippinginfo.cboStatus.refresh()
thisform.cntinvoicingdata.orderpages.page1.cntshippinginfo.cntdate1.refresh()
thisform.cntinvoicingdata.label1.caption = "ISSUED"
*!* UNLOCK IN a_invoices
*!* ELSE
*!* WAIT WINDOW 'Unable to open Invoices Table; try again later!' NOWAIT
*!* ENDIF
ELSE
g_alert("Invoice is not found!")
RETURN .f.
ENDIF

this.Enabled = .f.
glissuedbuttonflag = .f.

thisform.Refreshform()

*-- determines how long it takes to issue an invoice
*!* timeTracker = DATETIME() - timeTracker
*!* timeTracker = "Time:" + STR(timeTracker) + " seconds."
*!* MESSAGEBOX(timeTracker)

Therefore, I have to come up with a function that only saves the issued invoices instead of printing them. Also, it creates a table to insert records by using the following fields: invoice_id, invoice_no and status_id.

Your help is much appreciated.

Thanks alot,
Newbie Database Developer

Re: pass info to new page

Bob Roenigk — Wed, 14 May 2008 16:20:13 GMT

Re: pass info to new page

Web Connection 5.0

Re: pass info to new page

From:	Bob Roenigk
To:	Smyte Smithln
Attachments:	None

05/14/2008
09:20:13 AM
2DB0K0G9U

Smyte,

It is not clear as to exactly what you are trying to accomplish. Passing information between screens in a web enabled application can be done in different ways. One common method is the use of session variables. Read the documentation about SetSessionVar and GetSessionVar. On one screen, information can be saved for a user on the server. When the user gets to another screen, you can read that saved information.

Bob

Hello,
I'm not seeing how to pass info to another page. If I have class method which works giving me this.odeveloper.name and I want to go to another web page and pass that in somehow, I'm not having success figuring it out. Here is pretty much what I've tried. The navigateurl shows a link on the current page, not what I'm after.

this.wwWebHyperLink1.NavigateUrl = [http://localhost/sstest3/userloginpass.wcsx?
ssusername=]+this.ouser.odata.LI_USRNAME
----above a link is created, not another webpage

*!* pcusername=this.ouser.odata.LI_USRNAME
*!* response.write(pcusername)
*!* response.expandtemplate("C:\inetpub\wwwroot\sstest3\" + "userloginpass.wcsx")
-----above I made a textbox on the userloginpass.wcsx page. tried setting the control source to
< %pcusername% >.

thanks...Smyte

Re: Pass a PDF from VFP COM to a .Net Web Service

Jon Goad — Wed, 14 May 2008 14:20:38 GMT

Re: Pass a PDF from VFP COM to a .Net Web Service

Web Development with Visual FoxPro

Re: Pass a PDF from VFP COM to a .Net Web Service

From:	Jon Goad
To:	Rick Strahl
Attachments:	None

05/14/2008
07:20:38 AM
2DB0FQO0A

Rick,

I'm not what else it could be at this point. Everything else with the COM DLL and web service works just fine. And if I instantiate my COM object from VFP instead of from the .Net web service, it returns the binary string of the PDF just fine. I still feel like there's something going on with type conversion. But temporarily, I'm just going to stick with the ASP solution that I mentioned earlier in this thread. I may try to work on this problem some more when I have some time. Thanks for all of your help and suggestions.

Jon

That should work. There must be something else that is wrong...

+++ Rick ---
Hi Rick,

Unfortunately, object doesn't work either. It doesn't give a compile error, but when I test it, I get an Internal Server Error.

Thanks,

Jon

I think object is the result you want to return from the COM object... Variant for some reason doesn't work right...

+++ Rick ---

Rick,

Thanks for the help. I tried your suggestion, and sure enough it fixed the build error in .Net, but it's still not returning the expected result. What data type do I need to declare as the return type in my VFP method? For example:

PROCEDURE GetPDF() as [???]
LOCAL lcStr
lcStr = FILETOSTR('c:\test.pdf')
RETURN CAST(lcStr as blob)
ENDPROC

I've tried byte, blob, string, variant, binary, etc., and none of them seem to return the correct value. String actually gives a compile error in .Net of 'cannot convert type string to byte[] via a built-in conversion'.

Thanks,

Jon

You have to cast the result...

byte[] result = vfpObj.getBinary() as byte[];

+++ Rick ---
Hi Rick,

The data is coming from a VFP COM object. It's being instantiated by a web method of a .Net web service written in ASP.Net using C#. My problem was that the .Net web service gives a compile error (Cannot implicitly convert type 'object' to 'byte[]') because it doesn't recognize the value being returned by the VFP COM DLL as a byte array. And because VFP doesn't have a byte array data type, I couldn't really declare the return value of the VFP COM DLL method as such. I tried returning it as a blob, a string, binary, etc., etc., but nothing worked. As a workaround, I finally decided to do the following:

1. Create an ASP page that can accept the parameters needed to generate the PDF through the URL
2. Use Request.QueryString() to parse out the values for the parameters in my ASP code.
3. Instantiate the VFP COM DLL and call the method to create the PDF and return the binary string of the PDF to a variable in the ASP code.
4. Use Response.BinaryWrite() to render the PDF directly to the browser.

I think I've just had it in my head that I HAD to return the PDF through a method of the web service, but in this case, it's really not necessary, and it seems to be either impossible, or more trouble than it's worth.

Thanks,

Jon

Where is the data coming from? A VFP COM object? In that case using RETURN CREATEBINARY(lcPdfBin) should do the trick to return a byte array.

If you do this over a Fox Web Service you have to hack the generated WSDL file to have it return hexBin results.

+++ Rick ---

Hi Rick,

Thanks for the reply. My problem seems to be this: when I declare the return type as blob in my VFP COM DLL, my .Net Web Service gives a compile error of: "Cannot implicitly convert type 'object' to 'byte[]'". So I'm wondering, should I declare the return type of my VFP method as something other than a blob, or should I declare the expected return type in my .Net code as something other than byte[]?

Here's some oversimplified VFP code to demonstrate:

DEFINE CLASS cbswws AS SESSION OLEPUBLIC

PROCEDURE GetPDF() as blob
LOCAL lcStr
lcStr = FILETOSTR('c:\test.pdf')
RETURN CAST(lcStr as blob)
ENDPROC

ENDDEFINE

And here is the web method code from my .Net web service:

[WebMethod]
public byte[] GetPDF()
{
cbswws.cbswws Service = new cbswws.cbswws();
byte[] Result = Service.GetPDF();
return Result;

}

Thanks,

Jon

Re: lo_outlook=createobject('outlook.application')

jmonte — Wed, 14 May 2008 13:59:40 GMT

Re: lo_outlook=createobject('outlook.application')

FoxPro Programming

Re: lo_outlook=createobject('outlook.application')

From:	jmonte
To:	jmonte
Attachments:	None

05/14/2008
06:59:40 AM
2DB0EZP4V

Looks like it's an upgrade problem.. They upgraded from outlook 2000 to 2003..

After clicking detect and repair and putting the 2003 cd in the drive, wait till it's done then
in the run box type "c:\program file\microsoft office\outlook.exe" /unregserver then
"c:\program file\microsoft office\outlook.exe" /regserver it worked.

I recently got a phone call from one of my customers saying "we cant use outlook from your app anymore"
I logged into their computer and couldnt even create the object
lo_outlook=createobject("outlook.application")
After reseaching I found that clicking the detect and repair on the outlook help menu should fix it.. it didnt.. Then I found an article saying to try this

c:\program files\microsoft office\outlook.exe /unregserver
c:\program files\microsoft office\outlook.exe /regserver

This didnt work either... has anyone had this type of issue?
Does anyone know a fix?

Thank
Jim

Re: Scanning uploaded files for viruses

Harvey Mushman — Wed, 14 May 2008 13:57:14 GMT

Re: Scanning uploaded files for viruses

Web Development with Visual FoxPro

Re: Scanning uploaded files for viruses

From:	Harvey Mushman
To:	Charles Posey
Attachments:	None

05/14/2008
06:57:14 AM
2DB0EWKOO

I use McAfee VirusScan on my server. I have configured it to scan the folder I place uploaded files into. In my VFP code, I write out the uploaded file into the same directory. This causes McAfee to scan it since it is a new file. Then in a seperate action in VFP after checking to see if the file still exist, I move the clean file to its final folder.

That should do it.

BTW - I delete infected files and reply with a message that upload failed if the file is infected (not found).

Oh, if you are running in File Mode, you might want to Exclude checking the WC Temp folder - your performance is taking a real beating by McAfee.