ProFox June 2020

profox@leafe.com

23 participants
18 discussions

Bizarre scenario solved by READWRITE clause on end of SELECT SQL
by MB Software Solutions, LLC 10 Jul '20

10 Jul '20

VFP9SP2 (build 7423) on Win2K12 Terminal Server client user. Screenshot: https://www.screencast.com/t/EYptATFR3ETW Client said app that they have used since 2016 is now acting strange. In short, a record count being reported about a cursor was now erroneous. Underlying cause I found was that VFP was just filtering on the underlying table, returning the record count of the actual DBF instead of the record count returned in the query. Solution was to add the READWRITE clause. *** mjb 06/24/2020 - dev note: select was settng _tally = 1 but yet RECCOUNT was using the Order.dbf instead! Solution was to add READWRITE clause. SELECT invoice ; FROM broker!order f1 ; WHERE vendor_id = liVendorID AND ven_inv = loRec.ven_inv ; INTO CURSOR cur2ndChance READWRITE IF RECCOUNT('cur2ndChance') = 1 THEN && found it llFound = .T. liLoadNum = cur2ndChance.invoice ELSE this.AddToExceptionReport(loRec, RECCOUNT('cur2ndChance')) ENDIF USE IN SELECT('cur2ndChance') && done with it Now again, keep in mind that this solution has been working for years...and when we did an update recently to the database (including the ORDER.dbf table), then this problem arose. We did NOT update this program! I vaguely recall the Foxperts here saying how VFP, rather than create a new cursor, would filtering the underlying DBF instead, but what puzzles me is why this solution worked for 4 years and then suddenly didn't?!??!? Appreciate your thoughts on this, --Mike -- This email has been checked for viruses by Avast antivirus software. https://www.avast.com/antivirus

10 23

Networking Linux and Windows
by John Weller 30 Jun '20

30 Jun '20

I have a small home peer-to-peer network of 3 PCs running Win 10 over WiFi which works most of the time but seems to prefer it when the wind is from the East and there is an ‘R’ in the month 😊. At the start of lockdown I bought a Raspberry Pi which inspired me to install Ubuntu on a redundant laptop to learn Linux. Is there a simple way to include these in the network? Thanks John John Weller 01380 723235 07976 393631 --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

3 4

AZURE and VFP
by Rafael Copquin 28 Jun '20

28 Jun '20

I just started a trial instance of SQL Server on Azure. My question is whether it is possible to upload a VFP exe into a Storage account on Azure and have it run from a local browser. I have this app that produces payroll receipts. I can generate the payroll receipts for each employee in a pdf format and would like to lodge them somewhere on Azure. The SQL Server on Azure contains all the data to generate the receipts on demand. So any employee, with hi/her applicable password could access the VFP exe and visualize their monthly payment receipt from his/her home just using a browser. I know it should be possible to do it with a VM, lodging a SQL Server instance on it and my app's exe, but my client does not want to pay for the VM, just use the above option. Is it at all possible? if so,how? Any leads? TIA Rafael Copquin -- El software de antivirus Avast ha analizado este correo electrónico en busca de virus. https://www.avast.com/antivirus

4 3

Greg Reichert / GLRsoftware.com
by Jürgen Wondzinski 25 Jun '20

25 Jun '20

Anybody knows what happened with Greg Reichert and his domain glrsoftware.com? He had some very nifty VFP code parts there. I'm looking for his SysObj class; because I have only a damaged zip from that ☹ wOOdy

6 8

SQLite
by John Weller 24 Jun '20

24 Jun '20

Has anyone used SQLite with VFP? I have always used DBFs as it seemed over-kill to use SQL Server for the small membership databases I've been using (2000 records) however I was introduced to SQLite as part of a Python course so thought I'd give it a try with VFP. John John Weller 01380 723235 07976 393631 --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

8 13

SetAll throws Variable Not Found
by Tracy Pearson 24 Jun '20

24 Jun '20

Hello everyone, This code has worked for years, now sadly it is failing intermittently. It's in an internal application. I think the error is invalid or the line number and what method the error occurs in is invalid. In a CommandGroup class, the INIT method calls the following SetChildColor method: * Set the forecolor property THIS.SETALL("ForeColor", ; EVALUATE( LEFT( RGBSCHEME(1,2), ; AT(',', RGBSCHEME(1,2), 3) -1)+')'), "CommandButton") THIS.SETALL("DisabledForeColor", ; EVALUATE( LEFT( RGBSCHEME(1,10), ; AT(",", RGBSCHEME(1,10), 3)-1)+")"), "CommandButton") Line four is throwing the error Variable is not found. To determine if it was odd timing related to the EVALUATE function we changed the code to: * Set the forecolor property LOCAL enabledColor, disabledColor enabledColor = EVALUATE( LEFT( RGBSCHEME(1,2), AT(',', RGBSCHEME(1,2), 3) -1)+')') disabledColor = EVALUATE( LEFT( RGBSCHEME(1,10), AT(",", RGBSCHEME(1,10), 3)-1)+")") THIS.SETALL("ForeColor", enabledColor, "CommandButton") THIS.SETALL("DisabledForeColor", disabledColor, "CommandButton") We now get the error on line 6. The stack shows the form is called, the commandgroup.init is running and calls this method. I'm looking for some additional ideas to find this intermittent problem. Thank you, Tracy

3 4

[ADMIN] Problem uploading file to ProFox downloads section
by MB Software Solutions, LLC 23 Jun '20

23 Jun '20

Hi Ed, Got this error when trying to upload a simple PRG: https://www.screencast.com/t/pKl9iQ5Rowst Not sure why? tia, --Mike -- This email has been checked for viruses by Avast antivirus software. https://www.avast.com/antivirus

2 5

[NF] Recommendations on a balance board for standup desk use
by Malcolm Greene 23 Jun '20

23 Jun '20

Any of you stand-up desk users standing on a balance-board type contraption or using a specific mat? I'm at a standup desk 8-12 hours/day and looking to improve the ergonomics of this situation. Thanks! Malcolm --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

5 16

RE: This code doesn't work on this guy's new HP machine (but works on his own machine) -- both Win10 -- maybe a firewall issue?
by Jürgen Wondzinski 18 Jun '20

18 Jun '20

Here's another one without using any fancy IE or XML stuff. Just plain OS functions... CLEAR ? GetURLContent("http://www.atoutfox.org/ip.asp", .T.) ? GetURLContent("http://ipecho.net/plain") ************************************************************ FUNCTION GetURLContent ************************************************************ LPARAMETERS cURL, lBodyOnly LOCAL cFile, cResult cFile = REPLICATE(CHR(0), 260) cResult = "" DECLARE INTEGER URLDownloadToCacheFile IN urlmon; INTEGER lpUnkcaller, STRING szURL, STRING @szFileName,; INTEGER dwBufLength, INTEGER dwReserved, INTEGER pBSC IF URLDownloadToCacheFile(0, cURL, @cFile, LEN(cFile), 0,0) = 0 cFile = RTRIM(cFile) cResult = FILETOSTR(cFile) DELETE FILE (cFile) ENDIF IF lBodyOnly cResult = STREXTRACT(cResult, "<body>", "</body>",1,1) ENDIF RETURN cResult [excessive quoting removed by server]

2 1

This code doesn't work on this guy's new HP machine (but works on his own machine) -- both Win10 -- maybe a firewall issue?
by MB Software Solutions, LLC 17 Jun '20

17 Jun '20

The code below I have run since years ago when I got it from Dave Crozier here on ProFox. I think it's a firewall issue. The oIE.Navigate command returns .NULL. Your thoughts as to what it might be? He's got IE11 on his machine. I went into IE11 and it works fine. (BIG THANKS to Ed for the vRunFox that is helping me remote sleuth this issue!) * Taken from http://leafe.com/archives/msg/493379, courtesy Dave Crozier for the ProFox post!! WAIT WINDOW TIMEOUT 1 "Retrieving IP address for security verification...please wait." LOCAL oIE as InternetExplorer.Application, nStart as Number TRY oIE = createobject("internetexplorer.application") CATCH TO loException llFail = .T. lcIP = 'error' this.Alert(loException.Message,16,"Could not invoke Internet Explorer",.T.) ENDTRY IF NOT llFail THEN *** mjb 06/16/2020 - added TRY TRY oIE.Navigate("http://www.atoutfox.org/ip.asp") nStart = SECONDS() DO WHILE oIE.ReadyState<>4 AND (seconds()-nStart) <= IP_TIMEOUT DOEVENTS ENDDO IF oIE.ReadyState<>4 lcIP = "" && "0.0.0.0" ELSE lcIP = oIE.document.nameprop() ENDIF CATCH TO loException MESSAGEBOX(loException.Message,16,"Problem with first IP site") ENDTRY TRY IF EMPTY(lcIP) THEN && try the alternative site per Stephen Russell oIE.Navigate("http://ipecho.net/plain") nStart = SECONDS() DO WHILE oIE.ReadyState<>4 AND (seconds()-nStart) <= IP_TIMEOUT DOEVENTS ENDDO IF oIE.ReadyState<>4 lcIP = "" && "0.0.0.0" ELSE lcIP = oIE.document.body.innerHTML ENDIF ENDIF && EMPTY(lcIP) RELEASE oIE CATCH TO loException MESSAGEBOX(loException.Message,16,"Problem with second IP site") ENDTRY ENDIF && NOT llFail -- This email has been checked for viruses by Avast antivirus software. https://www.avast.com/antivirus

3 6

2026

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

ProFox June 2020