ProFox June 2018

profox@leafe.com

38 participants
55 discussions

[ADMIN] Filter Redux
by Ken Dibble 27 Jun '18

27 Jun '18

Message sent 12:53 PM EDT. Not received by 3:04 PM EDT, and not in the archives. Ed? Please check the filter again. Thanks. Ken Dibble www.stic-cil.org

1 0

[NF] "Modern Standby", Win 10, and Bitlocker with Azure
by Ken Dibble 27 Jun '18

27 Jun '18

Perhaps someone here can answer this question. I have a Windows 10 Pro laptop. It is part of an Azure AD domain, in which InTune is being used for a variety of management functions. It is supposed to have Bitlocker full disk encryption enabled, and the Bitlocker key is stored in InTune. I do not connect any cables to this laptop. I simply turn it on. I do not manually connect it to any wireless internet source. The machine displays a standard Windows 10 login screen. Having local admin credentials, I log in and get full access to the machine. What is wrong with this picture? As I understand Win 10 Bitlocker disk encryption, I don't need to supply pre-boot credentials if the computer can see the internet, or if the machine has "Modern Standby" enabled. I understand the latter to mean that the laptop has never been fully turned off since somebody unlocked the encryption. If I am correct, since I did not connect the laptop to any internet source, yet I still am able to get into the machine using only the local admin credentials, if Bitlocker full-disk encryption is actually implemented, then the machine must be in "Modern Standby". I don't use Windows 10 but to me this situation is analogous to having set up full disk encryption on a Win 7 box, submitted a PIN to get to the login screen, and then closed the lid to force hibernation mode. If I open the lid I don't need to put in the pre-boot PIN again but I have to log into Windows. As I see it, if somebody steals this laptop as well as the local admin credentials, the alleged Bitlocker "full disk encryption" will do absolutely nothing to prevent the thief from gaining full control of the machine. Is this correct, or am I, as is often the case, missing some crucial piece of information. Thanks for any help. Ken Dibble www.stic-cil.org

1 0

[NF] Tool to help you monitor mySQL/Marina
by Stephen Russell 26 Jun '18

26 Jun '18

Looks similar to tools I use to check on SQL Server. Not sure the $$ just ging you a heads up on it. https://www.webyog.com/product/monyog -- 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 ---

5 8

CAN You Hear the Silence???
by Kurt at VR-FX 26 Jun '18

26 Jun '18

Wow - was surprised not to receive ANY Forum postings since 6/16! Has it really been that silent - or have I been unsubscribed for some reason? Hmmm... -K-

2 1

VFP in Windows on a Mac
by john＠johnweller.co.uk 26 Jun '18

26 Jun '18

I have had a nightmare installing the latest Win 10 update. The only thing stopping me from throwing the PC out of the window and going out and buying a Mac was the fact that I have a number of apps still in use written in VFP which I need to maintain. I was told recently that I could run Windows on a Mac - has anyone any experience of running VFP under Windows on a Mac? John John Weller 01380 723235 07976393631 --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

11 20

Nothing like a cryptic error to start the work week!
by mbsoftwaresolutions＠mbsoftwaresolutions.com 25 Jun '18

25 Jun '18

VFP9SP2, Win7Pro, MySQL backend Screenshot: https://www.screencast.com/t/QKA2etzLnW I've searched frmEditJob.scx in the Code References for any text of IMG and it found nothing. Ugh. Now how to track down this new mystery?

4 7

Re: Query Involving Sums and Two Most Recent Dates
by Frank Cazabon 25 Jun '18

25 Jun '18

You just need to change the first line of the query to this: SELECT COUNT(Status.ConFK) AS ConsCount, SUM(LastHours.AppHours) AS HoursSum; Frank. Frank Cazabon On 22/06/2018 01:04 PM, Ken Dibble wrote: > >> Maybe this will do what you want: >> >> >> SELECT Status.ConFK, LastHours.AppHours; >> FROM Status ; >> INNER JOIN (SELECT ConFK, MAX(Date) AS MaxDate; >> FROM Status; >> GROUP BY ConFK) M ON Status.ConFK = M.ConFK AND Status.Date = >> M.MaxDate ; >> AND Type = "Approved"; >> LEFT JOIN (SELECT Hours.ConFK, Hours.AppHours; >> FROM Hours; >> INNER JOIN (SELECT ConFK, MAX(date) AS MaxHoursDate; >> FROM Hours; >> Â GROUP BY ConFK) MH ; >> Â ON Hours.ConFK = MH.ConFK AND Hours.Date = >> MH.MaxHoursDate ) LastHours ; >> ON Status.ConFK = LastHours.ConFK > > Yes, using the data I provided (and which you assembled into tables), > this gets: > > CONFK APPHOURS > 1 .NULL. > 3 12 > > The query itself doesn't sum anything, but I assume I can convert > NULLs to 0 and sum the APPHOURS column, and use _TALLY or RECCOUNT() > to provide a total of approved Consumers. > > Thank you very much!!! > > Ken > [excessive quoting removed by server]

2 1

[NF] Cloud discovery meetings held this week
by Stephen Russell 23 Jun '18

23 Jun '18

At the end of the third and final day of meeting with our ERP Consultants, our company realized that working in the cloud could be good. They keep version(s) of our applications as well as update data as needed to comply with that update. This is what we are looking forward to accomplishing by going to the cloud. Over the days we found that versions of the various software(s) that they have sold us do not push to the cloud easily or never will. Some of those software(s) deal with automation and they differ between plants of ours depending on the level of automation done at that plant. We were told about our data being available via accessing our Data Lake but that concept is still not out of alpha/build/test as of yet. Pulling the data from here is where a cost factor. We need this data to continue reporting to the company even though there is a new reporting environment, for us via version upgrade, that we have to learn how to use effectively. Other software we use will not be in the cloud initially but is planned to get there in the future. One of those is the Bill of Materials another is the EDI just to name two of many. We do not have a quote as of yet on how much this will cost because they were only getting actual facts on what needed to be done. OTTOMH I am guessing they say 12-18 months at 1 million dollars to be heavily discounted because we are the ALPHA site dong this with them. In reality, it will take close to 3 years and be in excess of 2 million before discounting or bill refusals. Will the executives be behind IT going down this road is the number one question and that will be a Fall 2018 decision for a 2019 project? -- 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 ---

5 5

Fun with US sales tax
by Richard Kaye 22 Jun '18

22 Jun '18

Our wondrous Supreme Court has opened the Pandora’s Sales Tax box with today’s decision to allow states to require retailers with no physical presence in a particular state to collect sales tax for that state. Leaving aside any thoughts on the wisdom of this decision, which I have not looked at, I’d like to call on the collective wisdom of those who deal with invoicing to find out if any of you are using some sort of service provider/API to retrieve tax rates, presumably by submitting the address of the buyer to some kind of web API. For our non-US ProFox friends, you can just sit back and laugh. 😊 TIA -- rk

4 9

Re: Query Involving Sums and Two Most Recent Dates
by Frank Cazabon 22 Jun '18

22 Jun '18

Did you run it as part of the first set of code that I gave you? It runs here with no errors in VFP9 with the latest hot fix and SPs. ;) What error is it giving you? Maybe a line split somewhere due to the email formatting? This is the full code: CREATE CURSOR Consumers; (ConPK int) INSERT INTO consumers (ConPK ) VALUES (1) INSERT INTO consumers (ConPK ) VALUES (2) INSERT INTO consumers (ConPK ) VALUES (3) *!* 1 *!* 2 *!* 3 *!* Status CREATE CURSOR Status; (StatPK int,; ConFK Int,; Date date,; Type c(10)) INSERT INTO Status (StatPK , ConFK, Date, Type) VALUES (1,1,{^2018/1/15},"Pending") INSERT INTO Status (StatPK , ConFK, Date, Type) VALUES (2,1,{^2018/4/15},"Approved") INSERT INTO Status (StatPK , ConFK, Date, Type) VALUES (3,2,{^2018/6/1},"Closed") INSERT INTO Status (StatPK , ConFK, Date, Type) VALUES (4,2,{^2018/4/15},"Approved") INSERT INTO Status (StatPK , ConFK, Date, Type) VALUES (5,3,{^2017/11/22},"Pending") INSERT INTO Status (StatPK , ConFK, Date, Type) VALUES (6,3,{^2018/2/3},"Approved") INSERT INTO Status (StatPK , ConFK, Date, Type) VALUES (7,3,{^2018/3/12},"Suspended") INSERT INTO Status (StatPK , ConFK, Date, Type) VALUES (8,3,{^2018/5/11},"Approved") CREATE CURSOR Hours; (HourPK int,; conFK int,; Date d,; Apphours int) *!* PK,ConFK,,Date,,AppHours INSERT INTO Hours (HourPK , ConFK, Date, AppHours) VALUES (1,2,{^2017/7/3},10) INSERT INTO Hours (HourPK , ConFK, Date, AppHours) VALUES (2,2,{^2018/3/12},14) INSERT INTO Hours (HourPK , ConFK, Date, AppHours) VALUES (3,3,{^2018/4/1},20) INSERT INTO Hours (HourPK , ConFK, Date, AppHours) VALUES (4,3,{^2018/5/1},12 ) SELECT Status.ConFK, LastHours.AppHours; FROM Status ; INNER JOIN (SELECT ConFK, MAX(Date) AS MaxDate; FROM Status; GROUP BY ConFK) M ON Status.ConFK = M.ConFK AND Status.Date = M.MaxDate ; AND Type = "Approved"; LEFT JOIN (SELECT Hours.ConFK, Hours.AppHours; FROM Hours; INNER JOIN (SELECT ConFK, MAX(date) AS MaxHoursDate; FROM Hours; GROUP BY ConFK) MH ; ON Hours.ConFK = MH.ConFK AND Hours.Date = MH.MaxHoursDate ) LastHours ; ON STatus.ConFK = LastHours.ConFK Frank. Frank Cazabon On 22/06/2018 12:21 PM, Ken Dibble wrote: > >> SELECT Consumer.*, Status.*, Hours.AppHours >> FROM Consumer >> JOIN Status on Consumer.ConPK=Status.ConFK >> LEFT OUTER JOIN Hours on Consumer.ConPK=Hours.ConFK >> WHERE Status.Date = >> (SELECT MAX(Stat2.Date) FROM Status Stat2 WHERE >> Stat2.ConFK = Consumer.ConPK GROUP BY Stat2.ConFK) >> AND Status.Type = "Approved" >> AND Hours.Date = (SELECT MAX(Hours2.Date) FROM Hours Hours2 WHERE >> Hours2.ConFK = Consumer.ConPK GROUP BY Hours.PK) > > I actually can't get this to run without errors. Interpolating, I > **think** you meant: > >> SELECT Consumer.*, Status.*, Hours.AppHours >> FROM Consumer >> JOIN Status on Consumer.ConPK=Status.ConFK >> LEFT OUTER JOIN Hours on Consumer.ConPK=Hours.ConFK >> WHERE Status.Date = >> (SELECT MAX(Stat2.Date) FROM Status Stat2 WHERE >> Stat2.ConFK = Consumer.ConPK AND Status.Type = "Approved" GROUP BY >> Stat2.ConFK) >> AND Hours.Date = (SELECT MAX(Hours2.Date) FROM Hours Hours2 WHERE >> Hours2.ConFK = Consumer.ConPK GROUP BY Hours.PK) > > However, I get "Function missing )" on the last subquery on this this, > and neither intellisense nor I can find any unmatched parens. > > Also, the first subquery is grouping on the Status table FK, while the > second subquery groups on the Hours table PK. I think they should both > group on the same key, but I don't understand which one that should be. > > Thanks. > > Ken > > [excessive quoting removed by server]

2 2

2026

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

ProFox June 2018