ProFox August 2017

profox@leafe.com

46 participants
41 discussions

VFP Icon issue
by mbsoftwaresolutions＠mbsoftwaresolutions.com 24 Aug '17

24 Aug '17

Win7Pro I had VFP9SP2 pinned to my Taskbar but before creating a customer demo, I unpinned it. Now, when I repinned it or even located it in the Programs list, the icon is "unknown". See here: https://www.screencast.com/t/h482eEgGFlm I've tried resetting the icon by selecting the program again but no change. Everything still works the same; it's just a visual thing. Ideas? tia, --Mike

4 6

[NF] Python: 2.x vs 3.x
by Paul H. Tarver 22 Aug '17

22 Aug '17

I finished the Python course at CodeAcademy per the recommendation of someone on this list and although I still have the final project to do, it occurs to me that I have no clue as to what version of Python I should be trying to work with going forward. There seems to be valid arguments for both sides on the interwebs, but what do the VFP programmers who use Python advise? Paul H. Tarver Tarver Program Consultants, Inc. Email: <mailto:paul@tpcqpc.com> paul(a)tpcqpc.com --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

10 23

[NF] Windows updates August problems?
by Ted Roche 17 Aug '17

17 Aug '17

One of our office workstations has been very unhappy since the shutdown Tuesday asked to install updates. Dell Precision M6800 Workstation i7 2.80GHz, 16 Gb RAM, dual 1Gb HDDs Windows 10 Pro Version 1607 (14393.1593) Got the usual "Updating..." when restarting this morning. And waited, and waited. Restarting was sluggish, WiFi kept starting and stopping, After patiently waiting a few minutes, shut down cold and restarted. Worked okay for a while. Later, "Restart Now or Restart Later?" revealed that some of the recent updates STILL were not successfully installed. Restarted. Lather, rinse and repeat the above three times. Attempting to persuade the ever-patient associate not to throw her machine out the window. "That's why they call it Windows," right? Nothing obvious in the error logs. No disk errors. Next step will likely be to attempt to restore from the previous rescue point which, in my limited experience of a dozen or so attempts, never works. Ideas? Suggestions? Mocking? -- Ted Roche Ted Roche & Associates, LLC http://www.tedroche.com

5 8

[NF] use MongoDB with .NET Document Data Anyone???
by Stephen Russell 17 Aug '17

17 Aug '17

How to build step by step in ASP.NET <http://asp.net/> Core WebAPI with latest MongoDB driver. The project supports all requests to MongoDB asynchronously. https://www.codeproject.com/Articles/1151842/Using-MongoDB-NET-Driver-with-… -- Stephen Russell Sr. Analyst Ring Container Technology Oakland TN 901.246-0159 cell --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

1 0

Set bell to anyfile.wav
by Wes Wilson 17 Aug '17

17 Aug '17

set bell to anyfile.wav?? chr(7) does not work in vfp9 any suggestions? Thanks,Wes Text CONVERTVFPNOW to 44222 to stay informed about the end of Visual FoxPro or email back to us and ask us to put you on our newsletter list. Wes Wilson, President ERW Custom Programming, Inc. Crescent Lake Plaza 5459 Elizabeth Lake Rd. Waterford, MI 48327 (248) 683-4182 LinkedIn Profile "Companies pay too much attention to the cost of doing something. They should worry more about the cost of not doing it" Philip Kotler www.erw.com wes(a)erw.com --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

5 4

Loader logic
by mbsoftwaresolutions＠mbsoftwaresolutions.com 17 Aug '17

17 Aug '17

I've uploaded this to the ProFox downloads page in a text file, pending approval. I think I've got all the components included in that text file. Works well for me. -------- Original Message -------- Subject: RE: VFP9SP2 apps on Citrix Date: 2017-08-14 13:30 From: mbsoftwaresolutions(a)mbsoftwaresolutions.com To: ProFox Email List <profox(a)leafe.com> Reply-To: On 2017-08-14 10:59, Richard Kaye wrote: > Having a great deal of respect for your VFP chops, is your loader > something you can share, Dave? I'm always curious about the mechanics > of these types of things. > > -- > > rk Here's a copy/paste from FabNet, called from my Main.prg: PROCEDURE CheckForNewerVersion() LOCAL lcServerVersion as String, lcLocalVersion as String, lcLANFile as String, loData as _dataVersions OF .\progs\_dataVersions.prg, ; loShell as _ShellExecute OF HOME()+"ffc\environ.vcx", loRec as Object, llUpdateLAN as Logical, llMissing as Logical, lcLANVersion as String LOCAL ARRAY laInfo[1] lcLocalVersion = _screen.cversion && SetVersion() lcLANFile = ReadINI("General","SetupFile",'') loShell = NEWOBJECT("_ShellExecute", "_environ.vcx") *** mjb 09/18/2015 - updated for Admin user, plus grabbing EXE from cloud *** mjb 02/17/2016 - DEV NOTE: This needs work yet to grab latest installer from web database and put in lcLANFile location; will finish later IF NOT EMPTY(lcLANFile) THEN WAIT WINDOW NOWAIT "Checking master source for latest update..." loData = NEWOBJECT("_dataVersions",".\progs\_dataVersions.prg") *** mjb 02/17/2016 - moved this next IF block outside the next IF block after that so as to get lcLANVersion for the 3rd IF block IF FILE(lcLANFile) THEN && see if LAN version is the cLatestVersion lcLANVersion = GetVersion(lcLANFile) CopyInstallerLocally(lcLANFile,ALLTRIM(lcLANVersion)) && mjb 05-11-16 llUpdateLAN = loData.ConvertVersionToNumber(lcLANVersion) <> loData.ConvertVersionToNumber(oUtils.oClient.cLatestVersion) ELSE && update LAN with latest from web database llMissing = .T. llUpdateLAN = .T. ENDIF *** mjb 02/17/2016 - added iNetwork = 1 to only run this IF block for MBSS Cloud clients IF oUtils.iNetwork = 1 AND loData.ConvertVersionToNumber(lcLocalVersion) < loData.ConvertVersionToNumber(oUtils.oClient.cLatestVersion) THEN && verify update exe's version is as expected *** mjb 12/28/2015 - added check to only run this for PRODUCTION run IF oUtils.oConnection.Descript = "Production" AND llUpdateLAN THEN *** mjb 12/18/2015 - for now, just alert them IF llMissing THEN MESSAGEBOX(oUtils.Get_Translation("Your network installation file appears to be missing. This is not critical; this just allows you to have your computers update from a common spot on your network rather than the internet. Contact MBSS if you need assistance."),16,oUtils.Get_Translation("Update file missing")) ELSE MESSAGEBOX(oUtils.Get_Translation("Your network installation file (" + ALLTRIM(lcLANFile) + ") appears to be outdated (version " + ALLTRIM(lcLANVersion) + "). Contact MBSS if you need assistance."),48,oUtils.Get_Translation("Update file out of date")) ENDIF && llMissing ENDIF && llUpdateLAN ENDIF && loData.ConvertVersionToNumber(lcLocalVersion) < loData.ConvertVersionToNumber(oUtils.oClient.cLatestVersion) IF FILE(lcLANFile) THEN lcServerVersion = GetVersion(lcLANFile) IF NOT EMPTY(lcServerVersion) THEN IF lcServerVersion > lcLocalVersion THEN IF MESSAGEBOX(oUtils.Get_Translation("An update is available for this application (version") + " " + lcServerVersion + "). " + oUtils.Get_Translation("Do you want to upgrade?"),4+32+0,oUtils.Get_Translation("Upgrade available.")) = 6 THEN && launch setup from server and quit this app *** mjb 02/17/2016 - changed next line to lcLANFile instead of lcFile loShell.ShellExecute(FULLPATH(lcLANFile)) RELEASE loShell oUtils.Shutdown_System() && mjb 05-13-16 was QUIT ENDIF && msgbox = 6 ENDIF && lcServerVersion > lcLocalVersion ELSE SET STEP ON ENDIF && NOT EMPTY(lcServerVersion) ENDIF && FILE(lcLANFile) ENDIF && NOT EMPTY(lcLANFile) ENDPROC && CheckForNewerVersion() FUNCTION GetVersion(tcFile as String) as String *** mjb 09/24/2015 - created to quickly check version # on files LOCAL ARRAY laInfo[1] LOCAL lcVersion as String, loException as Exception TRY lcVersion = '' IF FILE(tcFile) THEN AGETFILEVERSION(laInfo,tcFile) lcVersion = laInfo[4] ENDIF CATCH TO loException lcVersion = '' ENDTRY RETURN lcVersion ENDFUNC && GetVersion(tcFile as String) as String from my data object: FUNCTION ConvertVersionToNumber(tcVersion) as Number LOCAL lnNumber as Number, liMajor as Integer, liMinor as Integer, liRevision as Integer, liMultiplier as Integer IF NOT EMPTY(tcVersion) THEN liMultiplier = 10000 liMajor = VAL(GETWORDNUM(tcVersion,1,".")) liMinor = VAL(GETWORDNUM(tcVersion,2,".")) liRevision = VAL(GETWORDNUM(tcVersion,3,".")) lnNumber = (liMajor * liMultiplier^2) + (liMinor * liMultiplier^1) + (liRevision * liMultiplier^0) && could have skipped liMultiplier^0 but kept for logical flow ELSE lnNumber = 0 ENDIF && NOT EMPTY(tcVersion) RETURN lnNumber ENDFUNC && ConvertVersionToNumber(tcVersion) as Number [excessive quoting removed by server]

6 10

RE: VFP9SP2 apps on Citrix
by Gene Wirchenko 17 Aug '17

17 Aug '17

At 10:49 2017-08-14, "John Weller" <john(a)johnweller.co.uk> wrote: >I have a similar system except that the .exe resides on the workstation and >the server. When the app is started it actually runs the loader first which >checks the version number of the local exe and the server exe. If the >server exe is newer then it copies it across to the workstation which means >that it is only copied when necessary instead of every time. Mine works the same way. [snip] Sincerely, Gene Wirchenko

1 0

[NF] Ximarian forms upgrade coming soon
by Stephen Russell 16 Aug '17

16 Aug '17

For all of you "forms" folks, this is of potential interest. You can now do Android-Apple apps that render faster. https://visualstudiomagazine.com/articles/2017/08/01/xamarinforms3_0.aspx -- Stephen Russell Sr. Analyst Ring Container Technology Oakland TN 901.246-0159 cell --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

1 0

[NF] Trigger question
by mbsoftwaresolutions＠mbsoftwaresolutions.com 16 Aug '17

16 Aug '17

MariaDB backend (but could be SQL Server too) Given this trigger: UPDATE MyTable SET cItemID = new.cID WHERE cItemID = old.cID My question: will this trigger fire even if the old.cID = new.cID? Or do I need to add to the WHERE clause something like "....and old.cID <> new.cID" ??? tia, --Mike

3 3

[NF] Xojo 2017 Release 2 now available
by Kevin J Cully 15 Aug '17

15 Aug '17

I thought this would be of interest to the ProFox members. Xojo 2017 Release 2 was released today. Release features include: * 64-bit support for XojoScript * 64-bit string handling is faster and more consistent * 64-bit support for Windows icons and version information * GTK3 for Linux * HiDPI for Linux * iOS Launch Screen support * Additional drag & drop events for ListBox * IDE and web improvements http://xojo.com http://developer.xojo.com/2017r2-release-notes Xojo is free to try by building applications through the IDE. To compile applications, you'll need a license. This message (including any attachments) is intended only for the use of the individual or entity to which it is addressed and may contain information that is non-public, proprietary, privileged, confidential, and exempt from disclosure under applicable law or may constitute as attorney work product. If you are not the intended recipient, you are hereby notified that any use, dissemination, distribution, or copying of this communication is strictly prohibited. If you have received this communication in error, notify us immediately by telephone and (i) destroy this message if a facsimile or (ii) delete this message immediately if this is an electronic communication. Thank you. --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

1 0

2026

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

ProFox August 2017