ProFox April 2018

profox@leafe.com

36 participants
51 discussions

Re: [TEST] Sent message twice yesterday and it didn't get posted
by Gene Wirchenko 17 Apr '18

17 Apr '18

At 07:16 2018-04-17, you wrote: >On Apr 17, 2018, at 8:44 AM, Paul H. Tarver <paul(a)tpcqpc.com> wrote: > > > Just checking and wondering why my earlier messages didn't post. > >Caught in the spam filter, for some reason. What about mine? I have twice now tried to post about grids and both times, it did not get posted. You also did not reply to my E-mails. Sincerely, Gene Wirchenko

2 1

VFP9 - Save as XLSX
by Desmond Lloyd 17 Apr '18

17 Apr '18

Good Morning, Need to be able to copy the contents of a cursor to an Excel file, but it needs to be in the xlsx. Am a newbie to Excel Automation and have read that you can saveas, and it will save in the latest format. Well mine doesn't. oworkbook.version shows 16. (we are running Office 365) Tried the SweetPotato method but it errors out. Not sure why. Would someone be kind enough to point me in the right direction, with some possible examples... TIA, Desmond --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

12 24

[TEST] Sent message twice yesterday and it didn't get posted
by Paul H. Tarver 17 Apr '18

17 Apr '18

Just checking and wondering why my earlier messages didn't post. Paul --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

2 2

AppendXLSX.prg - Difference In Development & Executable
by Paul H. Tarver 17 Apr '18

17 Apr '18

I have been using AppendXLSX.prg written by Craig Boyd for many years with great success. Until now. Last week, I was training a client on some software but when I tried to import an Excel file (which I had done at least a hundred times on the project in development mode), it failed and I got an error about a missing ') '. Nothing I tried would work and so I asked them to use CSV files in the interim until I could get the problem figured out. After extensive review, I traced the error to this line in Craig's code: INSERT INTO (m.tvWorkarea) (&lcFieldList) SELECT &lcNvlFieldList FROM (m.lcSQLAlias) WHERE &tcTableForExpr I tested importing the client spreadsheets multiple times on my development machine and every time, AppendXLSX.prg would work perfectly in development mode and fail in same spot when run as part of my executable program. I added lots of messagebox items to see the values of the compiled code and eventually I changed the INSERT INTO line above to a TEXT..ENDTEXT command so I could store the fully expanded command as a string and save the string to a file to do in-depth comparisons between development and compiled versions. When I compared the expanded commands character by character, I realized the client had a column header in their spreadsheet which started with a number: '3RDPARTY' and the INSERT TO was failing in executable mode because FoxPro doesn't allow field names that start with a number. But I still couldn't explain why the same code worked in development mode. After working my way back through the code, I found prior to the INSERT INTO command mentioned above, Craig issues the following command to retrieve data from the Excel worksheet: m.lnResult = SQLEXEC(m.lnSQL,[SELECT ] + m.tcExcelFieldList + [ FROM "] + m.tcSheet + [" Where ] + m.tcExcelWhereExpr, m.lcSQLAlias) And this is where it gets weird. When this command is issued from within the development environment, the the column header '3RDPARTY' is automatically changed to '_RDPARTY' BUT this automatic substitution DOES NOT occur when the command is issued from within a compiled EXE and the column name remains '3RDPARTY' which then causes a failure in the INSERT INTO command which occurs after the remote table has been created. I tried just renaming the field name prior to the INSERT INTO command, but this creates a field not found error. I tried ALTER TABLE after the cursor is returned from the SQLEXEC command, but the command failed because the initial cursor is a remote table. After trying to make the initial cursor a READWRITE cursor it failed again because there are field names larger than 10 characters. My client's files are created with automated processes and reflect the fieldnames within their software datastore. I do not have access to change these variable names. However, I need some suggestions for potential workarounds short of having the client manually rename the column each time they create the file. Ideally, I'd like to come up with a solution that would be work in all cases for all clients but that may be too much to hope for. Sorry this is so long, but I wanted to include all I learned today about this problem. Any thoughts? Paul --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

1 0

Got A Strange One For You To Consider (AppendXLSX.prg)
by Paul H. Tarver 17 Apr '18

17 Apr '18

I have been using AppendXLSX.prg written by Craig Boyd for many years with great success. Until now. Last week, I was training a client on some software I wrote for them which had been extensively tested (I thought!) but when I tried to import an Excel file (which I HAD tested at least a hundred times on this project in development mode), it failed and I got an error about a missing ')'. Nothing I tried in front of the client would work and so I asked them to use CSV files in the interim until I could get the problem figured out. After extensive review today, I narrowed the problem down to this line in Craig's code: INSERT INTO (m.tvWorkarea) (&lcFieldList) SELECT &lcNvlFieldList FROM (m.lcSQLAlias) WHERE &tcTableForExpr I tested the problem in development mode and after I compiled to an .EXE about 50 times, I think. Every time, it would work perfectly in development mode and fail in executable mode. I added lots of messagebox items to see the values of the compiled code and eventually I changed the line above into a TEXT..ENDTEXT command so I could put the fully expanded command into a variable and save the string to a file to do in-depth comparisons between development and compiled. But, even after changing from the macro expansion to using delimited merge elements, it would still work in development mode and fail in executable. When I began reviewing the expanded commands after the STRTOFILE command was put in place, I realized the client had a field header in their spreadsheet which started with a number: '3RDPARTYSICKPAY'. Prior to the INSERT INTO SELECT command mentioned above, Craig issues the following command to retrieve the columns of data from the Excel worksheet: m.lnResult = SQLEXEC(m.lnSQL,[SELECT ] + m.tcExcelFieldList + [ FROM "] + m.tcSheet + [" Where ] + m.tcExcelWhereExpr, m.lcSQLAlias) The weird part is when this command is issued from within the development environment, the command automatically changes the field name '3RDPARTYSICKPAY' to '_RDPARTYSICKPAY' whereas this substitution DOES NOT occur when the command is issued from a compiled EXE and the column name remains '3RDPARTYSICKPAY' which then causes a failure in the INSERT INTO SELECT command that occurs after the remote table has been created. I tried just renaming the field name prior to the INSERT INTO command, but this creates a field not found error. I tried ALTER TABLE after the cursor is returned from the SQLEXEC command to rename the column earlier in the procedure, but the command failed first because the initial cursor is a remote table and second because if I try to make the cursor a readwrite cursor it fails again because I have field names larger than 10 characters. My client's files are created with automated processes and reflect the fieldnames within their software datastore. I do not have access to change these variable names nor do I want to do. However, I need some suggestions for potential workarounds short of having the client manually rename the column each time they create the file. Ideally, I'd like to come up with a solution that would be applicable in all cases for all clients but that may be too much to hope for. Sorry this is so long, but I wanted to include all I learned today about this problem. Any thoughts? Paul

1 0

Modulo 97 of a very large number
by Dave Crozier 17 Apr '18

17 Apr '18

Sending this message on behalf of Paul Newton who has asked me to relay it to the group as he is having problems sending emails to Profox. He asks the following: Hi all I need to calculate N % 97 aka Mod(N,97) for very large numbers containing 28 digits. Obviously VFP can't handle numbers that large but maybe somebody can suggest some kind of piece-wise method that would enable me to calculate what I need? Is there a library out there for VFP which would facilitate arbitrary-precision arithmetic? Many thanks Paul Newton Thanks in advance Dave Paul Dave Crozier Software Development Manager Flexipol Packaging Ltd. --------------------------------------------------------------- This communication and the information it contains is intended for the person or organisation to whom it is addressed. Its contents are confidential and may be protected in law. If you have received this e-mail in error you must not copy, distribute or take any action in reliance on it. Unauthorised use, copying or disclosure of any of it may be unlawful. If you have received this message in error, please notify us immediately by telephone or email. Flexipol Packaging Ltd. has taken every reasonable precaution to minimise the risk of virus transmission through email and therefore any files sent via e-mail will have been checked for known viruses. However, you are advised to run your own virus check before opening any attachments received as Flexipol Packaging Ltd will not in any event accept any liability whatsoever once an e-mail and/or any attachment is received. It is the responsibility of the recipient to ensure that they have adequate virus protection. Flexipol Packaging Ltd. Unit 14 Bentwood Road Carrs Industrial Estate Haslingden Rossendale Lancashire BB4 5HH Tel:01706-222792 Fax: 01706-224683 www.Flexipol.co.uk --------------------------------------------------------------- Terms & Conditions: Notwithstanding delivery and the passing of risk in the goods, the property in the goods shall not pass to the buyer until the seller Flexipol Packaging Ltd. ("The Company") has received in cash or cleared funds payment in full of the price of the goods and all other goods agreed to be sold by the seller to the buyer for which payment is then due. Until such time as the property in the goods passes to the buyer, the buyer shall hold the goods as the seller's fiduciary agent and bailee and keep the goods separate from those of the buyer and third parties and properly stored protected and insured and identified as the seller's property but shall be entitled to resell or use the goods in the ordinary course of its business. Until such time as the property in the goods passes to the buyer the seller shall be entitled at any time

6 8

Got A Strange One For You To Consider (AppendXLSX.prg)
by Paul H. Tarver 16 Apr '18

16 Apr '18

1 0

FoxyPreviewer Issue
by Paul H. Tarver 14 Apr '18

14 Apr '18

I've been using FoxyPreviewer v299z30 for quite a while and I've never had any problem with it. However, this week I was alerted by a new client it was taking about 4 minutes to create a 3 or 4 page report. I had them delete the FoxUser files to see if there was a problem there (there wasn't) and ultimately, I had them rename the .app file to see how it worked without FoxyPreviewer and report generation was much faster. My questions are: 1) Is there a later version that I can download somewhere? 2) Has anyone else run into the slow performance issue because I can't replicate it on my system. PS: I tried downloading the Codeplex archive, but didn't get too far with it because I couldn't tell what version of FoxyPreviewer was included. Thanks! Paul --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

2 2

Re: Appending from a Cursor
by Gene Wirchenko 12 Apr '18

12 Apr '18

At 06:21 2018-04-12, Alan Bourke <alanpbourke(a)fastmail.fm> wrote: >On Thu, 12 Apr 2018, at 1:31 PM, Jean MAURICE wrote: > > Hi Gene, > > > > 'append from' appends data from a file on the disk and a cursor > is not a file ! > >A cursor may or may not have a disk presence depending on various factors. > >But SQL is a a better way to do it. > >insert into mytable (f1, f2, f3) select (f1, f2, f3) from mycursor That was the way I ended up doing it. Sincerely, Gene Wirchenko

1 0

RE: Appending from a Cursor
by Gene Wirchenko 12 Apr '18

12 Apr '18

At 11:10 2018-04-11, "John Weller" <john(a)johnweller.co.uk> wrote: >You could try > >APPEND FROM DBF(alimport) [whack object="hand" target="forehead"] I have used it in the past, just not very often. When I checked my code, I searched for "append from (" instead of just "append from". Sometimes, 90% of the battle is knowing what to look for. I ended up using <vfp> insert into (this.thiscode+"_cwkt") select * from (alimport) </vfp> I am puzzled why (alimport) works for the SQL but not the append from, but whatever. [snip] Sincerely, Gene Wirchenko

7 8

2026

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

ProFox April 2018