ProFox April 2016

profox@leafe.com

46 participants
42 discussions

Program working under on login, not another.
by Michael Madigan 14 Apr '16

14 Apr '16

I have a legacy FFW 2.6 program running under terminal services The customer complains that a certain report "hangs" and never completes. I test it on my login, everything is fine. I have them create another login for me using their profile, that works fine. The permissions and setups should all be identical. I have them log into using my login, and it works fine. They have the same default printers. They have the same exact work space and local disk I have no idea what there is left to try. --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

2 4

[NF] Your Experience with Virtualized Networks
by Ken Dibble 13 Apr '16

13 Apr '16

Have any of you had experience working with (rather) large virtualized networks? It's been suggested that I virtualize my network. To me the advantages are not clear but the risks are. Since I am old-school and highly risk-averse when it comes to computer technology, I need to hear different perspectives from people who are not trying to sell me anything. We have 7 servers that are candidates for virtualization on a single hypervisor. - Domain controller (currently Linux but may be replaced with Windows) - Heavily used Linux file server that includes two VFP databases and serves up a large and growing number of network shares on which many users depend heavily - Lightly used Windows Medicaid billing server running software that is very slow and requires maximum throughput/speed - Lightly used Windows Accounting server that is running software that is very slow and requires maximum throughput/speed - Windows RDP server that has about 15 authorized users; there's slow growth on this, and it runs separate instances of my VFP application for some of those users. - Windows Document management server - Windows 7 Ultimate 64-bit Antivirus server (not a Windows server OS) The Accounting and Medicaid boxes both have SQL Server Express databases, and there is client software on the workstations that access it, but the servers also have additional software installed as well. So it does not appear to me that this is either fully fat client-thin server or fully server-hosted software. The network has about 130 workstations, connected through four gigabit switches, and there is moderate growth on that. We have a 25 Mbps synchronous internet connection and it is heavily used by many workstations. There are only a couple of network printers; most people have desktop printers. There is a VoIP phone server on a separate physical network but which is connected to the computer network for remote-access purposes and to enable use of "switchboard" software on a few workstations. There are two other servers on the network that are not candidates for virtualization: - Fax server; has legacy dedicated hardware - Backup server, which is almost constantly either running scripts to backup and transfer data from the other servers, to itself and to a removable drive, or having data fed to it from other servers. Total "live" data on the network servers is about 1 TB; we can expect slow-to-moderate growth on that. The risks it seems to me are: 1. Fail-over: If the hypervisor goes down, nobody, but nobody, can do any work. Therefore I need a redundant mirrored system on a separate box, and a robust mechanism to continuously mirror the data without affecting performance. Is that really possible? 2. What is going to be the real, day-to-day effect of using a virtualized RDP server in a stack of other virtualized servers, some of which have heavy intranet traffic? I do not want to be in a situation where I'm told there are no worries and then, this system is installed, and the thing is dog-slow. 3. In fact, I don't want that to happen in relation to any of the applications we are using. What is a realistic expectation on this? If the reality is that I will be assuming greater risks than I face now with separate physical servers, and those risks cannot be mitigated effectively, then are there any countervailing advantages to virtualization that would be great enough to justify making this change? Thanks to all for the benefit of your experience. Ken Dibble www.stic-cil.org

5 7

[NF] A Ransomware Crank is now free
by Stephen Russell 12 Apr '16

12 Apr '16

http://www.pcworld.com/article/3054220/security/experts-crack-petya-ransomw… -- 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 ---

3 2

VFP top level menu on tablets and phones
by Peter Cushing 12 Apr '16

12 Apr '16

I'm sure this has been discussed before but can't seem to find much in the archives. We have a VFP9 app that works great when you are using a PC. On tablets and phones using a touch screen it is quite difficult to use the normal menu that comes with VFP. I know you can increase the size of lower menu items but can't see any way of increasing the size of _msysmenu. I know you could roll your own but want to see if anyone has any other ideas? TIA -- Peter Cushing IT Department WHISPERING SMITH This communication is intended for the person or organisation to whom it is addressed. The contents are confidential and may be protected in law. 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. www.whisperingsmith.com Whispering Smith Ltd Head Office:61 Great Ducie Street, Manchester M3 1RR. Tel:0161 831 3700 Fax:0161 831 3715 London Office:17-19 Foley Street, London W1W 6DW Tel:0207 299 7960

4 8

Grief when upgrading XFRX from 14.7 to 16.0 or 16.1
by Paul Newton 12 Apr '16

12 Apr '16

Hi all I copy the correspondence below for your information - I am NOT a happy bunny ! Dear Paul Newton, I'm sorry, no. I did simply test with XFRX 14.7 and XFRX 16.1 and I got the same result. Evaluating of numeric expression depends on SET DECIMAL TO. Miss Martina Jindrová On Mon, Apr 11, 2016 at 4:18 PM, Paul Newton <Paul.Newton(a)pegasus.co.uk> wrote: Hi I have yet another issue that I cannot understand or resolve I have a report expression (sa_trvalue-sa_cost)/sa_trvalue with #UR XLSF="#0.00 %" in the comment. I run the report on the same set of data with XFRX versions V14.7 and V16.0 With 14.7 a particular value displays as 21.04 % which is correct. With 16.0 the same data displays as 21.00 % which is incorrect. I sincerely hope that this can be resolved otherwise I will have spent dozens of hours modifying my reports for no benefit. Paul Newton | Software Engineer | Pegasus, an Infor Company | t: +44 1536 495000 | f: +44 1536 495228 | paul.newton(a)pegasus.co.uk | http://partners.pegasus.co.uk | http://www.pegasus.co.uk

1 0

Okay team, I'm back
by Gary 11 Apr '16

11 Apr '16

For 10 plus years you guys coached me along and everything works well. Then I took off 3 or so years dabbling with html, php, and mysql. You guys got me over the hump trading data between fox-pro and mysql. Somewhere in that time I upgraded from VFP-6 to 9 and most everything worked without a burp. Today I tried to build a new table and I feel like I've forgotten everything... I'm trying to set up a gradebook for my athletes and my new table won't let me enter a new record because the field athNo is a Primary index. I am manually inserting records using ctrl+Y, typing in a unique number and when I try to leave that record it keeps saying that the index is violated. Very frustrated... I can change the index to [reg] and it allows append but why can't I insert a record if the athNo is unique the other way?

2 1

Online Dues Payments
by Richard Caruso 11 Apr '16

11 Apr '16

Our membership app resides on a Rackspace server. It's a FoxPro app that uses FoxPro free tables. Our client wants the ability to have members pay dues online. We are looking into http://www.authorize.net/ for the processing center. Current Membership payment data needs to be available to the payment website to be able to process the correct dues payments, as rates vary and late fees may apply. At the end of the day we will import the transactions into our app through a process within our FoxPro app. Our idea is that our app creates a table of current membership information which is sent (somehow) to the payment website. Members will use the website to make dues payments. At the end of the day, the website app will send the transaction data to our server on Rackspace (somehow) so we can import the dues transactions. After processing the transactions, our app will refresh the website data with current membership data. We're not sure how to implement the "somehow" (i.e. send/receive data) to/from the website that submits the payment to the processing center. We're also open to other ideas. Our client's web developer says that there are tools out there to do this, but our initial Google searches have not come up any solutions thus far. Here's a simple diagram of what we're trying to accomplish http://imgur.com/iKvkfNZ Thanks in advance. -Ric --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

8 14

ShellExecute window size ignored
by Paul Newton 11 Apr '16

11 Apr '16

Hi all I am trying to view a PDF in a maximized window ShellExecute(lcCallingWindow, "Open", lcFileName, "", "", 3) The last parameter _should_ force the application window to be maximized but it doesn't :( The default application for PDFs on my system is Adobe Reader XI V11.0.09 and I am running Windows 7. Has anybody else had a similar issue? Thanks Paul Newton

4 7

MSXML.DomDocument
by Paul Newton 08 Apr '16

08 Apr '16

Hi all This may be considered by _some_ as NF, but here goes I have the following code: loXML = Createobject('MSXML2.DomDocument') loXML.loadXML(lcXML) lcolElements = loXML.GetElementsByTagName("Bank") For Each loElement In lcolElements ? loElement.Attributes.Item(0).Text Etc/usw Part of the XML looks like this <Bank id="1" name=" None" styleid="0" ></Bank> Note the leading space The code above returns "None" - without the leading space. I have tried replacing the leading space with   but it is still stripped off. I tried replacing the leading space with   and the XML fails to load at all. loXML.PreserveWhiteSpace = .T. seems to apply to all white space not just that between the quote marks and that messes things up completely. Any ideas/suggestions would be much appreciated Paul Newton

7 17

[NF] Getting MySQL integer primary keys (NOT AUTOINC) idea...similar to VFP's old IF SEEK("TheTable","Keys","TheTable") AND RLOCK('Keys') idea
by mbsoftwaresolutions＠mbsoftwaresolutions.com 08 Apr '16

08 Apr '16

Tech used: VFP9SP2 against MySQL (MariaDB) backend I created the new incarnation of FabMate a year ago with 16-byte character keys. Works fine, but I wanted to entertain the idea of using integer keys again instead (because I love the idea of 4 bytes instead of 16) and I did NOT want to use auto-increment keys in the tables because I wanted to have more control over them during data-entry, so basically, I can create all kinds of records and then at save time AND ONLY THEN do I want to store the actual data (and that's why AUTOINC keys wouldn't work). Oh...and they wouldn't work because I have several child-parent-grandparent relationships being created all during data-entry. So I'm thinking "how do I get something like VFP's old NextKey generation" akin to this: * this was pseudo-code, off the top of my head trying to remember my coding from 17+ years ago FUNCTION GetNextKey(tcTable as String) as Integer LOCAL llGotIt as Logical, liNewKey as Integer IF SEEK(tcTable,"MyKeysTable","TableName") THEN llGotIt = .F. DO WHILE NOT llGotIt IF RLOCK("MyKeysTable") THEN REPLACE NextVal with NextVal + 1 in MyKeysTable liNewKey = MyKeysTable.NextVal UNLOCK IN MyKeysTable llGotIt = .T. ELSE WAIT WIND NOWAIT "Trying to get record lock on table counter...please wait" ENDIF ENDDO ELSE liNewKey = -1 ENDIF RETURN liNewKey ENDFUNC My idea at this point was to simply have ONE table who's primary key *IS* an Auto-Increment integer field, where I insert something (probably the unique 16-byte key I'm generating now) and just grab the resulting new primary (integer) key created via this old routine: FUNCTION GetNewID(tiHandle as Integer) as Integer * Retrieves newly created ID from MYSQL backend. *** mjb 11/09/2011 - added here from Scheduler LOCAL liKey as Integer IF SQLEXEC(tiHandle,'SELECT @@IDENTITY as iNewKey',"curKey") = 1 THEN && retrieve PK from resulting cursor liKey = curKey.iNewKey IF VARTYPE(liKey) = "C" THEN liKey = VAL(liKey) ENDIF ELSE liKey = -1 ENDIF RETURN liKey ENDFUNC && GetNewID(tiHandle as Integer) as Integer Can anyone think of a better way? tia, --Mike

8 48

2026

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

ProFox April 2016